Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv28244/tests

Modified Files:
	compiler.impure.lisp 
Log Message:
0.9.15.47: compiler-macros for SETF functions
 * ...already work, so remove the warning, and add a test



Index: compiler.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure.lisp,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -d -r1.73 -r1.74
--- compiler.impure.lisp	21 Aug 2006 17:54:38 -0000	1.73
+++ compiler.impure.lisp	22 Aug 2006 17:01:40 -0000	1.74
@@ -1318,6 +1318,12 @@
                               (declare (inline test-cmacro-4))
                               (test-cmacro-4)))))
 
+;;; SETF function compiler macros
+(define-compiler-macro (setf test-cmacro-4) (&whole form value) ''ok)
+
+(assert (eq 'ok (funcall (lambda () (setf (test-cmacro-4) 'zot)))))
+(assert (eq 'ok (funcall (lambda () (funcall #'(setf test-cmacro-4) 'zot)))))
+
 ;;; Step instrumentation breaking type-inference
 (handler-bind ((warning #'error))
   (assert (= 42 (funcall (compile nil '(lambda (v x)