[Sbcl-commits] CVS: sbcl/src/compiler/ppc insts.lisp,1.1,1.2

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

Update of /cvsroot/sbcl/sbcl/src/compiler/ppc
In directory usw-pr-cvs1:/tmp/cvs-serv420/src/compiler/ppc

Modified Files:
	insts.lisp 
Log Message:
0.7.7.24:
	READ-VAR-INTEGER and READ-PACKED-BIT-VECTOR are external to
		SB!C, so don't need double colons in SB!C: prefixes.
	made (FORMAT "foo" "bar") fail earlier, at
		FILL-POINTER-OUTPUT-STREAM ctor time, instead of 
		when the FILL-POINTER-OUTPUT-STREAM is first used for
		output
	got rid of *TOPLEVEL-LAMBDA-MAX* and
		*PENDING-TOPLEVEL-LAMBDAS* (and FORCE-P arg to 
		SUB-COMPILE-TOPLEVEL-LAMBDAS and
		COMPILE-TOPLEVEL-LAMBDAS, and TOPLEVEL-CLOSURE
		in COMPILE-TOPLEVEL, and various now-redundant
		FORCE-P-only calls to COMPILE-TOPLEVEL-LAMBDAS)


Index: insts.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ppc/insts.lisp,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- insts.lisp	18 Mar 2002 17:56:12 -0000	1.1
+++ insts.lisp	10 Oct 2002 16:55:09 -0000	1.2
@@ -210,13 +210,13 @@
                      (lengths))
              (lengths 1)                ; the length byte
              (let* ((index 0)
-                    (error-number (sb!c::read-var-integer vector index)))
+                    (error-number (sb!c:read-var-integer vector index)))
                (lengths index)
                (loop
                  (when (>= index length)
                    (return))
                  (let ((old-index index))
-                   (sc-offsets (sb!c::read-var-integer vector index))
+                   (sc-offsets (sb!c:read-var-integer vector index))
                    (lengths (- index old-index))))
                (values error-number
                        (1+ length)