Update of /cvsroot/maxima/maxima/share/linearalgebra
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv15739/share/linearalgebra
Modified Files:
mring.lisp
Log Message:
Quiet SBCL compiler warnings by throwing in (DECLARE (IGNORE ...)) at appropriate places.
Index: mring.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/linearalgebra/mring.lisp,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- mring.lisp 27 Feb 2007 04:24:41 -0000 1.18
+++ mring.lisp 16 Jun 2007 17:16:07 -0000 1.19
@@ -158,7 +158,7 @@
:name '$crering
:coerce-to-lisp-float nil
:abs #'(lambda (s) (simplify (mfuncall '$cabs s)))
- :great #'(lambda (a b) (eq t (meqp b 0)))
+ :great #'(lambda (a b) (declare (ignore a)) (eq t (meqp b 0)))
:add #'add
:div #'div
:rdiv #'div
@@ -181,7 +181,7 @@
:name '$generalring
:coerce-to-lisp-float nil
:abs #'(lambda (s) (simplify (mfuncall '$cabs s)))
- :great #'(lambda (a b) (eq t (meqp b 0)))
+ :great #'(lambda (a b) (declare (ignore a)) (eq t (meqp b 0)))
:add #'(lambda (a b) ($rectform (add a b)))
:div #'(lambda (a b) ($rectform (div a b)))
:rdiv #'(lambda (a b) ($rectform (div a b)))
@@ -290,7 +290,7 @@
:name '$noncommutingring
:coerce-to-lisp-float nil
:abs #'(lambda (s) (simplify (mfuncall '$cabs s)))
- :great #'(lambda (a b) (eq t (meqp b 0)))
+ :great #'(lambda (a b) (declare (ignore a)) (eq t (meqp b 0)))
:add #'(lambda (a b) (add a b))
:div #'(lambda (a b) (progn
(let (($matrix_element_mult '&.)
|