[Openmcl-cvs-notifications] r13942 - /trunk/source/lib/pprint.lisp

[gz at clozure.com]

Author: gz
Date: Thu Jul  8 15:57:31 2010
New Revision: 13942

Log:
Unbreak the printer

Modified:
    trunk/source/lib/pprint.lisp

Modified: trunk/source/lib/pprint.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/pprint.lisp (original)
+++ trunk/source/lib/pprint.lisp Thu Jul  8 15:57:31 2010
@@ -935,7 +935,7 @@
 (defun flush (xp)
   (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      =

       (write-string (xp-buffer xp) ostream :start 0 :end len))
@@ -987,7 +987,7 @@
       ;(setq *abbreviation-happened* '*print-lines*)
       (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-e=
nd))
     (let ((bstream (xp-out-stream xp)))
       (when bstream