X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fcompiler.impure.lisp;h=2d952613e44096fe1539f8ccab7dab7971c74e95;hb=d8659f1e656234e8f0f47d5295b503dd6cff4aba;hp=a3d6f330f8cbc3168a59f9e55fa7d4eeeee9f098;hpb=eb459ec23eda2040d01a4200e0e7d4edb7e872a1;p=sbcl.git

diff --git a/tests/compiler.impure.lisp b/tests/compiler.impure.lisp
index a3d6f33..2d95261 100644
--- a/tests/compiler.impure.lisp
+++ b/tests/compiler.impure.lisp
@@ -1403,7 +1403,7 @@
 
 ;;; program-error from bad lambda-list keyword
 (assert (eq :ok
-            (handler-case 
+            (handler-case
                 (funcall (lambda (&whole x)
                            (list &whole x)))
               (program-error ()
@@ -1416,4 +1416,19 @@
               (program-error ()
                 :ok))))
 
+;;; ignore &environment
+(handler-bind ((style-warning #'error))
+  (compile nil '(lambda ()
+                 (defmacro macro-ignore-env (&environment env)
+                   (declare (ignore env))
+                   :foo)))
+  (compile nil '(lambda ()
+                 (defmacro macro-no-env ()
+                   :foo))))
+
+(dolist (*evaluator-mode* '(:interpret :compile))
+  (disassemble (eval '(defun disassemble-source-form-bug (x y z)
+                       (declare (optimize debug))
+                       (list x y z)))))
+
 ;;; success