From: Andrej V. <an...@us...> - 2009-01-04 08:59:41
|
Update of /cvsroot/maxima/maxima/share/contrib In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv4879 Modified Files: simplifying.lisp Log Message: Added declaration for ignored argument. Index: simplifying.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/share/contrib/simplifying.lisp,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- simplifying.lisp 3 May 2007 18:22:49 -0000 1.1 +++ simplifying.lisp 4 Jan 2009 08:59:36 -0000 1.2 @@ -86,6 +86,7 @@ ;;; The generic simplifying function for user simplification functions (defun user-simplifying (l ignore simpflag) + (declare (ignore ignore)) (let* ((op (caar l)) (simplifier (get op 'user-simplifying)) ;; args are (re)simplified *outside* the simplification fnc |