tests/bad-mlf-test.lisp

   1 (defun zook ()
   2   (declare (optimize sb-c:store-source-form))
   3   (macrolet ((foo (x)
   4                (declare (ignore x))
   5                ''hi))
   6     ;; This is a structure whose MAKE-LOAD-FORM signals an error.
   7     ;; The function itself should be compilable because
   8     ;; the post-macroexpansion expression is trivial.
   9     (foo #.(make-dump-me))))