Changeset 9274


Ignore:
Timestamp:
Apr 25, 2008, 6:42:53 AM (12 years ago)
Author:
rme
Message:

Use target::target-most-positive-fixnum

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-1/l1-io.lisp

    r7666 r9274  
    242242;; for things like *print-level* which must [no longer] be integers > 0
    243243(defun get-*print-frob* (symbol
    244                          &optional (nil-means most-positive-fixnum)
     244                         &optional (nil-means target::target-most-positive-fixnum)
    245245                         (t-means nil))
    246246  (declare (type symbol symbol))
     
    257257           nil-means)
    258258          ((and (integerp value)) ; (> value 0))
    259            (min (max value -1) value most-positive-fixnum))
     259           (min (max value -1) value target::target-most-positive-fixnum))
    260260          ((and t-means (eq value 't))
    261261           t-means)
     
    390390  (let ((print-level (get-*print-frob* '*print-level*)))
    391391    (if (not (and level print-level))
    392       most-positive-fixnum
     392      target::target-most-positive-fixnum
    393393      (if (> level print-level)
    394394        ;; wtf!
     
    12451245                                          '*print-simple-vector*
    12461246                                          0
    1247                                           most-positive-fixnum))))
     1247                                          target::target-most-positive-fixnum))))
    12481248               (pp-start-block stream "#(")
    12491249               (do ((i 0 (%i+ i 1))
     
    16821682            (if *print-level*
    16831683              (- *print-level* *current-level*)
    1684               most-positive-fixnum)
     1684              target::target-most-positive-fixnum)
    16851685            (%current-write-level% stream t))))
    16861686  (cond
     
    16901690   (t (write-internal stream
    16911691                      object
    1692                       (min levels-left most-positive-fixnum)
     1692                      (min levels-left target::target-most-positive-fixnum)
    16931693                      nil)))
    16941694  object)
Note: See TracChangeset for help on using the changeset viewer.