(sb-cltl2:macroexpand-all '(defun foo () (+ 1 2))) returns the DEFUN form
Bug #1995445 reported by
Michał "phoe" Herda
This bug affects 2 people
Affects | Status | Importance | Assigned to | Milestone | |
---|---|---|---|---|---|
SBCL |
New
|
Undecided
|
Unassigned |
Bug Description
CL-USER> (lisp-implement
"2.2.10"
CL-USER> (lisp-implement
"SBCL"
CL-USER> (sb-cltl2:
(DEFUN FOO () (+ 1 2))
CL-USER> (macroexpand '(defun foo () (+ 1 2)))
(PROGN
(EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%
(SB-IMPL::%DEFUN 'FOO
T
To post a comment you must log in.
An unintended consequence of https:/ /sourceforge. net/p/sbcl/ sbcl/ci/ edc8dd8c apparently