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

[Gary King]

Hi Marco,

The changed intern-concat seems to work fine. However the new *run- 
when-defined* is confused... The macro uses

*run-when-defined*

but the defvar defines *run-test-when-defined*.


On Jan 24, 2006, at 8:33 AM, Marco Baringer wrote:

> Gary King wrote:
>> 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.
>
> intern-concat is built ontop of strcat* whcih uses princ (which
> admitaddly isn't what intern-concat should be using). Could you try
> changing the definition of intern-concat to:
>
> (defun intern-concat (string-designators &optional (package  
> *package*))
>   (intern (with-output-to-string (symbol-name)
>             (dolist (designator string-designators)
>               (write-string (etypecase designator
>                               (symbol (symbol-name designator))
>                               (string designator))
>                             symbol-name)))
>           package))
>
> and recompile everything? i think i'll commit the patch anyway  
> since it
> is much clearer about what inter-concat is designed to deal with  
> but do
> still tell me if mcl keeps failing.
>
> -- 
> -Marco
> Ring the bells that still can ring.
> Forget the perfect offering.
> There is a crack in everything.
> That's how the light gets in.
> 	-Leonard Cohen
>
> _______________________________________________
> bese-devel mailing list
> bese-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/bese-devel


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