Changeset 13951 for branches/rme-fpe


Ignore:
Timestamp:
Jul 10, 2010, 3:44:09 AM (9 years ago)
Author:
rme
Message:

Merge changes from trunk.

Location:
branches/rme-fpe
Files:
1 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • branches/rme-fpe

  • branches/rme-fpe/lib/pprint.lisp

    r13929 r13951  
    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.