(BTW, if there's a name for the syntactic sugar that's not really punctuation, I would appreciate it.)
Code: Select all
CL-USER> (defun foo () #'bar)
FOO
CL-USER> (defun bar () (* 70 7))
BAR
CL-USER> (foo)
#<FUNCTION BAR NIL (DECLARE (SYSTEM::IN-DEFUN BAR)) (BLOCK BAR (* 70 7))>
CL-USER> ((foo))
EVAL: #1=(FOO) is not a function name; try using a symbol instead
[Condition of type SYSTEM::SIMPLE-SOURCE-PROGRAM-ERROR]
; Evaluation aborted.
CL-USER> (setf (fdefinition `???) (foo))
#<FUNCTION BAR NIL (DECLARE (SYSTEM::IN-DEFUN BAR)) (BLOCK BAR (* 70 7))>
CL-USER> (???)
490