recovering old .sav files

I just copied the saved file and loaded it in without trouble in wxmaxima
0.7.3
RJF
 

> -----Original Message-----
> From: maxima-bounces at math.utexas.edu 
> [mailto:maxima-bounces at math.utexas.edu] On Behalf Of Alberto Marcone
> Sent: Wednesday, March 12, 2008 7:18 AM
> To: Robert Dodier
> Cc: maxima at math.utexas.edu
> Subject: Re: [Maxima] recovering old .sav files
> 
> Robert Dodier ha scritto:
> > On 3/11/08, Alberto Marcone <alberto.marcone at dimi.uniud.it> wrote:
> > 
> >>  I used maxima with wxMaxima sometime in 2006 and saved 
> quite a bit of
> >>  work in files with extension sav.
> >>  Now I changed my computer and upgraded to the current 
> version of maxima,
> >>  and I cannot find a way of opening my old files.
> >>
> >>  I tried with load, but I get the error message:
> >>   > Load failed for C://Documents and Settings//alberto//My
> >>  Documents//maxima//Newton.sav -- an error. To debug this try
> >>  debugmode(true);
> > 
> > I am guessing that you saved the files with the "save" function.
> > If so, try this:
> > :lisp (load "C:/my-path/my-file.sav")
> > which should print a more informative error message.
> > 
> > Probably you will have to post one of the .sav files in question,
> > and the error message you get when you try :lisp (load ...).
> > 
> > Sorry I can't be more helpful.
> > 
> > Robert Dodier
> > 
> 
> Unfortunately I have fairly big files (10KB and up), and obviously no 
> way of producing new files with that old version.
> 
> Here is one of the shortest ones:
> --------------------------------------------------------------
> ---------
> ;;; -*- Mode: LISP; package:maxima; syntax:common-lisp; -*-
> (in-package :maxima)
> (DSKSETQ $%I1
>           '((MDEFINE) ((|$Ferm|) $N)
>             ((MPLUS) ((MEXPT) 2 ((MEXPT) 2 $N)) 1)))
> (ADDLABEL '$%I1)
> (DSKSETQ $%O1
>           '((MDEFINE SIMP) ((|$Ferm|) $N)
>             ((MPLUS) ((MEXPT) 2 ((MEXPT) 2 $N)) 1)))
> (ADDLABEL '$%O1)
> (DSKSETQ $%I2 '((|$Ferm|) 1))
> (ADDLABEL '$%I2)
> (DSKSETQ $%O2 5)
> (ADDLABEL '$%O2)
> (DSKSETQ $%I3 '((|$Ferm|) 2))
> (ADDLABEL '$%I3)
> (DSKSETQ $%O3 17)
> (ADDLABEL '$%O3)
> (DSKSETQ $%I4 '((|$Ferm|) 3))
> (ADDLABEL '$%I4)
> (DSKSETQ $%O4 257)
> (ADDLABEL '$%O4)
> (DSKSETQ $%I5 '(($FACTOR) $%))
> (ADDLABEL '$%I5)
> (DSKSETQ $%O5 257)
> (ADDLABEL '$%O5)
> (DSKSETQ $%I6 '(($FACTOR) 66))
> (ADDLABEL '$%I6)
> (DSKSETQ $%O6 '((MTIMES SIMP FACTORED) 2 3 11))
> (ADDLABEL '$%O6)
> (DSKSETQ $%I7 '((|$Ferm|) 4))
> (ADDLABEL '$%I7)
> (DSKSETQ $%O7 65537)
> (ADDLABEL '$%O7)
> (DSKSETQ $%I8 '(($FACTOR) $%))
> (ADDLABEL '$%I8)
> (DSKSETQ $%O8 65537)
> (ADDLABEL '$%O8)
> (DSKSETQ $%I9 '((|$Ferm|) 5))
> (ADDLABEL '$%I9)
> (DSKSETQ $%O9 4294967297)
> (ADDLABEL '$%O9)
> (DSKSETQ $%I10 '(($FACTOR) $%))
> (ADDLABEL '$%I10)
> (DSKSETQ $%O10 '((MTIMES SIMP FACTORED) 641 6700417))
> (ADDLABEL '$%O10)
> (DSKSETQ $%I11 '((|$Ferm|) 6))
> (ADDLABEL '$%I11)
> (DSKSETQ $%O11 18446744073709551617)
> (ADDLABEL '$%O11)
> (DSKSETQ $%I12 '(($FACTOR) $%))
> (ADDLABEL '$%I12)
> (DSKSETQ $%O12 '((MTIMES SIMP FACTORED) 274177 67280421310721))
> (ADDLABEL '$%O12)
> (DSKSETQ $%I13 '((|$Ferm|) 7))
> (ADDLABEL '$%I13)
> (DSKSETQ $%O13 340282366920938463463374607431768211457)
> (ADDLABEL '$%O13)
> (DSKSETQ $%I14 '(($FACTOR) $%))
> (ADDLABEL '$%I14)
> (DSKSETQ $%I15 '(($PRIMEP) 6))
> (ADDLABEL '$%I15)
> (DSKSETQ $%O15 NIL)
> (ADDLABEL '$%O15)
> (DSKSETQ $%I16 '(($PRIMEP) 7))
> (ADDLABEL '$%I16)
> (DSKSETQ $%O16 T)
> (ADDLABEL '$%O16)
> (DSKSETQ $%I17 '(($PRIMEP) ((|$Ferm|) 7)))
> (ADDLABEL '$%I17)
> (DSKSETQ $%O17 NIL)
> (ADDLABEL '$%O17)
> (DSKSETQ $%I18 '(($MAKELIST) (($PRIMEP) ((|$Fermat|) $K)) $K 1 10))
> (ADDLABEL '$%I18)
> (DSKSETQ $%I19 '(($MAKELIST) (($PRIMEP) ((|$Ferm|) $K)) $K 1 10))
> (ADDLABEL '$%I19)
> (DSKSETQ $%O19 '((MLIST SIMP) T T T T NIL NIL NIL NIL NIL NIL))
> (ADDLABEL '$%O19)
> (DSKSETQ $%I20 '(($MAKELIST) (($PRIMEP) ((|$Ferm|) $K)) $K 1 13))
> (ADDLABEL '$%I20)
> (DSKSETQ $%O20
>           '((MLIST SIMP) T T T T NIL NIL NIL NIL NIL NIL NIL NIL NIL))
> (ADDLABEL '$%O20)
> (DSKSETQ $%I21
>           '(($SAVE)
>             |&C:/Documents and Settings/Alberto 
> Marcone/Documenti/maxima/numeri Fermat.sav|
>             $ALL))
> (ADDLABEL '$%I21)
> (MDEFPROP |$Ferm|
>      ((LAMBDA) ((MLIST) $N) ((MPLUS) ((MEXPT) 2 ((MEXPT) 2 $N)) 1))
>      MEXPR)
> (ADD2LNC '((|$Ferm|) $N) $FUNCTIONS)
> (MDEFPROP $NSET (NIL $VERSION 1.21) $PROPS)
> (ADD2LNC '$NSET $PROPS)
> (DEFPROP ${ %{ VERB)
> (DEFPROP ${ &{ OP)
> (DEFPROP &{ ${ OPR)
> (ADD2LNC '&{ $PROPS)
> (DEFINE-SYMBOL '&{)
> (DEFPROP ${ DIMENSION-MATCH DIMENSION)
> (DEFPROP ${ ((#\{) #\}) DISSYM)
> (DEFPROP ${ MSIZE-MATCHFIX GRIND)
> (DEFPROP ${ PARSE-MATCHFIX NUD)
> (DEFPROP %{ DIMENSION-MATCH DIMENSION)
> (DEFPROP %{ ((#\{) #\}) DISSYM)
> (DEFPROP ${ $} MATCH)
> (MDEFPROP ${
>      ((LAMBDA) ((MLIST) ((MLIST) $L))
>       (($BUILDQ) ((MLIST) $L) (($SET) (($SPLICE) $L))))
>      MMACRO)
> (ADD2LNC '((${) ((MLIST) $L)) $MACROS)
> (MDEFPROP ${ T MLEXPRP)
> (DEFPROP $} &} OP)
> (DEFPROP &} $} OPR)
> (ADD2LNC '&} $PROPS)
> (DEFINE-SYMBOL '&})
> (DEFPROP $} 5 LBP)
> (DEFPROP %{ ${ NOUN)
> (DEFPROP $KRON_DELTA SIMP-KRON-DELTA OPERATORS)
> (ADD2LNC '$KRON_DELTA $PROPS)
> (DEFPROP $KRON_DELTA T OPERS)
> (ADD2LNC '$KRON_DELTA $PROPS)
> (DEFPROP $KRON_DELTA T $SYMMETRIC)
> (ADD2LNC '$KRON_DELTA $PROPS)
> (RESTORE-FACTS '((($KIND) $KRON_DELTA $SYMMETRIC)))
> (ADD2LNC '$KRON_DELTA $PROPS)
> (MDEFPROP $TRYLEVEL (NIL $MAXMIN 1) $PROPS)
> (ADD2LNC '$TRYLEVEL $PROPS)
> (MDEFPROP $MAXMIN (NIL $VERSION 1) $PROPS)
> (ADD2LNC '$MAXMIN $PROPS)
> (MDEFPROP $NUMMOD (NIL $VERSION 2) $PROPS)
> (ADD2LNC '$NUMMOD $PROPS)
> (DEFPROP $CONJUGATE SIMP-CONJUGATE OPERATORS)
> (ADD2LNC '$CONJUGATE $PROPS)
> (MDEFPROP $CONJUGATE (NIL $VERSION 1) $PROPS)
> (ADD2LNC '$CONJUGATE $PROPS)
> (DSKSETQ $BESTLENGTH 0)
> (DEFPROP $BESTLENGTH T SPECIAL)
> (ADD2LNC '$BESTLENGTH $PROPS)
> (DEFPROP $BESTLENGTH ASSIGN-MODE-CHECK ASSIGN)
> (ADD2LNC '$BESTLENGTH $PROPS)
> (DEFPROP $BESTLENGTH $FIXNUM MODE)
> (ADD2LNC '$BESTLENGTH $PROPS)
> (DSKSETQ $TRYLENGTH 0)
> (DEFPROP $TRYLENGTH T SPECIAL)
> (ADD2LNC '$TRYLENGTH $PROPS)
> (DEFPROP $TRYLENGTH ASSIGN-MODE-CHECK ASSIGN)
> (ADD2LNC '$TRYLENGTH $PROPS)
> (DEFPROP $TRYLENGTH $FIXNUM MODE)
> (ADD2LNC '$TRYLENGTH $PROPS)
> (DEFPROP %SIN $SIN NOUN)
> (DEFPROP %SIN SIMP-%SIN OPERATORS)
> (ADD2LNC '%SIN $PROPS)
> (DEFPROP %SIN
>           ((%SUM)
>            ((MTIMES) ((MEXPT) -1 *INDEX)
>             ((MEXPT) ((MFACTORIAL) ((MPLUS) ((MTIMES) 2 
> *INDEX) 1)) -1)
>             ((MEXPT) SP2VAR ((MPLUS) ((MTIMES) 2 *INDEX) 1)))
>            *INDEX 0 $INF)
>           SP2)
> (ADD2LNC '%SIN $PROPS)
> (MDEFPROP %SIN
>      (NIL $TYPE $TRIGONOMETRIC $COMPLEMENT_COF -1 $UNITCOF 1
>           $COMPLEMENT_FUNCTION %COS)
>      $PROPS)
> (ADD2LNC '%SIN $PROPS)
> (DEFPROP $SIN %SIN VERB)
> (DEFPROP %COS $COS NOUN)
> (DEFPROP %COS SIMP-%COS OPERATORS)
> (ADD2LNC '%COS $PROPS)
> (DEFPROP %COS
>           ((%SUM)
>            ((MTIMES) ((MEXPT) -1 *INDEX)
>             ((MEXPT) ((MFACTORIAL) ((MTIMES) 2 *INDEX)) -1)
>             ((MEXPT) SP2VAR ((MTIMES) 2 *INDEX)))
>            *INDEX 0 $INF)
>           SP2)
> (ADD2LNC '%COS $PROPS)
> (MDEFPROP %COS
>      (NIL $TYPE $TRIGONOMETRIC $COMPLEMENT_COF -1 $UNITCOF 1
>           $COMPLEMENT_FUNCTION %SIN)
>      $PROPS)
> (ADD2LNC '%COS $PROPS)
> (DEFPROP $COS %COS VERB)
> (DEFPROP %SINH $SINH NOUN)
> (DEFPROP %SINH SIMP-%SINH OPERATORS)
> (ADD2LNC '%SINH $PROPS)
> (DEFPROP %SINH
>           ((%SUM)
>            ((MTIMES)
>             ((MEXPT) ((MFACTORIAL) ((MPLUS) ((MTIMES) 2 
> *INDEX) 1)) -1)
>             ((MEXPT) SP2VAR ((MPLUS) ((MTIMES) 2 *INDEX) 1)))
>            *INDEX 0 $INF)
>           SP2)
> (ADD2LNC '%SINH $PROPS)
> (RESTORE-FACTS '((($KIND) %SINH $INCREASING) (($KIND) %SINH $ODDFUN)))
> (ADD2LNC '%SINH $PROPS)
> (MDEFPROP %SINH
>      (NIL $TYPE $HYPER_TRIGONOMETRIC $COMPLEMENT_COF 1 $UNITCOF -1
>           $COMPLEMENT_FUNCTION %COSH)
>      $PROPS)
> (ADD2LNC '%SINH $PROPS)
> (DEFPROP $SINH %SINH VERB)
> (DEFPROP %COSH $COSH NOUN)
> (DEFPROP %COSH SIMP-%COSH OPERATORS)
> (ADD2LNC '%COSH $PROPS)
> (DEFPROP %COSH
>           ((%SUM)
>            ((MTIMES) ((MEXPT) ((MFACTORIAL) ((MTIMES) 2 *INDEX)) -1)
>             ((MEXPT) SP2VAR ((MTIMES) 2 *INDEX)))
>            *INDEX 0 $INF)
>           SP2)
> (ADD2LNC '%COSH $PROPS)
> (RESTORE-FACTS '((($KIND) %COSH $POSFUN)))
> (ADD2LNC '%COSH $PROPS)
> (MDEFPROP %COSH
>      (NIL $TYPE $HYPER_TRIGONOMETRIC $COMPLEMENT_COF 1 $UNITCOF 1
>           $COMPLEMENT_FUNCTION %SINH)
>      $PROPS)
> (ADD2LNC '%COSH $PROPS)
> (DEFPROP $COSH %COSH VERB)
> (DEFPROP $LIST2 T SPECIAL)
> (ADD2LNC '$LIST2 $PROPS)
> (DEFPROP $PT T SPECIAL)
> (ADD2LNC '$PT $PROPS)
> (DEFPROP $YP T SPECIAL)
> (ADD2LNC '$YP $PROPS)
> (DEFPROP $YOLD T SPECIAL)
> (ADD2LNC '$YOLD $PROPS)
> (DEFPROP $%Q% T SPECIAL)
> (ADD2LNC '$%Q% $PROPS)
> (DEFPROP $YNEW T SPECIAL)
> (ADD2LNC '$YNEW $PROPS)
> (DEFPROP $METHOD T SPECIAL)
> (ADD2LNC '$METHOD $PROPS)
> (DEFPROP $%F% T SPECIAL)
> (ADD2LNC '$%F% $PROPS)
> (DEFPROP $%G% T SPECIAL)
> (ADD2LNC '$%G% $PROPS)
> (DSKSETQ $MSG1 '|&Not a proper differential equation|)
> (DEFPROP $MSG1 T SPECIAL)
> (ADD2LNC '$MSG1 $PROPS)
> (DSKSETQ $MSG2 '|&First order equation not linear in y'|)
> (DEFPROP $MSG2 T SPECIAL)
> (ADD2LNC '$MSG2 $PROPS)
> (DEFPROP $INTFACTOR T SPECIAL)
> (ADD2LNC '$INTFACTOR $PROPS)
> (DEFPROP $ODEINDEX T SPECIAL)
> (ADD2LNC '$ODEINDEX $PROPS)
> (DEFPROP $SINGSOLVE T SPECIAL)
> (ADD2LNC '$SINGSOLVE $PROPS)
> (ADD2LNC '$TRIGRULE0 $RULES)
> (MDEFPROP $TRIGRULE0 $DEFRULE $RULETYPE)
> (ADD2LNC '$TRIGRULE0 $PROPS)
> (MDEFPROP $TRIGRULE0
>      ((MEQUAL) ((%TAN SIMP) $A)
>       ((MTIMES SIMP) ((MEXPT SIMP) ((%COS SIMP) $A) -1)
>        ((%SIN SIMP) $A)))
>      $RULE)
> (ADD2LNC '$TRIGRULE0 $PROPS)
> (ADD2LNC '$TRIGRULE1 $RULES)
> (MDEFPROP $TRIGRULE1 $DEFRULE $RULETYPE)
> (ADD2LNC '$TRIGRULE1 $PROPS)
> (MDEFPROP $TRIGRULE1
>      ((MEQUAL) ((%TAN SIMP) $A)
>       ((MTIMES SIMP) ((MEXPT SIMP) ((%COS SIMP) $A) -1)
>        ((%SIN SIMP) $A)))
>      $RULE)
> (ADD2LNC '$TRIGRULE1 $PROPS)
> (ADD2LNC '$TRIGRULE2 $RULES)
> (MDEFPROP $TRIGRULE2 $DEFRULE $RULETYPE)
> (ADD2LNC '$TRIGRULE2 $PROPS)
> (MDEFPROP $TRIGRULE2
>      ((MEQUAL) ((%SEC SIMP) $A) ((MEXPT SIMP) ((%COS SIMP) $A) -1))
>      $RULE)
> (ADD2LNC '$TRIGRULE2 $PROPS)
> (ADD2LNC '$TRIGRULE3 $RULES)
> (MDEFPROP $TRIGRULE3 $DEFRULE $RULETYPE)
> (ADD2LNC '$TRIGRULE3 $PROPS)
> (MDEFPROP $TRIGRULE3
>      ((MEQUAL) ((%CSC SIMP) $A) ((MEXPT SIMP) ((%SIN SIMP) $A) -1))
>      $RULE)
> (ADD2LNC '$TRIGRULE3 $PROPS)
> (ADD2LNC '$TRIGRULE4 $RULES)
> (MDEFPROP $TRIGRULE4 $DEFRULE $RULETYPE)
> (ADD2LNC '$TRIGRULE4 $PROPS)
> (MDEFPROP $TRIGRULE4
>      ((MEQUAL) ((%COT SIMP) $A)
>       ((MTIMES SIMP) ((%COS SIMP) $A)
>        ((MEXPT SIMP) ((%SIN SIMP) $A) -1)))
>      $RULE)
> (ADD2LNC '$TRIGRULE4 $PROPS)
> (ADD2LNC '$HTRIGRULE1 $RULES)
> (MDEFPROP $HTRIGRULE1 $DEFRULE $RULETYPE)
> (ADD2LNC '$HTRIGRULE1 $PROPS)
> (MDEFPROP $HTRIGRULE1
>      ((MEQUAL) ((%TANH SIMP) $A)
>       ((MTIMES SIMP) ((MEXPT SIMP) ((%COSH SIMP) $A) -1)
>        ((%SINH SIMP) $A)))
>      $RULE)
> (ADD2LNC '$HTRIGRULE1 $PROPS)
> (ADD2LNC '$HTRIGRULE2 $RULES)
> (MDEFPROP $HTRIGRULE2 $DEFRULE $RULETYPE)
> (ADD2LNC '$HTRIGRULE2 $PROPS)
> (MDEFPROP $HTRIGRULE2
>      ((MEQUAL) ((%SECH SIMP) $A) ((MEXPT SIMP) ((%COSH SIMP) $A) -1))
>      $RULE)
> (ADD2LNC '$HTRIGRULE2 $PROPS)
> (ADD2LNC '$HTRIGRULE3 $RULES)
> (MDEFPROP $HTRIGRULE3 $DEFRULE $RULETYPE)
> (ADD2LNC '$HTRIGRULE3 $PROPS)
> (MDEFPROP $HTRIGRULE3
>      ((MEQUAL) ((%CSCH SIMP) $A) ((MEXPT SIMP) ((%SINH SIMP) $A) -1))
>      $RULE)
> (ADD2LNC '$HTRIGRULE3 $PROPS)
> (ADD2LNC '$HTRIGRULE4 $RULES)
> (MDEFPROP $HTRIGRULE4 $DEFRULE $RULETYPE)
> (ADD2LNC '$HTRIGRULE4 $PROPS)
> (MDEFPROP $HTRIGRULE4
>      ((MEQUAL) ((%COTH SIMP) $A)
>       ((MTIMES SIMP) ((%COSH SIMP) $A)
>        ((MEXPT SIMP) ((%SINH SIMP) $A) -1)))
>      $RULE)
> (ADD2LNC '$HTRIGRULE4 $PROPS)
> (SETQ $LINENUM 21)
> (ADD2LNC '$INTEGERVALUED $FEATURES)
> --------------------------------------------------------------
> --------------------
> 
> and here is the result of my attempt to open it:
> 
> (%i1) :lisp (load "C://Documents and Settings//alberto//My 
> Documents//maxima//numeri Fermat.sav");
> Maxima encountered a Lisp error:
>   Error in DEFINE-SYMBOL [or a callee]: &{ is not of type SEQUENCE.
> Automatically continuing.
> To reenable the Lisp debugger set *debugger-hook* to nil.
> 
> 
> Thanks,
> Alberto
> -- 
> Alberto Marcone                       alberto.marcone at dimi.uniud.it
> Dip. di Matematica e Informatica
> Universita' di Udine                  tel: +39-0432-558482
> via delle Scienze 206                 fax: +39-0432-558499
> 33100 Udine
> Italy                                 
> http://www.dimi.uniud.it/marcone/
> _______________________________________________
> Maxima mailing list
> Maxima at math.utexas.edu
> http://www.math.utexas.edu/mailman/listinfo/maxima
>