Changeset 13942

Timestamp:

Jul 8, 2010, 1:57:31 PM (14 years ago)

Author:

gz

Message:

Unbreak the printer

File:

• trunk/source/lib/pprint.lisp (modified) (2 diffs)

trunk/source/lib/pprint.lisp

@@ -950 +950 @@
   (let ((ostream (xp-out-stream xp))
         (len (xp-buffer-ptr xp)))
-    (when (commit-hook *print-pprint-dispatch*)
+    (when (and *print-pprint-dispatch* (commit-hook *print-pprint-dispatch*))
       (funcall (commit-hook *print-pprint-dispatch*) xp len 0))
     (when ostream      
@@ -1002 +1002 @@
       (throw 'line-limit-abbreviation-exit T))
     (setf (xp-line-no xp)(%i+ 1 (xp-line-no xp)))
-    (when (commit-hook *print-pprint-dispatch*)
+    (when (and *print-pprint-dispatch* (commit-hook *print-pprint-dispatch*))
       (funcall (commit-hook *print-pprint-dispatch*) xp out-point prefix-end))
     (let ((bstream (xp-out-stream xp)))