Changeset 4966

Timestamp:

Aug 20, 2006, 4:01:51 PM (18 years ago)

Author:

Gary Byers

Message:

Syscall conditionalization.

SELECTION-INPUT-STREAM created with :sharing :lock.

File:

• trunk/ccl/level-1/l1-streams.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-streams.lisp

@@ -23 +23 @@
   #+linuxx8664-target
   (require "X8664-LINUX-SYSCALLS")
-  #+darwin-target
-  (require "DARWIN-SYSCALLS")
+  #+darwinppc-target
+  (require "DARWINPPC-SYSCALLS")
+  #+darwinx8664-target
+  (require "DARWINX8664-SYSCALLS")
   #+freebsdx8664-target
   (require "X8664-FREEBSD-SYSCALLS"))
@@ -2871 +2873 @@
   (let* ((s (make-fd-stream fd
                             :elements-per-buffer elements-per-buffer
-                            :class 'selection-input-stream)))
+                            :class 'selection-input-stream
+                            :sharing :lock)))
     (setf (slot-value s 'peer-fd) peer-fd)
     s))