Changeset 12622 for trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Timestamp:

04/18/10 09:26:22 (14 years ago)

Author:

Mark Evenson

Message:

Restore buildable trunk arising from ASDF2 compilation.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -1342 +1342 @@
       (when instruction-depth
         (unless (= (the fixnum instruction-depth) (the fixnum (+ depth instruction-stack)))
-          (format t "~&Stack inconsistency at index ~D: found ~S, expected ~S.~%"
-                   i instruction-depth (+ depth instruction-stack))
-          (internal-compiler-error "Stack inconsistency detected in ~A." 
-                                   (compiland-name *current-compiland*)))
+          (internal-compiler-error 
+           "Stack inconsistency detected in ~A at index ~D: found ~S, expected ~S." 
+           (compiland-name *current-compiland*)
+           i instruction-depth (+ depth instruction-stack)))
         (return-from walk-code))
       (let ((opcode (instruction-opcode instruction)))