Changeset 13942


Ignore:
Timestamp:
Jul 8, 2010, 8:57:31 PM (9 years ago)
Author:
gz
Message:

Unbreak the printer

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/pprint.lisp

    r13929 r13942  
    950950  (let ((ostream (xp-out-stream xp))
    951951        (len (xp-buffer-ptr xp)))
    952     (when (commit-hook *print-pprint-dispatch*)
     952    (when (and *print-pprint-dispatch* (commit-hook *print-pprint-dispatch*))
    953953      (funcall (commit-hook *print-pprint-dispatch*) xp len 0))
    954954    (when ostream     
     
    10021002      (throw 'line-limit-abbreviation-exit T))
    10031003    (setf (xp-line-no xp)(%i+ 1 (xp-line-no xp)))
    1004     (when (commit-hook *print-pprint-dispatch*)
     1004    (when (and *print-pprint-dispatch* (commit-hook *print-pprint-dispatch*))
    10051005      (funcall (commit-hook *print-pprint-dispatch*) xp out-point prefix-end))
    10061006    (let ((bstream (xp-out-stream xp)))
Note: See TracChangeset for help on using the changeset viewer.