#,

shecomma.lisp

(defun shecomma-reader (stream sub-character infix-parameter)
  (declare (ignore sub-character infix-parameter))
  (let ((a (gensym "A")))
    `(lambda (&rest ,a) (apply ,(read stream nil nil) ,a))))
(set-dispatch-macro-character #\# #\, #'shecomma-reader)

(flet ((f (x) (* 2 x)))
  (let ((f (lambda (x) (* 3 x))))
    (values (#,#'f 1)(#,f 1))))
;; => 2 , 3