From 7808e314e1cc884ca3b86cc6936138f97b4f2a2e Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 4 Sep 2004 15:20:13 +0000 Subject: [PATCH] r9960: update for openmcl --- io.lisp | 17 +---------------- 1 file changed, 1 insertion(+), 16 deletions(-) diff --git a/io.lisp b/io.lisp index 61298ad..75ee650 100644 --- 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 () - #-openmcl - (when (probe-file #p"/dev/null") - (open #p"/dev/null" :direction :output :if-exists :overwrite)) - #+openmcl (when (probe-file #p"/dev/null") - (open-device-stream #p"/dev/null" :output)) + (open #p"/dev/null" :direction :output :if-exists :overwrite)) ) -- 2.34.1