X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ffull-eval.impure.lisp;h=b2eb21a7143c33200025a9c1c6baf995fa4764bd;hb=062283b901155792f65775491aea51481c56faaa;hp=364260cbc5d4e901e18ec25db87eb1ed23770a26;hpb=f0da2f63aa0b4e6d4dbf884854a4bf2dfdd01fc0;p=sbcl.git

diff --git a/tests/full-eval.impure.lisp b/tests/full-eval.impure.lisp
index 364260c..b2eb21a 100644
--- a/tests/full-eval.impure.lisp
+++ b/tests/full-eval.impure.lisp
@@ -74,3 +74,15 @@
             (declare (enable-package-locks cl:ed))
             (cl:ed)))
         42)))))
+
+(defvar *file* #p"full-eval-temp.lisp")
+(with-test (:name (:full-eval :redefinition-warnings))
+  (with-open-file (stream *file* :direction :output :if-exists :supersede)
+    (write '(defun function-for-redefinition () nil) :stream stream))
+  (handler-bind ((warning #'error))
+    (let ((sb-ext:*evaluator-mode* :interpret))
+      (load *file*)
+      (load *file*))
+    (let ((sb-ext:*evaluator-mode* :compile))
+      (load *file*))))
+(delete-file *file*)