 	       (buffer-substring
 		(point)
 		(progn (forward-sexp 1)
-		       (while (looking-at "\\sw\\|\\s_\\|(\\|)")
+		       ;; advance if we have a |
+		       (when (looking-at "|")
 			 (forward-sexp 1))
 		       (while (looking-at "\\s'")
 			 (forward-char 1))

;;;; (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)
