X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fpprint.lisp;h=9b3f51e1907e47a0ea5d9b8364ff29ec006cab6d;hb=cd176690400f8b6fa23faa4dc6fa8494bcbce480;hp=2067b072fa44654c42c79e04f3327fcb49356fdc;hpb=20748f2dd7965dcd1446a1cb27e5a5af18a0e5bb;p=sbcl.git

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index 2067b07..9b3f51e 100644
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -802,7 +802,7 @@
   ;; T iff one of the original entries.
   (initial-p *building-initial-table* :type (member t nil))
   ;; and the associated function
-  (function (missing-arg) :type function))
+  (fun (missing-arg) :type function))
 (def!method print-object ((entry pprint-dispatch-entry) stream)
   (print-unreadable-object (entry stream :type t)
     (format stream "type=~S, priority=~S~@[ [initial]~]"
@@ -932,14 +932,17 @@
       (if (cons-type-specifier-p type)
 	  (setf (gethash (second (second type))
 			 (pprint-dispatch-table-cons-entries table))
-		(make-pprint-dispatch-entry :type type :priority priority
-					    :function function))
+		(make-pprint-dispatch-entry :type type
+					    :priority priority
+					    :fun function))
 	  (let ((list (delete type (pprint-dispatch-table-entries table)
 			      :key #'pprint-dispatch-entry-type
 			      :test #'equal))
 		(entry (make-pprint-dispatch-entry
-			:type type :test-fn (compute-test-fn type)
-			:priority priority :function function)))
+			:type type
+			:test-fn (compute-test-fn type)
+			:priority priority
+			:fun function)))
 	    (do ((prev nil next)
 		 (next list (cdr next)))
 		((null next)
@@ -1248,8 +1251,8 @@
 
 ;;;; the interface seen by regular (ugly) printer and initialization routines
 
-;;; OUTPUT-PRETTY-OBJECT is called by OUTPUT-OBJECT when *PRINT-PRETTY* is
-;;; bound to T.
+;;; OUTPUT-PRETTY-OBJECT is called by OUTPUT-OBJECT when
+;;; *PRINT-PRETTY* is true.
 (defun output-pretty-object (object stream)
   (with-pretty-stream (stream)
     (funcall (pprint-dispatch object) stream object)))