[Sbcl-commits] CVS: sbcl/src/compiler ir1tran.lisp, 1.155, 1.156 policy.lisp, 1.19, 1.20

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

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv18193/src/compiler

Modified Files:
	ir1tran.lisp policy.lisp 
Log Message:
1.0.16.18: Fixes to get clisp through host-1
	Just a couple of ignores and code rearrangements.


Index: ir1tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1tran.lisp,v
retrieving revision 1.155
retrieving revision 1.156
diff -u -d -r1.155 -r1.156
--- ir1tran.lisp	4 Feb 2008 15:40:33 -0000	1.155
+++ ir1tran.lisp	6 May 2008 10:45:43 -0000	1.156
@@ -832,15 +832,6 @@
 
 ;;;; code coverage
 
-;;; Used as the CDR of the code coverage instrumentation records
-;;; (instead of NIL) to ensure that any well-behaving user code will
-;;; not have constants EQUAL to that record. This avoids problems with
-;;; the records getting coalesced with non-record conses, which then
-;;; get mutated when the instrumentation runs. Note that it's
-;;; important for multiple records for the same location to be
-;;; coalesced. -- JES, 2008-01-02
-(defconstant +code-coverage-unmarked+ '%code-coverage-unmarked%)
-
 ;;; Check the policy for whether we should generate code coverage
 ;;; instrumentation. If not, just return the original START
 ;;; ctran. Otherwise insert code coverage instrumentation after

Index: policy.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/policy.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- policy.lisp	13 Jan 2008 20:39:21 -0000	1.19
+++ policy.lisp	6 May 2008 10:45:44 -0000	1.20
@@ -37,7 +37,7 @@
 bodies of code with eg. a known minimum safety.
 
 EXPERIMENTAL INTERFACE: Subject to change."
-  (declare (policy-quality min))
+  (declare (type policy-quality min))
   (when quality
     (aver (policy-quality-name-p quality))
     (if (zerop min)