Subject: Get rid of type-error redef warning on Clisp
From: Raymond Toy
Date: 03 Dec 2001 17:03:37 -0500
sloop.lisp redefines Clisp's type-error function. The following patch
simply renames it from type-error to sloop-type-error, which is only
used in sloop.lisp anyway.
Clisp no longer complains about it.
Ray
--- maxima-pre59/src/sloop.lisp Fri Feb 23 21:21:59 2001
+++ maxima-cvs-1025/src/sloop.lisp Mon Dec 3 16:58:12 2001
@@ -592,7 +592,7 @@
(cond (type (list 'the type symbol ))
(t symbol)))
-(defun type-error ()
+(defun sloop-type-error ()
(error "While checking a bound of a sloop, I found the wrong type
for something in sloop::*automatic-declarations*.
Perhaps your limit is wrong?
@@ -640,7 +640,7 @@
'the-value *type-test-limit*)
(or chk value))
',type)
- (type-error))
+ (sloop-type-error))
,(or chk value)))))))
(t (list value))))
@@ -836,7 +836,7 @@
(or inc 1))))
(t `(> ,var ,(+ most-negative-fixnum
(or inc 1)))))
- (type-error))
+ (sloop-type-error))
*loop-increment*)
)))))