[Sbcl-commits] CVS: sbcl/tests clos.impure.lisp,1.54,1.55

[Kevin R. <kev...@us...>]

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

Modified Files:
	clos.impure.lisp 
Log Message:
0.8.14.1:
	Fix for defgeneric expansion as reported on sbcl-devel Aug 31, 2004



Index: clos.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- clos.impure.lisp	16 Jun 2004 21:00:24 -0000	1.54
+++ clos.impure.lisp	1 Sep 2004 19:59:11 -0000	1.55
@@ -821,5 +821,14 @@
   x)
 (assert (= (fum 3) 3/2))
 
+;;; Bug reported by Zach Beane; incorrect return of (function
+;;; ',fun-name) in defgeneric
+(assert
+ (typep (funcall (compile nil
+                          '(lambda () (flet ((nonsense () nil))
+                                        (defgeneric nonsense ())))))
+        'generic-function))
+
+
 ;;;; success
 (sb-ext:quit :unix-status 104)