Changeset 6127


Ignore:
Timestamp:
Apr 4, 2007, 3:33:15 AM (12 years ago)
Author:
gb
Message:

Use PAREF in PIPE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/level-1/linux-files.lisp

    r6013 r6127  
    594594
    595595
    596 
    597 
    598596#+linux-target
    599597(defun pipe ()
     
    609607#+(or darwin-target freebsd-target)
    610608(defun pipe ()
    611   (%stack-block ((pipes 8))
    612     (let* ((status (#_pipe pipes)))
     609  (%stack-block ((filedes 8))
     610    (let* ((status (#_pipe filedes)))
    613611      (if (zerop status)
    614         (values (%get-long pipes 0) (%get-long pipes 4))
     612        (values (paref filedes (:array :int)  0) (paref filedes (:array :int)  1))
    615613        (%errno-disp (%get-errno))))))
    616614
Note: See TracChangeset for help on using the changeset viewer.