[Sbcl-commits] CVS: sbcl/src/pcl boot.lisp,1.76,1.77

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs1:/tmp/cvs-serv6863/src/pcl

Modified Files:
	boot.lisp 
Log Message:
0.8.4.31:
	Minor PCL fixette
	... when defining early generic functions in the bootstrap 
		process, clobber the lambda list if the gf has already
		been created (e.g. NO-APPLICABLE-METHOD) by an early 
		DEFMETHOD.


Index: boot.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/boot.lisp,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -d -r1.76 -r1.77
--- boot.lisp	15 Oct 2003 16:28:15 -0000	1.76
+++ boot.lisp	18 Oct 2003 12:55:41 -0000	1.77
@@ -1808,6 +1808,8 @@
 					    &allow-other-keys)
   (declare (ignore keys))
   (cond ((and existing (early-gf-p existing))
+	 (when lambda-list-p
+	   (set-arg-info existing :lambda-list lambda-list))
 	 existing)
 	((assoc spec *!generic-function-fixups* :test #'equal)
 	 (if existing