Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv2204/tests
Modified Files:
clos.pure.lisp
Log Message:
1.0.7.35: SLOT-VALUE and SET-SLOT-VALUE transforms aren't important
* No compiler notes for default policy.
* Test case.
Index: clos.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.pure.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- clos.pure.lisp 1 Sep 2006 15:32:25 -0000 1.6
+++ clos.pure.lisp 21 Jul 2007 00:05:15 -0000 1.7
@@ -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)))
+
+
|