Changeset 10141


Ignore:
Timestamp:
Jul 19, 2008, 5:14:13 AM (11 years ago)
Author:
rme
Message:

most-positive-fixnum => target::target-most-positive-fixnum

Location:
trunk/source/level-1
Files:
3 edited

Legend:

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

    r6938 r10141  
    177177      (when task
    178178        (if (setq *%periodic-tasks%* (delete task *%periodic-tasks%*))
    179           (let* ((min-ticks most-positive-fixnum))
     179          (let* ((min-ticks target::target-most-positive-fixnum))
    180180            (dolist (other *%periodic-tasks%*
    181181                     (set-periodic-task-interval (/ min-ticks (float *ticks-per-second*))))
  • trunk/source/level-1/l1-io.lisp

    r9886 r10141  
    252252;; for things like *print-level* which must [no longer] be integers > 0
    253253(defun get-*print-frob* (symbol
    254                          &optional (nil-means most-positive-fixnum)
     254                         &optional (nil-means target::target-most-positive-fixnum)
    255255                         (t-means nil))
    256256  (declare (type symbol symbol))
     
    267267           nil-means)
    268268          ((and (integerp value)) ; (> value 0))
    269            (min (max value -1) value most-positive-fixnum))
     269           (min (max value -1) value target::target-most-positive-fixnum))
    270270          ((and t-means (eq value 't))
    271271           t-means)
     
    400400  (let ((print-level (get-*print-frob* '*print-level*)))
    401401    (if (not (and level print-level))
    402       most-positive-fixnum
     402      target::target-most-positive-fixnum
    403403      (if (> level print-level)
    404404        ;; wtf!
     
    12551255                                          '*print-simple-vector*
    12561256                                          0
    1257                                           most-positive-fixnum))))
     1257                                          target::target-most-positive-fixnum))))
    12581258               (pp-start-block stream "#(")
    12591259               (do ((i 0 (%i+ i 1))
     
    16971697            (if *print-level*
    16981698              (- *print-level* *current-level*)
    1699               most-positive-fixnum)
     1699              target::target-most-positive-fixnum)
    17001700            (%current-write-level% stream t))))
    17011701  (cond
     
    17051705   (t (write-internal stream
    17061706                      object
    1707                       (min levels-left most-positive-fixnum)
     1707                      (min levels-left target::target-most-positive-fixnum)
    17081708                      nil)))
    17091709  object)
  • trunk/source/level-1/l1-lisp-threads.lisp

    r9787 r10141  
    398398        (cons function args)))
    399399
    400 (defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout most-positive-fixnum))
     400(defun thread-enable (thread termination-semaphore allocation-quantum &optional (timeout target::target-most-positive-fixnum))
    401401  (let* ((tcr (or (lisp-thread.tcr thread) (new-tcr-for-thread thread))))
    402402    (with-macptrs (s)
Note: See TracChangeset for help on using the changeset viewer.