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/