projects
/
kmrcl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e55fe0d
)
r9960: update for openmcl
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 4 Sep 2004 15:20:13 +0000
(15:20 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Sat, 4 Sep 2004 15:20:13 +0000
(15:20 +0000)
io.lisp
patch
|
blob
|
history
diff --git
a/io.lisp
b/io.lisp
index 61298add617fceb73802eaba82e48457f7dd411b..75ee65087b1c3ccd78ed37749818e5de5c6c3556 100644
(file)
--- a/
io.lisp
+++ b/
io.lisp
@@
-178,25
+178,10
@@
-#+openmcl
-(defun open-device-stream (path direction)
- (let* ((mode (ecase direction
- (:input #.(read-from-string "#$O_RDONLY"))
- (:output #.(read-from-string "#$O_WRONLY"))
- (:io #.(read-from-string "#$O_RDWR"))))
- (fd (ccl::fd-open (ccl::native-translated-namestring path) mode)))
- (if (< fd 0)
- (ccl::signal-file-error fd path)
- (ccl::make-fd-stream fd :direction direction))))
-
(defun null-output-stream ()
(defun null-output-stream ()
- #-openmcl
- (when (probe-file #p"/dev/null")
- (open #p"/dev/null" :direction :output :if-exists :overwrite))
- #+openmcl
(when (probe-file #p"/dev/null")
(when (probe-file #p"/dev/null")
- (open
-device-stream #p"/dev/null" :output
))
+ (open
#p"/dev/null" :direction :output :if-exists :overwrite
))
)
)