Last login: Thu Oct 13 09:41:21 on ttys003

launchctl setenv PATH /opt/local/bin:/opt/local/sbin:/usr/local/bin:/usr/bin:/bin:/usr/sbin:/sbin illin:~$ ssh Linux 3.16.0-0.bpo.4-amd64 #1 SMP Debian 3.16.36-1+deb8u1~bpo70+1 (2016-09-08) x86_64 The programs included with the Debian GNU/Linux system are free software; the exact distribution terms for each program are described in the individual files in /usr/share/doc/*/copyright. Debian GNU/Linux comes with ABSOLUTELY NO WARRANTY, to the extent permitted by applicable law. Last login: Mon Oct 10 13:57:49 2016 from mevenson@lisp:~$ screen -DR Fix CL:OPEN for :DIRECTION :INPUT (pipping) Elias Pipping via #abcl <> If you take a look at open.lisp, you'll see that for :direction :probe, if-does-not-exist :error/:create is handledyet for :direction :input, only :error is, and for any other key, nothing happens (the code uses `case` rather than `ecase`)
parent f155cf2b
......@@ -5,6 +5,11 @@ Version 1.5.0
Version 1.4.0
......@@ -146,7 +146,12 @@
(error 'file-error
:pathname pathname
:format-control "The file ~S does not exist."
:format-arguments (list namestring)))))
:format-arguments (list namestring))))
;; CREATE-NEW-FILE "atomically creates a new, empty file named by
;; this abstract pathname if and only if a file with this name does
;; not yet exist." See
(create-new-file namestring)))
(make-file-stream pathname namestring element-type :input nil external-format))
(case if-does-not-exist
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment