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