Commit e80aa52b authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

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