<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><br class=""><div class=""><div style="color: rgb(0, 0, 0); letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><div style="color: rgb(0, 0, 0); letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><div style="color: rgb(0, 0, 0); letter-spacing: normal; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><br class=""></div></div></div>
</div>
<div><br class=""><blockquote type="cite" class=""><div class="">On 26 Oct 2020, at 00:57, Robert Munyer <<a href="mailto:2433647181@munyer.com" class="">2433647181@munyer.com</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><div class="">The code below works in CCL, CLISP and SBCL, but not in ABCL.<br class=""><br class="">$ echo '(cl:format cl:t "~&I am in package ~s.~%" cl:*package*)' > foo.lisp<br class="">$ java -jar abcl-1.7.1.jar<br class="">Armed Bear Common Lisp 1.7.1<br class="">Java 1.8.0_265 Oracle Corporation<br class="">OpenJDK 64-Bit Server VM<br class="">Low-level initialization completed in 0.236 seconds.<br class="">Startup completed in 0.931 seconds.<br class="">Type ":help" for a list of available commands.<br class="">CL-USER(1): (defpackage "BAR" (:use))<br class="">#<PACKAGE BAR><br class="">CL-USER(2): (let ((*package* (find-package "BAR"))) (load (compile-file "foo")))<br class="">; Compiling /tmp/foo/abcl-bin-1.7.1/foo.lisp ...<br class="">; (COMMON-LISP:FORMAT COMMON-LISP:T ...)<br class="">; Wrote /tmp/foo/abcl-bin-1.7.1/foo.abcl (0.036 seconds)<br class="">Error loading /tmp/foo/abcl-bin-1.7.1/foo.abcl at line 4 (offset 125)<br class="">#<THREAD "interpreter" {1B31C40C}>: Debugger invoked on condition of type UNDEFINED-FUNCTION<br class=""> The function BAR::SETQ is undefined.<br class="">Restarts:<br class=""> 0: CONTINUE Try again.<br class=""> 1: USE-VALUE Specify a function to call instead.<br class=""> 2: RETURN-VALUE Return one or more values from the call to SETQ.<br class=""> 3: TOP-LEVEL Return to top level.<br class="">[1] BAR(3):<br class=""><br class=""></div></div></blockquote></div><div class=""><br class=""></div>Indeed, there’s a bug in abcl.<div class=""><br class=""><div class=""><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">$ clall -r '(defpackage "BAR" (:use))' ' (let ((*package* (find-package "BAR"))) (load (compile-file "foo.lisp")))'</span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class=""><br class=""></span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">Armed Bear Common Lisp --> #<PACKAGE BAR></span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">Armed Bear Common Lisp The function BAR::SETQ is undefined.</span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">Clozure Common Lisp --> #<Package "BAR"></span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">Clozure Common Lisp --> #P"/private/tmp/foo.dx64fsl"</span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">CLISP --> #<PACKAGE BAR></span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">CLISP --> #P"/private/tmp/foo.fas"</span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">ECL --> #<"BAR" package></span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">ECL Note: Invoking external command: gcc -x c-header /usr/local/include/ecl/ecl-cmp.h -I/usr/local/include/ -g -O2 -fPIC -fno-common -D_THREAD_SAFE -Ddarwin -O2 -o /var/folders/pq/82920zm125n09frk81rrtp200000gn/T/ecl-include092A/ecl-cmp.h.gch </span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">SBCL --> #<PACKAGE "BAR"></span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">SBCL --> T</span></font></div></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class=""><br class=""></span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">$ abcl --help|head -n 3</span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">Picked up JAVA_TOOL_OPTIONS: -Dfile.encoding=UTF8 -Xmx6g</span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">Armed Bear Common Lisp 1.7.1</span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">Java 11.0.8 AdoptOpenJDK</span></font></div><div class=""><font face="Andale Mono" class=""><span style="font-style: normal;" class="">OpenJDK 64-Bit Server VM</span></font></div></div><div class=""><br class=""></div><div class=""><div style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0); word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class="">-- <br class="">__Pascal J. Bourguignon__</div><div style="caret-color: rgb(0, 0, 0); color: rgb(0, 0, 0); word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><br class=""></div></div></body></html>