Ignore:
Timestamp:
Feb 27, 2008, 7:52:26 PM (12 years ago)
Author:
hans
Message:

Merge the recent stream timeout and deadline changes from CCL trunk to
ITA branch. There now exist STREAM-INPUT-TIMEOUT, STREAM-OUTPUT-TIMEOUT
and STREAM-DEADLINE as well as associated initargs. Deadlines and timeouts
are specified in internal-time-units.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/linux-files.lisp

    r7951 r8611  
    6666      (setq r 0)
    6767      (setq r (floor (* r 1000))))
     68    (values q r)))
     69
     70(defun microseconds (n)
     71  (unless (and (typep n 'fixnum)
     72               (>= (the fixnum n) 0))
     73    (check-type n (real 0 #xffffffff)))
     74  (multiple-value-bind (q r)
     75      (floor n)
     76    (if (zerop r)
     77      (setq r 0)
     78      (setq r (floor (* r 1000000))))
    6879    (values q r)))
    6980
Note: See TracChangeset for help on using the changeset viewer.