 (defun get-simple-symbol-at-point (&optional up-p package)
   (let* ((symbol
 	  (cond
-	   ((looking-at "\\sw\\|\\s_\\|(\\|)")
+	   ((looking-at "\\sw\\|\\s_\\||")
 	    (save-excursion
-	      ;; go at the beginning of the word, we include parenthesis (they can be part of function names)
-	      (while (looking-at "\\sw\\|\\s_\\|(\\|)")
+	      ;; go at the beginning of the word, we include |
+	      (while (looking-at "\\sw\\|\\s_\\||")
 		(backward-char 1))
 	      ;; advance until we have a "real" start of worf)
 	      (while (not (looking-at "\\sw\\|\\s_"))

;;;; (when (fboundp :require-patch) (:require-patch ""))
;;;; HISTORY :
;;;; $Log$
;;;; Revision 3.8  2015/11/10 10:17:12  troche
;;;; * better identification of symbols in lisp modes
;;;;


(defun set-lisp-mode ()
  (auto-fill-mode -1) ;;Disable auto lines break
  
  ;; General shortcuts
  ;;(define-key fi:common-lisp-mode-map "C-M-q" 'indent-defun)
