Re: [j-devel] compiler error

[Peter G. <pe...@ar...>]

On Wed, 3 Aug 2005 at 00:29:09 +0300, Alex Mizrahi wrote:
> Hello, All!
>
> while compiling UCW with ABCL 0.0.7 got following error:
>
> The value "<tr
>   ><th
>     >Index</th
>   ><th
>     >Description</th
>   ><th
>     >Locals</th
>   ><th
>     >Source</th
>   ></tr
> >" is not of type SIMPLE-STRING.
>    [Condition of type TYPE-ERROR]
>
> backtrace:
>
>  25: (INVOKE-DEBUGGER #<TYPE-ERROR {17EE7D5}>)
>  26: (JVM::WRITE-CONSTANT-POOL #<FILE-STREAM {1838550}>)
>  27: (JVM::WRITE-CLASS-FILE #S(JVM::CLASS-FILE :PATHNAME
> "H:\\lisp\\ucw\\ucw_dev\\src\\rerl\\request-loop-error-21.cls" :LAMBDA-NAME
> NIL :CLASS "org/armedbear/lisp/request_loop_error_21" :SUPERCLASS
> "org/armedbear/lisp/Primitive" :LAMBDA-LIST (MOP::ARGS MOP::NEXT-EMFUN)
> :POOL NIL :POOL-COUNT 1 :POOL-ENTRIES #<EQUAL hash table, 306 entries, 767
> buckets {FC652E}> :FIELDS NIL :METHODS (#S(JVM::JAVA-METHOD :ACCESS-FLAGS
> NIL :NAME "execute" :DESCRIPTOR
> "(Lorg/armedbear/lisp/LispObject;Lorg/armedbear/lisp/LispObject;)Lorg/armedb
> ear/lisp/LispObject;" :NAME-INDEX 1 :DESCRIPTOR-INDEX 2 :MAX-STACK 11
> :MAX-LOCALS 12 :CODE #(184 0 127 78 43 192 0 129 180 0 ...) :HANDLERS
> (#S(JVM::HANDLER :FROM #:G64020 :TO #:G64021 :CODE #:G64064 :CATCH-TYPE
> 118)))) ...))
>  28: (JVM::COMPILE-1 #<JVM::COMPILAND NIL>)

I think I've fixed this in current CVS.

Based on the backtrace, I believe the problem was that WRITE-UTF8 and
WRITE-ASCII were using SCHAR instead of CHAR, even though they could
quite plausibly be operating on a non-simple string (obviously that
scenario never came up in the things I normally compile).

I haven't tried compiling UCW (well, I did make a feeble attempt, but
was beaten back by an onslaught of required dependencies that I didn't
have installed), so I'm not absolutely sure I've fixed the right bug.

Once the changes propagate to anonymous CVS, please let me know if this
fix solves the problem you were having.

Thanks for reporting this bug!

-Peter