(sb-cltl2:macroexpand-all '(defun foo () (+ 1 2))) returns the DEFUN form

[Michał "phoe" Herda]

CL-USER> (lisp-implementation-version)
"2.2.10"
CL-USER> (lisp-implementation-type)
"SBCL"
CL-USER> (sb-cltl2:macroexpand-all '(defun foo () (+ 1 2)))
(DEFUN FOO () (+ 1 2))
CL-USER> (macroexpand '(defun foo () (+ 1 2)))
(PROGN
 (EVAL-WHEN (:COMPILE-TOPLEVEL) (SB-C:%COMPILER-DEFUN 'FOO T NIL NIL))
 (SB-IMPL::%DEFUN 'FOO
                  (SB-INT:NAMED-LAMBDA FOO
                      NIL
                    (BLOCK FOO (+ 1 2)))))
T

[Douglas Katzman (dougk)]

An unintended consequence of https://sourceforge.net/p/sbcl/sbcl/ci/edc8dd8c apparently

[Fedorov Alexander (gleefre)]

Same problem with LAMBDA:

CL-USER> (lisp-implementation-type)
"SBCL"
CL-USER> (lisp-implementation-version)
"2.3.11"
CL-USER> (setf *print-pretty* nil)
NIL
CL-USER> (sb-cltl2:macroexpand-all '(lambda () (+ 1 2)))
(LAMBDA NIL (+ 1 2))
CL-USER> (macroexpand '(lambda () (+ 1 2)))
(FUNCTION (LAMBDA NIL (+ 1 2)))
T