X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprint.lisp;h=ae7c7eca317649bbd35679402a5f56c00768dcdf;hb=ec6d4bd97d9adc6f4003747d8ca92fad7766ccfd;hp=a7d4ed2e77ff53991a4407d4278e25859f6561d8;hpb=d40a76606c86722b0aef8179155f9f2840739b72;p=sbcl.git

diff --git a/src/code/print.lisp b/src/code/print.lisp
index a7d4ed2..ae7c7ec 100644
--- a/src/code/print.lisp
+++ b/src/code/print.lisp
@@ -470,7 +470,7 @@
 		      *print-object-is-disabled-p*))
 	    (print-object object stream))
 	   ((typep object 'structure-object)
-	    (default-structure-print object stream *current-level*))
+	    (default-structure-print object stream *current-level-in-print*))
 	   (t
 	    (write-string "#<INSTANCE but not STRUCTURE-OBJECT>" stream))))
     (function
@@ -1054,7 +1054,7 @@
 ;;; use until CLOS is set up (at which time it will be replaced with
 ;;; the real generic function implementation)
 (defun print-object (instance stream)
-  (default-structure-print instance stream *current-level*))
+  (default-structure-print instance stream *current-level-in-print*))
 
 ;;;; integer, ratio, and complex printing (i.e. everything but floats)
 
@@ -1575,7 +1575,7 @@
 	 (*print-level* 3)  ; ..print an interpreted function definition
 	 ;; FIXME: This find-the-function-name idiom ought to be
 	 ;; encapsulated in a function somewhere.
-	 (name (case (function-subtype object)
+	 (name (case (fun-subtype object)
 		 (#.sb!vm:closure-header-widetag "CLOSURE")
 		 (#.sb!vm:simple-fun-header-widetag (%simple-fun-name object))
 		 (t 'no-name-available)))