[Sbcl-commits] CVS: sbcl/src/compiler debug.lisp,1.27,1.28

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

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

Modified Files:
	debug.lisp 
Log Message:
0.8.1.20:
	Really inline math (sic) routines
	... we need the proclamation to take effect at compile-time, so
		change PROCLAIM to DECLAIM
	... fix up the two other instances of PROCLAIMs being used where
		DECLAIM should have been


Index: debug.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/debug.lisp,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- debug.lisp	12 Jun 2003 06:41:13 -0000	1.27
+++ debug.lisp	3 Jul 2003 11:22:21 -0000	1.28
@@ -894,11 +894,11 @@
 ;;;     keep garbage from being collected.
 (macrolet ((def (counter vto vfrom fto ffrom)
 	     `(progn
+		(declaim (type hash-table ,vto ,vfrom))
 		(defvar ,vto (make-hash-table :test 'eq))
 		(defvar ,vfrom (make-hash-table :test 'eql))
-		(proclaim '(hash-table ,vto ,vfrom))
+		(declaim (type fixnum ,counter))
 		(defvar ,counter 0)
-		(proclaim '(fixnum ,counter))
 
 		(defun ,fto (x)
 		  (or (gethash x ,vto)