[Bese-devel] Re: some problems getting FiveAM to load...

[Gary King]

> you decided to check out fiveam just minutes after i broke it :(

Me and my bad timing. <smile>

> odd. Using SBCL 0.9.6.37 (and the recently fixed fiveam code) i was  
> able
> to load fiveam and the test suite ran successfully.
>
>> MCL
>
> the with-run-state macro is defined by the call to
> def-special-environment in fiveam/src/check.lisp. i'm somewhat at a  
> lost
> as to what's going on. is asdf trying to compile the code before  
> loading
> the check.lisp file?

(in-package 5am)

(macroexpand '(def-special-environment x-state ()
                 result-list
                 current-test))

;;; MCL

(eval-when (:compile-toplevel :load-toplevel :execute)
   (flet ()
     (defmacro #:bind-x-state (arnesi::requested-vars &body  
arnesi::body)
       (arnesi::check-required
         'x-state
         '(result-list current-test)
         (mapcar #'car arnesi::requested-vars))
       (list* 'let
              (list* arnesi::requested-vars
                     (list* (list* 'declare
                                   (list (list*
                                          'special
                                          (mapcar
                                           #'car
                                           arnesi::requested-vars))))
                            arnesi::body))))
     ...

     'x-state))


;;; ALLEGRO

(eval-when (:compile-toplevel :load-toplevel :execute)
   (flet ()
     (defmacro bind-x-state
         (it.bese.arnesi::requested-vars &body it.bese.arnesi::body)
       (it.bese.arnesi::check-required 'x-state
         '(result-list current-test)
         (mapcar #'car it.bese.arnesi::requested-vars))
       (excl::bq-list* `let it.bese.arnesi::requested-vars
                       (excl::bq-list `declare #) it.bese.arnesi::body))
     ...
     'x-state))


So the problem is that MCL doesn't seem to like the

(intern-concat (list #:WITH- 'foo) "5AM")

form. Specifically, in MCL (princ '#:with-) prints #:WITH- instead
of WITH-. As a work-around, changing the def-special-environment macro
to use (intern-concat (list "WITH-" name) ...) seems to make happiness.

-- 
Gary Warren King
metabang.com
http://www.metabang.com/