mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
10 lines
346 B
Common Lisp
10 lines
346 B
Common Lisp
(defun zook ()
|
|
(declare (optimize sb-c:store-source-form))
|
|
(macrolet ((foo (x)
|
|
(declare (ignore x))
|
|
''hi))
|
|
;; This is a structure whose MAKE-LOAD-FORM signals an error.
|
|
;; The function itself should be compilable because
|
|
;; the post-macroexpansion expression is trivial.
|
|
(foo #.(make-dump-me))))
|