Great, thanks!
Faré wrote:
Because I'm not an ASDF developer and know little of it, I was hoping for a test case that involved primarily ACL, or someone to finger what in ACL (or ASDF) is causing the problem. Sorry I wasn't more clear.
Here's a reduced test case.
(load (compile-file "al10bug.lisp"))
;;; al10bug.lisp (defparameter *result* nil)
(defun two-optionals (&optional (o1 :default1) (o2 :default2)) (format t "TWO-OPTIONALS ~S ~S~%" o1 o2) (setf *result* (if (equal o1 :parameter) :success :failure)) #'(lambda (x) o2))
(trace two-optionals)
(two-optionals :parameter)
(format t "TEST ~A~%" *result*)
—♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org When communists say "to each man according to his needs", remember they established just how low these needs are, by founding concentration camps.