Changeset 14902


Ignore:
Timestamp:
10/13/16 10:10:27 (6 years ago)
Author:
Mark Evenson
Message:

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@…
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)

Location:
trunk/abcl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/CHANGES

    r14900 r14902  
    55<http://github.com/easye/abcl/>
    66Unreleased
     7
     8Fixes
     9-----
     10
     11* CL:OPEN
    712
    813Version 1.4.0
  • trunk/abcl/src/org/armedbear/lisp/open.lisp

    r13301 r14902  
    147147                   :pathname pathname
    148148                   :format-control "The file ~S does not exist."
    149                    :format-arguments (list namestring)))))
     149                   :format-arguments (list namestring))))
     150         (:create
     151          ;; CREATE-NEW-FILE "atomically creates a new, empty file named by
     152          ;; this abstract pathname if and only if a file with this name does
     153          ;; not yet exist." See java.io.File.createNewFile().
     154          (create-new-file namestring)))
    150155       (make-file-stream pathname namestring element-type :input nil external-format))
    151156      (:probe
Note: See TracChangeset for help on using the changeset viewer.