[Sbcl-commits] CVS: sbcl/src/compiler/generic genesis.lisp,1.72,1.73

[William H. N. <wn...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/generic
In directory sc8-pr-cvs1:/tmp/cvs-serv26198/src/compiler/generic

Modified Files:
	genesis.lisp 
Log Message:
0.7.10.18:
	merged Robert E. Brown shush-the-compiler patch (sbcl-devel
		2002-12-13)
	minor changes...
	...removed DECLAIM FTYPE for
		SLOT-ACCESSOR-INLINE-EXPANSION-DESIGNATORS on the
		theory that it's too fragile (since (1) S-A-I-E-D does 
		currently return functions, but could validly return
		nonfunctions in some later implementation, and (2) 
		SBCL's declarations-are-assertions still doesn't work
		right for DECLAIM FTYPE)
	...sometimes used THE instead of DECLARE
	(didn't do yet, but still intend to: add some documentation
		related to drichards' #lisp question about :NOT-HOST)


Index: genesis.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/genesis.lisp,v
retrieving revision 1.72
retrieving revision 1.73
diff -u -d -r1.72 -r1.73
--- genesis.lisp	2 Oct 2002 23:22:48 -0000	1.72
+++ genesis.lisp	14 Dec 2002 22:10:11 -0000	1.73
@@ -3209,6 +3209,7 @@
 	(let ((package (find-package (sb-cold:package-data-name pd))))
 	  (labels (;; Call FN on every node of the TREE.
 		   (mapc-on-tree (fn tree)
+                                 (declare (type function fn))
 				 (typecase tree
 				   (cons (mapc-on-tree fn (car tree))
 					 (mapc-on-tree fn (cdr tree)))