Changes between Initial Version and Version 1 of Ticket #475


Ignore:
Timestamp:
10/27/20 12:15:13 (3 years ago)
Author:
Mark Evenson
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #475 – Description

    initial v1  
    11<https://mailman.common-lisp.net/pipermail/armedbear-devel/2020-October/004145.html>
     2
     3{{{
     4The code below works in CCL, CLISP and SBCL, but not in ABCL.
     5
     6$ echo '(cl:format cl:t "~&I am in package ~s.~%" cl:*package*)' > foo.lisp
     7$ java -jar abcl-1.7.1.jar
     8Armed Bear Common Lisp 1.7.1
     9Java 1.8.0_265 Oracle Corporation
     10OpenJDK 64-Bit Server VM
     11Low-level initialization completed in 0.236 seconds.
     12Startup completed in 0.931 seconds.
     13Type ":help" for a list of available commands.
     14CL-USER(1): (defpackage "BAR" (:use))
     15#<PACKAGE BAR>
     16CL-USER(2): (let ((*package* (find-package "BAR"))) (load (compile-file "foo")))
     17; Compiling /tmp/foo/abcl-bin-1.7.1/foo.lisp ...
     18; (COMMON-LISP:FORMAT COMMON-LISP:T ...)
     19; Wrote /tmp/foo/abcl-bin-1.7.1/foo.abcl (0.036 seconds)
     20Error loading /tmp/foo/abcl-bin-1.7.1/foo.abcl at line 4 (offset 125)
     21#<THREAD "interpreter" {1B31C40C}>: Debugger invoked on condition of type UNDEFINED-FUNCTION
     22  The function BAR::SETQ is undefined.
     23Restarts:
     24  0: CONTINUE     Try again.
     25  1: USE-VALUE    Specify a function to call instead.
     26  2: RETURN-VALUE Return one or more values from the call to SETQ.
     27  3: TOP-LEVEL    Return to top level.
     28[1] BAR(3):
     29
     30}}}