CVS: sbcl/src/compiler/generic genesis.lisp,1.72,1.73

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)))



-------------------------------------------------------
This sf.net email is sponsored by:
With Great Power, Comes Great Responsibility 
Learn to use your power at OSDN's High Performance Computing Channel
http://hpc.devchannel.org/