tests/bad-mlf-test.lisp


1
2
3
4
5
6
7
8
9

(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))))