Skip to content
Snippets Groups Projects
Commit beea2d5e authored by wlott's avatar wlott
Browse files

Changed predict-name to unix-namestring.

parent dfc94f8a
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment