maxima with asdf, slime compatibility, cl-user::run error at startup

On 2/20/10, Ezequiel Birman <stormwatch at espiga4.com.ar> wrote:

>>>>>> "RD" == Robert Dodier <robert.dodier at gmail.com> writes:

>     > I have used asdf to build maxima with ABCL.  It seems to work
>     > OK. I'll be glad to give more detail if you want.

> Yes please! I am using SBCL.

I think theoretically it is possible to just do this:

 $ cd <top-level Maxima directory>
 $ sbcl
 * (load "configure.lisp")
 * (configure)
 $ cd src
 $ sbcl
 * (require 'asdf)
 * (asdf:operate 'asdf:load-op :maxima)
 * (run)

(It may be necessary to restart sbcl and do the asdf:operate
again before running Maxima, not sure.)

When I try the above with current CVS source, however,
I get an error while trying to compile src/intl.lisp.
I can't tell what is the error; I've appended SBCL's output
about intl.lisp, maybe someone else can see what's wrong.

If I tell SBCL to ignore the error in intl.lisp, it goes for a
while longer, then runs into an error in slatec/dgamln.lisp.

Sorry i can't be more helpful.

Robert Dodier

PS.
; compiling file
"/home/robertdodier/tmp/maxima-cvs-build/maxima/src/intl.lisp"
(written 17 FEB 2010 05:40:54 PM):
; compiling (IN-PACKAGE :INTL)
; compiling (DEFVAR *LOCALE-DIRECTORIES* ...)
; compiling (DEFVAR *LOCALE* ...)
; compiling (DEFVAR *DEFAULT-DOMAIN* ...)
; compiling (DEFVAR *LOADED-DOMAINS* ...)
; compiling (DEFVAR *LOCALE-ALIASES* ...)
; compiling (DEFSTRUCT DOMAIN-ENTRY ...)
; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-LELONG ...)
; file: /home/robertdodier/tmp/maxima-cvs-build/maxima/src/intl.lisp
; in: DEFUN READ-LELONG
;     (DEFUN INTL::READ-LELONG (STREAM)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2)))
;       (+ (THE (UNSIGNED-BYTE 8) (READ-BYTE STREAM))
;          (ASH (THE (UNSIGNED-BYTE 8) (READ-BYTE STREAM)) 8)
;          (ASH (THE (UNSIGNED-BYTE 8) (READ-BYTE STREAM)) 16)
;          (ASH (THE (UNSIGNED-BYTE 8) (READ-BYTE STREAM)) 24)))
; --> PROGN EVAL-WHEN
; ==>
;   (SB-IMPL::%DEFUN 'INTL::READ-LELONG
;                    (SB-INT:NAMED-LAMBDA INTL::READ-LELONG (STREAM)
;                                         (DECLARE
;                                          (OPTIMIZE (SPEED 3) (SPACE 2)))
;                                         (BLOCK INTL::READ-LELONG
;                                           (+ (THE # #) (ASH # 8) (ASH # 16)
;                                              (ASH # 24))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DECLAIM (FTYPE # ...))
; compiling (DEFUN READ-BELONG ...)
; file: /home/robertdodier/tmp/maxima-cvs-build/maxima/src/intl.lisp
; in: DEFUN READ-BELONG
;     (DEFUN INTL::READ-BELONG (STREAM)
;       (DECLARE (OPTIMIZE (SPEED 3) (SPACE 2)))
;       (+ (ASH (THE (UNSIGNED-BYTE 8) (READ-BYTE STREAM)) 24)
;          (ASH (THE (UNSIGNED-BYTE 8) (READ-BYTE STREAM)) 16)
;          (ASH (THE (UNSIGNED-BYTE 8) (READ-BYTE STREAM)) 8)
;          (THE (UNSIGNED-BYTE 8) (READ-BYTE STREAM))))
; --> PROGN EVAL-WHEN
; ==>
;   (SB-IMPL::%DEFUN 'INTL::READ-BELONG
;                    (SB-INT:NAMED-LAMBDA INTL::READ-BELONG (STREAM)
;                                         (DECLARE
;                                          (OPTIMIZE (SPEED 3) (SPACE 2)))
;                                         (BLOCK INTL::READ-BELONG
;                                           (+ (ASH # 24) (ASH # 16) (ASH # 8)
;                                              (THE # #))))
;                    NIL 'NIL (SB-C:SOURCE-LOCATION))
;
; note: doing unsigned word to integer coercion (cost 20) to "<return value>"

; compiling (DEFUN LOCATE-DOMAIN-FILE ...)
; compiling (DEFUN FIND-ENCODING ...)
; compiling (DEFUN PARSE-PLURALS ...)
; compiling (DEFUN PARSE-EXPR ...)
; compiling (DEFUN LOAD-DOMAIN ...)
; compiling (DEFUN FIND-DOMAIN ...)
; compiling (DECLAIM (INLINE STRING-TO-OCTETS))
; compiling (DEFUN STRING-TO-OCTETS ...)
; compiling (DECLAIM (INLINE OCTETS-TO-STRING))
; compiling (DEFUN OCTETS-TO-STRING ...)
; compiling (DEFUN OCTETS= ...)
; compiling (DEFUN SEARCH-DOMAIN ...)
; file: /home/robertdodier/tmp/maxima-cvs-build/maxima/src/intl.lisp
; in: DEFUN SEARCH-DOMAIN
;     (MAKE-ARRAY INTL::LEN :ELEMENT-TYPE '(UNSIGNED-BYTE 8))
;
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870909) CONS NULL), not a INTEGER.
;
; note: unable to
;   optimize
; due to type uncertainty:
;   The first argument is a (OR (MOD 536870909) CONS NULL), not a LIST.

;     (INCF INTL::OFF INTL::END)
; --> LET* SETQ
; ==>
;   (THE #<SB-KERNEL:NUMERIC-TYPE (MOD 536870910)> #:NEW806)
;
; note: doing signed word to integer coercion (cost 20), for:
;       the first argument of CHECK-FIXNUM

; compiling (DEFUN DOMAIN-LOOKUP ...)
; compiling (DEFUN DOMAIN-LOOKUP-PLURAL ...)
; compiling (DECLAIM (INLINE GETENV) ...)
; compiling (DEFUN GETENV ...)
; compiling (DEFUN SETLOCALE ...)
; compiling (DEFMACRO TEXTDOMAIN ...)
; compiling (DEFMACRO GETTEXT ...)
; compiling (DEFMACRO NGETTEXT ...)
; compiling (DECLAIM (INLINE DGETTEXT))
; compiling (DEFUN DGETTEXT ...)
; compiling (DEFUN DNGETTEXT ...)
; compiling (DEFVAR *TRANSLATOR-COMMENT* ...)
; compiling (DEFVAR *TRANSLATIONS* ...)
; compiling (DEFUN NOTE-TRANSLATABLE ...)
; compiling (DEFINE-COMPILER-MACRO DGETTEXT ...)
; compiling (DEFINE-COMPILER-MACRO DNGETTEXT ...)
; compiling (DEFUN READ-TRANSLATABLE-STRING ...)
; compiling (DEFUN READ-COMMENT ...)
; compiling (DEFUN READ-NESTED-COMMENT ...)
; compiling (DEFUN INSTALL ...)
; compiling (DEFUN DUMP-POT-FILES ...)
; file: /home/robertdodier/tmp/maxima-cvs-build/maxima/src/intl.lisp
; in: DEFUN DUMP-POT-FILES
;     (COND ((> INTL::G 750) INTL::B) ((= INTL::G INTL::G1) INTL::B1)
;           ((= INTL::G INTL::G2) INTL::B2) ((= INTL::G INTL::G3) INTL::B3)
;           ((= INTL::G INTL::G4) INTL::B4) ((= INTL::G INTL::G5) INTL::B5))
; --> IF COND IF COND IF COND IF COND IF COND IF
; ==>
;   NIL
;
; caught WARNING:
;   This is not a NUMBER:
;     NIL
;   See also:
;     The SBCL Manual, Node "Handling of Types"


; /home/robertdodier/tmp/maxima-cvs-build/maxima/src/binary-ecl/intl.fasl
written
; compilation finished in 0:00:00.923
WARNING:
   COMPILE-FILE warned while performing #<COMPILE-OP NIL {B160BD9}> on
   #<CL-SOURCE-FILE "intl" {B4B8D91}>.

debugger invoked on a ASDF:COMPILE-FAILED:
  erred while invoking #<COMPILE-OP NIL {B160BD9}> on
  #<CL-SOURCE-FILE "intl" {B4B8D91}>

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [TRY-RECOMPILING] Try recompiling intl
  1: [RETRY          ] Retry performing #<ASDF:COMPILE-OP NIL {B160BD9}> on
                       #<ASDF:CL-SOURCE-FILE "intl" {B4B8D91}>.
  2: [ACCEPT         ] Continue, treating #<ASDF:COMPILE-OP NIL {B160BD9}> on
                       #<ASDF:CL-SOURCE-FILE "intl" {B4B8D91}> as having been
                       successful.
  3: [ABORT          ] Exit debugger, returning to top level.

((SB-PCL::FAST-METHOD ASDF:PERFORM (ASDF:COMPILE-OP ASDF:CL-SOURCE-FILE))
 #<unavailable argument>
 #<unavailable argument>
 #<ASDF:COMPILE-OP NIL {B160BD9}>
 #<ASDF:CL-SOURCE-FILE "intl" {B4B8D91}>)