From beea2d5e87256c3da416ac90ee4b2b8c650b7c2e Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 3 Nov 1990 00:26:39 +0000 Subject: [PATCH] Changed predict-name to unix-namestring. --- code/fd-stream.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index e450c5baa..54d78dc1b 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.7 1990/09/24 17:22:32 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.8 1990/11/03 00:26:39 wlott Exp $ ;;; ;;; Streams for UNIX file descriptors. ;;; @@ -1074,9 +1074,9 @@ (:input (values t nil mach:o_rdonly)) (:output (values nil t mach:o_wronly)) (:io (values t t mach:o_rdwr)) - (:probe (values nil nil mach:o_rdonly))) + (:probe (values t nil mach:o_rdonly))) (let* ((pathname (pathname filename)) - (namestring (predict-name pathname input))) + (namestring (unix-namestring pathname input))) ;; Process if-exists argument if we are doing any output. (cond (output -- GitLab