Steel Bank Common Lisp

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

Modified Files:
	compiler.pure.lisp 
Log Message:
0.8.9.52:
	Fixes fixes fixes
	... restore build on linux/unithread;
	... workaround apparent OpenMCL bug in the reader (#1#-related)
	... fix for (funcall #'cddr ...)


Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -d -r1.87 -r1.88
--- compiler.pure.lisp	4 Apr 2004 14:07:25 -0000	1.87
+++ compiler.pure.lisp	19 Apr 2004 13:46:27 -0000	1.88
@@ -1171,3 +1171,5 @@
 		   (declare (notinline identity))
 		   (1+ (identity x))))
   (compiler-note () (error "IDENTITY derive-type not applied.")))
+
+(assert (null (funcall (compile nil '(lambda (x) (funcall #'cddr x))) nil)))