Changeset 9335


Ignore:
Timestamp:
Apr 30, 2008, 4:34:58 PM (11 years ago)
Author:
andreas
Message:

Properly conditionalize definition of PIPE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/linux-files.lisp

    r9334 r9335  
    864864;;; I believe that the Darwin/FreeBSD syscall infterface is rather ... odd.
    865865;;; Use libc's interface.
    866 #-windows-target
    867866(defun pipe ()
    868867  ;;  (rlet ((filedes (:array :int 2)))
     
    881880        (%errno-disp errno)))))
    882881
    883 #+windows-target
    884 (defun pipe ()
    885   (%stack-block ((filedes 8))
    886     (syscall syscalls::pipe filedes)
    887     (values (paref filedes (:array :int)  0) (paref filedes (:array :int)  1))))
    888882
    889883
     
    12641258        (%errno-disp error))))
    12651259
    1266 )
     1260) ; #-windows-target (progn
     1261
     1262#+windows-target
     1263(progn
     1264#+windows-target
     1265(defun pipe ()
     1266  (%stack-block ((filedes 8))
     1267    (syscall syscalls::pipe filedes)
     1268    (values (paref filedes (:array :int)  0) (paref filedes (:array :int)  1))))
     1269) ; #+windows-target (progn
    12671270
    12681271;;; EOF on a TTY is transient, but I'm less sure of other cases.
Note: See TracChangeset for help on using the changeset viewer.