From: William H. N. <wn...@us...> - 2002-10-10 16:55:13
|
Update of /cvsroot/sbcl/sbcl/src/compiler/mips In directory usw-pr-cvs1:/tmp/cvs-serv420/src/compiler/mips 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/mips/insts.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- insts.lisp 1 Sep 2002 22:34:18 -0000 1.1 +++ insts.lisp 10 Oct 2002 16:55:08 -0000 1.2 @@ -985,13 +985,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) |