#,

shecomma.lisp

(defun shecomma-reader (stream sub-character n)
  (declare (ignore sub-character))
  (let ((a (gensym "A"))
        (f (read stream nil nil)))
    `(lambda (&rest ,a)
       (apply ,(case n
                 (0 `(quote ,f))
                 (1 f)
                 (t `(function ,f)))
              ,a))))
(set-dispatch-macro-character #\# #\, #'shecomma-reader)

(defun f (n) (/ n 4))
(flet ((f (x) (* 2 x)))
  (let ((f (lambda (x) (* 3 x))))
    (values (#,f 1) (#0,f 1) (#1,f 1) (#2,f 1))))
;; -> 2, 1/4, 3, 2