Changeset 15527


Ignore:
Timestamp:
Dec 6, 2012, 9:52:59 PM (7 years ago)
Author:
gb
Message:

PRINT-OBJECT on RATIO: print radix when *PRINT-RADIX*, even if
*PRINT-BASE* is 10.

Fixes ticket:1033 in the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-io.lisp

    r15416 r15527  
    651651(defmethod print-object ((num ratio) stream)
    652652  (let ((base (get-*print-base*)))
    653     ;;>> What to do when for *print-radix* and *print-base* = 10?
    654     (when (and *print-radix* (not (eq base 10)))
     653    (when *print-radix*
    655654      (write-radix base stream))
    656655    (%pr-integer (numerator num) base stream)
Note: See TracChangeset for help on using the changeset viewer.