imaxima problem
- Subject: imaxima problem
- From: C Y
- Date: Thu, 7 Oct 2004 12:37:26 -0700 (PDT)
Tried installing imaxima, and when I ran it I got the following output.
I expect this is some error with my setup, but can anyone else confirm
whether or not they see this behavior?
CY
STYLE-WARNING: redefining MAIN-PROMPT in DEFUN
STYLE-WARNING: redefining BREAK-DBM-LOOP in DEFUN
STYLE-WARNING: redefining TEX in DEFUN
; in: LAMBDA NIL
; (MAXIMA::TEXCHAR MAXIMA::X)
;
; caught STYLE-WARNING:
; undefined function: TEXCHAR
; (MAXIMA::TEXSTRING MAXIMA::X)
;
; caught STYLE-WARNING:
; undefined function: TEXSTRING
;
; caught STYLE-WARNING:
; These functions are undefined:
; TEXCHAR TEXSTRING
;
; compilation unit finished
; caught 3 STYLE-WARNING conditions
STYLE-WARNING: redefining TEX-ATOM in DEFUN
STYLE-WARNING: redefining TEX-STRIPDOLLAR in DEFUN
STYLE-WARNING: redefining STRCAT in DEFUN
STYLE-WARNING: redefining TEXNUMFORMAT in DEFUN
STYLE-WARNING: redefining TEX-PAREN in DEFUN
; in: LAMBDA NIL
; (IF (ATOM (CADR MAXIMA::X))
; (PROGN
; (SETQ MAXIMA::L
; (MAXIMA::TEX # MAXIMA::L NIL MAXIMA::LOP
'MAXIMA::MFUNCTION)
; MAXIMA::R
; (NCONC # MAXIMA::R))
; (NCONC MAXIMA::L (LIST "_{") MAXIMA::R))
; (SETQ MAXIMA::L
; (MAXIMA::TEX (MAXIMA::TEXWORD MAXIMA::F)
; (APPEND MAXIMA::L #)
; NIL
; MAXIMA::LOP ..)))
;
; caught ERROR:
; error while parsing arguments to special form IF:
; invalid number of elements in
; ((ATOM (CADR X))
; (PROGN
; (SETQ L
; (TEX (TEXWORD F) L NIL LOP 'MFUNCTION)
; R
; (NCONC (TEX-LIST (CDR X) NIL (LIST "}") ",") R))
; (NCONC L (LIST "_{") R))
; (SETQ L ..
; (SB-INT:NAMED-LAMBDA MAXIMA::TEX-ARRAY
; (MAXIMA::X MAXIMA::L MAXIMA::R)
; (BLOCK MAXIMA::TEX-ARRAY
; (MAXIMA::LET (#) (IF # # #) (IF # # # #))))
; ==>
; #'(SB-INT:NAMED-LAMBDA MAXIMA::TEX-ARRAY
; (MAXIMA::X MAXIMA::L MAXIMA::R)
; (BLOCK MAXIMA::TEX-ARRAY
; (MAXIMA::LET (#) (IF # # #) (IF # # #
#))))
;
; caught STYLE-WARNING:
; The variable L is defined but never used.
;
; caught STYLE-WARNING:
; The variable R is defined but never used.
; compilation unit finished
; caught 1 ERROR condition
; caught 2 STYLE-WARNING conditions
STYLE-WARNING: redefining TEX-ARRAY in DEFUN
STYLE-WARNING: redefining TEX-FUNCTION in DEFUN
STYLE-WARNING: redefining TEX-LIST in DEFUN
STYLE-WARNING: redefining TEX-PREFIX in DEFUN
STYLE-WARNING: redefining TEX-INFIX in DEFUN
STYLE-WARNING: redefining TEX-POSTFIX in DEFUN
STYLE-WARNING: redefining TEX-NARY in DEFUN
STYLE-WARNING: redefining TEX-NOFIX in DEFUN
STYLE-WARNING: redefining TEX-MATCHFIX in DEFUN
STYLE-WARNING: redefining TEXSYM in DEFUN
STYLE-WARNING: redefining TEXWORD in DEFUN
; in: LAMBDA NIL
; (SB-INT:NAMED-LAMBDA MAXIMA::TEX-BIGFLOAT
; (MAXIMA::X MAXIMA::L MAXIMA::R)
; (BLOCK MAXIMA::TEX-BIGFLOAT
; (MAXIMA::FPFORMAT MAXIMA::X)))
; ==>
; #'(SB-INT:NAMED-LAMBDA MAXIMA::TEX-BIGFLOAT
; (MAXIMA::X MAXIMA::L MAXIMA::R)
; (BLOCK MAXIMA::TEX-BIGFLOAT
; (MAXIMA::FPFORMAT MAXIMA::X)))
;
; caught STYLE-WARNING:
; The variable L is defined but never used.
;
; caught STYLE-WARNING:
; The variable R is defined but never used.
; compilation unit finished
; caught 2 STYLE-WARNING conditions
STYLE-WARNING: redefining TEX-BIGFLOAT in DEFUN
STYLE-WARNING: redefining TEX-MQAPPLY in DEFUN
; in: LAMBDA NIL
; (IF (ATOM (CADDR MAXIMA::X))
; (PROGN
; (SETQ MAXIMA::L
; (MAXIMA::TEX # MAXIMA::L NIL MAXIMA::LOP #)
; MAXIMA::R
; (IF # # #))
; (APPEND MAXIMA::L MAXIMA::R))
; (SETQ MAXIMA::L
; (MAXIMA::TEX (CADR MAXIMA::X)
; (APPEND MAXIMA::L #)
; NIL
; MAXIMA::LOP ..)))
;
; caught ERROR:
; error while parsing arguments to special form IF:
; invalid number of elements in
; ((ATOM (CADDR X))
; (PROGN
; (SETQ L
; (TEX (CADR X) L NIL LOP (CAAR X))
; R
; (IF (MMMINUSP (SETQ X (NFORMAT (CADDR X))))
; (IF NC
; (TEX (CADR X) ..
; (MAXIMA::LET ((MAXIMA::NC (EQ # 'MAXIMA::MNCEXPT)))
; (COND ((AND # #)) (T (IF # # # #))))
; ==>
; (LET ((MAXIMA::NC (EQ # 'MAXIMA::MNCEXPT)))
; (COND ((AND # #)) (T (IF # # # #))))
;
; caught STYLE-WARNING:
; The variable NC is defined but never used.
; compilation unit finished
; caught 1 ERROR condition
; caught 1 STYLE-WARNING condition
STYLE-WARNING: redefining TEX-MEXPT in DEFUN
STYLE-WARNING: redefining TEX-SQRT in DEFUN
STYLE-WARNING: redefining TEX-CUBRT in DEFUN
STYLE-WARNING: redefining TEX-MQUOTIENT in DEFUN
STYLE-WARNING: redefining TEX-MATRIX in DEFUN
STYLE-WARNING: redefining TEX-LSUM in DEFUN
STYLE-WARNING: redefining TEX-SUM in DEFUN
STYLE-WARNING: redefining TEX-INT in DEFUN
STYLE-WARNING: redefining TEX-LIMIT in DEFUN
STYLE-WARNING: redefining TEX-AT in DEFUN
STYLE-WARNING: redefining TEX-MBOX in DEFUN
STYLE-WARNING: redefining TEX-MLABOX in DEFUN
STYLE-WARNING: redefining TEX-CHOOSE in DEFUN
STYLE-WARNING: redefining TEX-RAT in DEFUN
STYLE-WARNING: redefining TEX-MPLUS in DEFUN
STYLE-WARNING: redefining TEX-SETUP in DEFUN
STYLE-WARNING: redefining TEX-DERIVATIVE in DEFUN
STYLE-WARNING: redefining TEX-D in DEFUN
STYLE-WARNING: redefining ODDS in DEFUN
STYLE-WARNING: redefining TEX-MCOND in DEFUN
STYLE-WARNING: redefining TEX-LBP in DEFUN
STYLE-WARNING: redefining TEX-RBP in DEFUN
STYLE-WARNING: redefining TEX-MDO in DEFUN
STYLE-WARNING: redefining TEX-MDOIN in DEFUN
STYLE-WARNING: redefining TEXMDO in DEFUN
STYLE-WARNING: redefining TEXMDOIN in DEFUN
STYLE-WARNING: redefining TEX-MTEXT in DEFUN
STYLE-WARNING: redefining TEX-MLABLE in DEFUN
STYLE-WARNING: redefining TEX-SPACEOUT in DEFUN
STYLE-WARNING: redefining DISPLA in DEFUN
Maxima 5.9.1.1cvs http://maxima.sourceforge.net
Using Lisp SBCL 0.8.14
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
This is a development version of Maxima. The function bug_report()
provides bug reporting information.
(%i1) sin(x);
(\%o1) \sin x [shows image]
(%i2) integrate(1/(1+x^4),x);
Maxima encountered a Lisp error:
Execution of a form compiled with errors.
Form:
(IF (ATOM (CADDR X))
(PROGN
(SETQ L
(TEX (CADR X) L NIL LOP (CAAR X))
R
(IF (MMMINUSP (SETQ X (NFORMAT (CADDR X))))
(IF NC
(TEX (CADR X)
'(^ {-\langle )
(CONS \rangle } R)
'MPAREN
'MPAREN)
(TEX (CADR X) '(^ {- ) (CONS } R) 'MPAREN
'MPAREN))
(IF NC
(TEX X
(LIST ^{\langle )
(CONS \rangle} R)
'MPAREN
'MPAREN)
(TEX X (LIST ^{) (CONS } R) 'MPAREN 'MPAREN))))
(APPEND L R))
(SETQ L
(TEX (CADR X) (APPEND L (LIST \iexpt{)) NIL LOP (CAAR X))
R
(IF (MMMINUSP (SETQ X (NFORMAT (CADDR X))))
(IF NC
(TEX (CADR X)
'({-\langle )
(CONS \rangle } R)
'MPAREN
'MPAREN)
(TEX (CADR X) '({- ) (CONS } R) 'MPAREN 'MPAREN))
(IF NC
(TEX X (LIST {\langle ) (CONS \rangle} R) 'MPAREN
'MPAREN)
(TEX X (LIST {) (CONS } R) 'MPAREN 'MPAREN))))
(APPEND L (LIST }) R))
Compile-time-error:
error while parsing arguments to special form IF:
invalid number of elements in
((ATOM (CADDR X))
(PROGN
(SETQ L
(TEX (CADR X) L NIL LOP (CAAR X))
R
(IF (MMMINUSP (SETQ X (NFORMAT (CADDR X))))
(IF NC
(TEX (CADR X)
'("^ {-\\langle ")
(CONS "\\rangle }" R)
'MPAREN
'MPAREN)
(TEX (CADR X) '("^ {- ") (CONS " }" R) 'MPAREN
'MPAREN))
(IF NC
(TEX X
(LIST "^{\\langle ")
(CONS "\\rangle}" R)
'MPAREN
'MPAREN)
(TEX X (LIST "^{") (CONS "}" R) 'MPAREN
'MPAREN))))
(APPEND L R))
(SETQ L
(TEX (CADR X) (APPEND L (LIST "\\iexpt{")) NIL LOP (CAAR
X))
R
(IF (MMMINUSP (SETQ X (NFORMAT (CADDR X))))
(IF NC
(TEX (CADR X)
'("{-\\langle ")
(CONS "\\rangle }" R)
'MPAREN
'MPAREN)
(TEX (CADR X) '("{- ") (CONS " }" R) 'MPAREN
'MPAREN))
(IF NC
(TEX X
(LIST "{\\langle ")
(CONS "\\rangle}" R)
'MPAREN
'MPAREN)
(TEX X (LIST "{") (CONS "}" R) 'MPAREN 'MPAREN))))
(APPEND L (LIST "}") R))
to satisfy lambda list
(SB-C::TEST SB-C::THEN &OPTIONAL SB-C::ELSE):
between 2 and 3 expected, but 4 found
Automatically continuing.
To reenable the Lisp debugger set *debugger-hook* to nil.
(%i3) cos(x);
(\%o3) \cos x [shows image]
(%i4)
_______________________________
Do you Yahoo!?
Declare Yourself - Register online to vote today!
http://vote.yahoo.com