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 mevenson@abcl.org
Linux lisp.not.org 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 84-115-198-249.cable.dynamic.surfer.at
mevenson@lisp:~$ screen -DR









Fix CL:OPEN for :DIRECTION :INPUT (pipping)
Elias Pipping via #abcl <http://dpaste.com/2KYD7RV.txt>

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
<http://github.com/easye/abcl/>
Unreleased
Fixes
-----
* CL:OPEN
Version 1.4.0
=============
<http://abcl.org/svn/tags/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
;; 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 java.io.File.createNewFile().
(create-new-file namestring)))
(make-file-stream pathname namestring element-type :input nil external-format))
(:probe
(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