1.0.13.8: Fix bug in ENSURE-DIRECTORIES-EXIST

[sbcl.git] / tests / clos.pure.lisp

diff --git a/tests/clos.pure.lisp b/tests/clos.pure.lisp
index 803b48a..aec1850 100644 (file)
--- a/tests/clos.pure.lisp
+++ b/tests/clos.pure.lisp
@@ -71,3 +71,13 @@
                      (when (and std (< std last))
                        (push `(:std ,c) result))))))
     (assert (null result))))
+
+;; No compiler-notes for non-constant slot-names in default policy.
+(handler-case
+    (compile nil '(lambda (x y z)
+                   (setf (slot-value x z)
+                         (slot-value y z))))
+  (sb-ext:compiler-note (e)
+    (error e)))
+
+