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

[Marco Baringer]

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