X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fclos.pure.lisp;h=ae8b524a625b73914e1f6ebf87078927e8165e5a;hb=d7875c296a4988e9f27e2776237884deb1984c62;hp=803b48a674768239a97336d5e7145436aa6aacc1;hpb=f19ae86fb2c16ebb4dce3d16cc1bb32e94f07110;p=sbcl.git

diff --git a/tests/clos.pure.lisp b/tests/clos.pure.lisp
index 803b48a..ae8b524 100644
--- a/tests/clos.pure.lisp
+++ b/tests/clos.pure.lisp
@@ -54,7 +54,7 @@
 ;;; (i.e. portably) but it's much easier using the MOP and
 ;;; MAP-ALL-CLASSES.
 (flet ((standardized-class-p (c)
-         (find-symbol (symbol-name (class-name c)) "CL")))
+         (eq (class-name c) (find-symbol (symbol-name (class-name c)) "CL"))))
   (let (result)
     (sb-pcl::map-all-classes
      (lambda (c) (when (standardized-class-p c)
@@ -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)))
+
+