#473: IllegalStateException, when reading after rewinding
-------------------------------+---------------------
Reporter: Mark Evenson | Type: defect
Status: new | Priority: major
Milestone: 1.8.0 | Component: streams
Version: 1.7.1-dev | Keywords:
Parent Tickets: |
-------------------------------+---------------------
Robert Munyer reports in <https://mailman.common-lisp.net/pipermail
/armedbear-devel/2020-September/004135.html>:
{{{
The code below works in CCL, CLISP and SBCL, but not in ABCL.
$ echo hello > hello.text
$ java -jar abcl-1.7.1.jar
Armed Bear Common Lisp 1.7.1
Java 1.8.0_265 Oracle Corporation
OpenJDK 64-Bit Server VM
Low-level initialization completed in 0.181 seconds.
Startup completed in 0.945 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (with-open-file (in "hello.text")
(list (read in)
(read in nil)
(file-position in :start)
(read in)))
java.lang.IllegalStateException: Current state = CODING_END, new state =
CODING
at
java.nio.charset.CharsetDecoder.throwIllegalStateException(CharsetDecoder.java:992)
at java.nio.charset.CharsetDecoder.decode(CharsetDecoder.java:572)
at
org.armedbear.lisp.util.RandomAccessCharacterFile.read(RandomAccessCharacterFile.java:392)
[ many stack frames elided ]
at org.armedbear.lisp.Main$1.run(Main.java:48)
at java.lang.Thread.run(Thread.java:748)
#<THREAD "interpreter" {2CD58E2}>: Debugger invoked on condition of type
ERROR
Caught java.lang.IllegalStateException: Current state = CODING_END, new
state = CODING.
Restarts:
0: TOP-LEVEL Return to top level.
[1] CL-USER(2):
}}}
--
Ticket URL: <https://abcl.org/trac/ticket/473>
armedbear <https://abcl.org>
armedbear
#474: Regression, immediately invoked function expressions
-------------------------------+--------------------
Reporter: Mark Evenson | Type: defect
Status: new | Priority: major
Milestone: 1.8.0 | Component: other
Version: 1.7.1-dev | Keywords:
Parent Tickets: |
-------------------------------+--------------------
Robert Munyer notes in
<https://mailman.common-lisp.net/pipermail/armedbear-
devel/2020-September/004134.html>:
{{{
The function below works in CCL, CLISP, SBCL and ABCL 1.4.0,
but not in ABCL 1.7.1.
$ java -jar abcl-1.7.1.jar
Armed Bear Common Lisp 1.7.1
Java 1.8.0_265 Oracle Corporation
OpenJDK 64-Bit Server VM
Low-level initialization completed in 0.188 seconds.
Startup completed in 0.869 seconds.
Type ":help" for a list of available commands.
CL-USER(1): (defun add3 (foo)
((lambda (bar)
((lambda (baz)
(1+ baz))
(1+ bar)))
(1+ foo)))
#<THREAD "interpreter" {32B46F86}>: Debugger invoked on condition of type
TYPE-ERROR
The value (LAMBDA (BAZ) (1+ BAZ)) is not of type SYMBOL.
Restarts:
0: TOP-LEVEL Return to top level.
[1] CL-USER(2):
}}}
--
Ticket URL: <https://abcl.org/trac/ticket/474>
armedbear <https://abcl.org>
armedbear
#420: Add ability to optimize function calls with lambda in function position.
Use it to optimize jss
-------------------------------+--------------------------
Reporter: Mark Evenson | Owner: (none)
Type: enhancement | Status: closed
Priority: major | Milestone: 1.5.0
Component: compiler | Version: 1.5.0-dev
Resolution: fixed | Keywords: github-issue
Parent Tickets: |
-------------------------------+--------------------------
Comment (by Mark Evenson):
Should be fixed with <https://github.com/armedbear/abcl/pull/303>. Waiting
for the CI tests to complete before merging.
--
Ticket URL: <https://abcl.org/trac/ticket/420#comment:5>
armedbear <https://abcl.org>
armedbear
#471: LOOP destructures non-conformingly
-------------------------------+--------------------
Reporter: Mark Evenson | Type: defect
Status: new | Priority: major
Milestone: | Component: other
Version: 1.7.1-dev | Keywords:
Parent Tickets: |
-------------------------------+--------------------
{{{
(loop with (a b) = '(1) do (return (list a b)))
(loop for (a b) = '(1) do (return (list a b)))
}}}
These forms should both return
{{{
(1 nil)
}}}
as per http://www.lispworks.com/documentation/HyperSpec/Body/06_aag.htm
Problem reported by Steve Losh.
c.f. <https://gitlab.com/embeddable-common-lisp/ecl/-/issues/605>
--
Ticket URL: <https://abcl.org/trac/ticket/471>
armedbear <https://abcl.org>
armedbear