problems with intl.lisp and sbcl

Andreas Eder wrote:
> ;     (INTL::LET
> ;      ((INTL::A (INTL::READ-CHAR INTL::STREAM))
> ;       (INTL::B (INTL::READ-CHAR INTL::STREAM))
> ;       (INTL::C (INTL::READ-CHAR INTL::STREAM))
> ;       (INTL::D (INTL::READ-CHAR INTL::STREAM)))
> ;      (INTL::+ (INTL::ASH (INTL::CHAR-CODE INTL::D) 24)
> ;       (INTL::ASH (INTL::CHAR-CODE INTL::C) 16)
> ;       (INTL::ASH (INTL::CHAR-CODE INTL::B) 8) (INTL::CHAR-CODE INTL::A)))
> ; 
> ; note: The first argument never returns a value.
>
> ;     (INTL::CHAR-CODE INTL::D)
> ; ==>
> ;   INTL::D
>
> this looks very suspicious to me. Has anybody got an idea?
>
>   
Try to add (:use :cl) in the defpackage for intl in
maxima-package.lisp.  This will probably fix everything.

Ray