<div dir="ltr"><div class="gmail_quote">Hi Erik,<br>
<br>
ABCL appears to remove a function definition that it incorrectly thinks is unused. I've attached abcl-bug.lisp. Here is a transcript:<br>
<br>
----<br>
ABCL (fails)<br>
<br>
VibhuMondrasMBP:Desktop vibhu$ abcl.sh<br>
Armed Bear Common Lisp 1.3.1<br>
Java 1.8.0_11 Oracle Corporation<br>
Java HotSpot(TM) 64-Bit Server VM<br>
Low-level initialization completed in 0.394 seconds.<br>
Startup completed in 1.8 seconds.<br>
Loading /Users/vibhu/.abclrc completed in 11.668 seconds.<br>
Type ":help" for a list of available commands.<br>
CL-USER(1): (load "abcl-bug")<br>
; Note: deleting unused local function LABELS =G<br>
T<br>
CL-USER(2): (sample2 1)<br>
#<THREAD "interpreter" {4F4C3489}>: Debugger invoked on condition of type UNDEFINED-FUNCTION<br>
  The function SAMPLE2 is undefined.<br>
Restarts:<br>
  0: CONTINUE     Try again.<br>
  1: USE-VALUE    Specify a function to call instead.<br>
  2: RETURN-VALUE Return one or more values from the call to SAMPLE2.<br>
  3: TOP-LEVEL    Return to top level.<br>
[1] CL-USER(3):<br>
<br>
----<br>
CLISP (works)<br>
<br>
VibhuMondrasMBP:Desktop vibhu$ clisp<br>
;; Loading file /Users/vibhu/.clisprc ...<br>
;;  Loading file /Users/vibhu/quicklisp/setup.lisp ...<br>
;;   Loading file /Users/vibhu/quicklisp/ASDF.lisp ...<br>
;;   Loaded file /Users/vibhu/quicklisp/ASDF.lisp<br>
;;  Loaded file /Users/vibhu/quicklisp/setup.lisp<br>
;; Loaded file /Users/vibhu/.clisprc<br>
[1]> (load "abcl-bug")<br>
;; Loading file /Users/vibhu/Desktop/abcl-bug.lisp ...<br>
;; Loaded file /Users/vibhu/Desktop/abcl-bug.lisp<br>
T<br>
[2]> (bug)<br>
1<br>
[3]> (load "tco2")<br>
;; Loading file /Users/vibhu/Desktop/tco2.lisp ...<br>
;; Loaded file /Users/vibhu/Desktop/tco2.lisp<br>
T<br>
[4]> (sample2 1)<br>
1<br>
<br>
</div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr">Bye,<div><br></div><div>Erik.</div><div><br></div><div><a href="http://efficito.com/" target="_blank">http://efficito.com</a> -- Hosted accounting and ERP.</div><div>Robust and Flexible. No vendor lock-in.</div></div></div>
</div>