[Bese-devel] backtracking.lisp: compile issue

[Steve Salkin]

Hi,

I wonder if this rings a bell with anyone? The code doesn't look 
problematic to me at a glance, but I am not really used to CPS/arnesi style.

; compiling file 
"/home/steve/.sbcl/site/ucw_dev/src/rerl/backtracking.lisp" (written 27 
MAY 2006 08:18:37 AM):
; compiling (IN-PACKAGE :IT.BESE.UCW)
; compiling (DEFMACRO MAKE-PLACE ...)
; compiling (DEFMETHOD PLACE ...)
; file: /home/steve/.sbcl/site/ucw_dev/src/rerl/backtracking.lisp
; in: DEFMETHOD PLACE (PLACE)
;     (DEFMETHOD IT.BESE.UCW::PLACE
;              ((IT.BESE.UCW::PLACE IT.BESE.UCW::PLACE))
;              "Returns the current value of PLACE."
;              (ETYPECASE (IT.BESE.UCW::PLACE.GETTER IT.BESE.UCW::PLACE)
;                (FUNCTION
;                 (FUNCALL (IT.BESE.UCW::PLACE.GETTER IT.BESE.UCW::PLACE)))
;                (IT.BESE.ARNESI::CLOSURE/CC
;                 (IT.BESE.ARNESI:WITH-CALL/CC (FUNCALL #)))))
;
; caught WARNING:
;   Reference to unknown variable PLACE.

; compiling (DEFMETHOD (SETF PLACE) ...)
; file: /home/steve/.sbcl/site/ucw_dev/src/rerl/backtracking.lisp
; in: DEFMETHOD (SETF PLACE) (T PLACE)
;     (DEFMETHOD (SETF IT.BESE.UCW::PLACE)
;              (IT.BESE.UCW:VALUE (IT.BESE.UCW::PLACE IT.BESE.UCW::PLACE))
;              "Set the value of PLACE to VALUE."
;              (ETYPECASE (IT.BESE.UCW::PLACE.SETTER IT.BESE.UCW::PLACE)
;                (FUNCTION
;                 (FUNCALL (IT.BESE.UCW::PLACE.SETTER IT.BESE.UCW::PLACE)
;                          IT.BESE.UCW:VALUE))
;                (IT.BESE.ARNESI::CLOSURE/CC
;                 (IT.BESE.ARNESI:WITH-CALL/CC (FUNCALL # 
IT.BESE.UCW:VALUE)))))
;
; caught WARNING:
;   Reference to unknown variable PLACE.
;
; caught WARNING:
;   Reference to unknown variable VALUE.

Details:

On a fresh checkout of ucw_dev with no old fasls, using sbcl 0.9.13.8, I 
ran sbcl and did the following:
(require 'asdf)
(asdf:oos 'asdf:load-op :fiveam) ; needed because the next line bombs 
otherwise
(load "/home/steve/.ucw/start.lisp")

~/.ucw has copies of start.lisp, stop.lisp, conf.lisp, ucwctl.conf with 
appropriate values for this machine

Any thoughts appreciated :)

S-