Menu
▾
▴
#71 load("set") fails
load("set") fails with CVS of 2002-06-26 (today) on
cygwin with clisp-2.28
I don't thing it has worked recently.
Maxima 5.9.0pre-cvs (with enhancements by W.
Schelter).
Licensed under the GNU Public License (see file
COPYING)
(C1) load("set");
;; Loading file /usr/local/share/maxima/5.9.0pre-
cvs/share/misc/set.lisp ...
** error while printing ERROR message **
Load failed for ~m
-- an error. Quitting. To debug this try DEBUGMODE
(TRUE);)
(C2)
Logged In: YES
user_id=28849
Errors are caused by misplaced declare statements. The
following patch fixes that problem for me.
--- set.lisp 8 May 2000 06:09:43 -0000 1.1.1.1
+++ set.lisp 28 Jun 2002 16:09:08 -0000
@@ -24,10 +24,13 @@
;auxiliary functions: XEROX
+#-cl
(DECLARE #-NIL(MAPEX T)
(SPECIAL CANONLT $CANONLT SUPERCANONLT)
#-NIL(*FEXPR ERRM1 ERRM2)
)
+#+cl
+(declaim (special canonlt $canonlt supercanonlt))
(DEFmacro XEROX (X)
@@ -365,7 +368,7 @@
-#-NIL(DECLARE (READ) (READ))
+#-(or NIL cl)(DECLARE (READ) (READ))
(DEFUN INLIST (X) (CDR X))
Logged In: YES
user_id=365569
I have tried this patch, but it doesn'r work for me.
With current CVS and clisp-2.28 on cygwin I get
(C1) load("set");
;; Loading file /usr/local/share/maxima/5.9.0pre-
cvs/share/misc/set.lisp ...
Load failed for /usr/local/share/maxima/5.9.0pre-
cvs/share/misc/set.lisp
-- an error. Quitting. To debug this try DEBUGMODE
(TRUE);)
I will read up on the debugger and see what I can find out.
Logged In: YES
user_id=365569
I have tried this patch, but it doesn'r work for me.
With current CVS and clisp-2.28 on cygwin I get
(C1) load("set");
;; Loading file /usr/local/share/maxima/5.9.0pre-
cvs/share/misc/set.lisp ...
Load failed for /usr/local/share/maxima/5.9.0pre-
cvs/share/misc/set.lisp
-- an error. Quitting. To debug this try DEBUGMODE
(TRUE);)
I will read up on the debugger and see what I can find out.
Logged In: YES
user_id=28849
I see that it's loading the file from the installation
directory. Did you re-install after patching?
Logged In: YES
user_id=365569
I did reinstall after patching - just checked.
Here is the diff from my tree. It looks the same to me.
--- set.lisp 8 May 2000 06:09:43 -0000 1.1.1.1
+++ set.lisp 1 Jul 2002 23:33:19 -0000
@@ -23,12 +23,13 @@
;auxiliary functions: XEROX
-
+#-cl
(DECLARE #-NIL(MAPEX T)
(SPECIAL CANONLT $CANONLT SUPERCANONLT)
#-NIL(*FEXPR ERRM1 ERRM2)
)
-
+#+cl
+(declaim (special canonlt $canonlt supercanonlt))
(DEFmacro XEROX (X)
(LIST 'APPEND (CADR X) NIL))
@@ -364,8 +365,7 @@
(T ($ORDERLESSP X Y)))))))
-
-#-NIL(DECLARE (READ) (READ))
+#-(or NIL cl)(DECLARE (READ) (READ))
(DEFUN INLIST (X) (CDR X))
Logged In: YES
user_id=28849
Ok, try the following patch. Clisp mentions quite a few
errors, which this patch fixes. However, I'm not sure I got
the defmacros done correctly.
diff -u -r1.1.1.1 set.lisp
--- set.lisp 8 May 2000 06:09:43 -0000 1.1.1.1
+++ set.lisp 2 Jul 2002 13:39:12 -0000
@@ -24,19 +24,26 @@
;auxiliary functions: XEROX
+#-cl
(DECLARE #-NIL(MAPEX T)
(SPECIAL CANONLT $CANONLT SUPERCANONLT)
#-NIL(*FEXPR ERRM1 ERRM2)
)
+#+cl
+(declaim (special canonlt $canonlt supercanonlt))
+#-cl
(DEFmacro XEROX (X)
(LIST 'APPEND (CADR X) NIL))
+#+cl
+(defmacro xerox (x)
+ `(append (cadr ,x) nil))
;XEROX COPIES A LIST.
-(DEFUN INTERSECT+ N
+(DEFUN INTERSECT+ (N)
(DO ((X (LISTIFY N) (DO ((Y X (CDDR Y))
(A NIL (CONS (INTERSECT2 (CAR Y) (CADR
Y)) A)))
((NULL Y) A))))
@@ -59,7 +66,7 @@
-(DEFUN UNION+ N
+(DEFUN UNION+ (N)
(DO ((X (LISTIFY N) (DO ((Y X (CDDR Y))
(A NIL (CONS (UNION2 (CAR Y) (CADR Y)) A)))
((NULL Y) A))))
@@ -191,19 +198,26 @@
+#-cl
(DEFMACRO INLIST (X)
(CONS 'CDR (CDR X)))
+#+cl
+(defmacro inlist (x)
+ `(cdr (cdr ,x)))
+#-cl
(DEFMACRO OUTLIST (X)
(LIST 'CONS
(LIST 'QUOTE
(LIST 'MLIST 'SIMP))
(CADR X)))
+#+cl
+(defmacro outlist (x)
+ `(cons '(mlist simp) (cadr ,x)))
-
-(DEFUN $INTERSECT N
+(DEFUN $INTERSECT (N)
((LAMBDA (X CANONLT SUPERCANONLT)
(COND ((LLISTP X)
(CANONLT-SET)
@@ -216,7 +230,7 @@
$CANONLT))
-(DEFUN $UNION N
+(DEFUN $UNION (N)
((LAMBDA (X CANONLT SUPERCANONLT)
(COND ((LLISTP X)
(CANONLT-SET)
@@ -365,7 +379,7 @@
-#-NIL(DECLARE (READ) (READ))
+#-(or NIL cl)(DECLARE (READ) (READ))
(DEFUN INLIST (X) (CDR X))
Logged In: YES
user_id=501686
I don't know if these problems with set.lisp were ever
resolved, however, it doesn't matter since set.lisp is
superseded by nset.lisp, and nset.lisp is part of the Maxima
core (no longer a share file).