SBCL

  1. Bug #560977
  2. Comment #3

Comment 3 for bug 560977

Revision history for this message
Douglas Katzman (dougk) wrote :

file try.lisp:
(defun try (x)
  (declare (optimize (sb-c:store-source-form 3)))
  `((zook ,x)))

* (load (compile-file "try.lisp"))
* (function-lambda-expression #'try) =>
(LAMBDA (X)
  (DECLARE (SB-C::TOP-LEVEL-FORM))
  (DECLARE (OPTIMIZE (SB-C:STORE-SOURCE-FORM 3)))
  (BLOCK TRY `((ZOOK ,X))))