[Maxima-commits] CVS: maxima/src init-cl.lisp, 1.94, 1.94.2.1 max_ext.lisp, 1.21.2.1, 1.21.2.2 mmacro.lisp, 1.8, 1.8.2.1

[Robert D. <rob...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs16:/tmp/cvs-serv12538/src

Modified Files:
      Tag: RELEASE-5_12_0-BRANCH
	init-cl.lisp max_ext.lisp mmacro.lisp 
Log Message:
Various minor changes to address some release issues and other stuff.
All of these changes have already been committed on the trunk.

Index: init-cl.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/init-cl.lisp,v
retrieving revision 1.94
retrieving revision 1.94.2.1
diff -u -d -r1.94 -r1.94.2.1
--- init-cl.lisp	1 Apr 2007 22:46:42 -0000	1.94
+++ init-cl.lisp	19 Apr 2007 02:56:18 -0000	1.94.2.1
@@ -312,6 +312,7 @@
 	 "contrib/gentran"
 	 "contrib/gentran/test"
 	 "contrib/Grobner"
+     "contrib/levin"
 	 "contrib/lurkmathml"
 	 "contrib/maximaMathML"
 	 "contrib/mcclim"

Index: max_ext.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/max_ext.lisp,v
retrieving revision 1.21.2.1
retrieving revision 1.21.2.2
diff -u -d -r1.21.2.1 -r1.21.2.2
--- max_ext.lisp	18 Apr 2007 21:00:08 -0000	1.21.2.1
+++ max_ext.lisp	19 Apr 2007 02:56:18 -0000	1.21.2.2
@@ -154,6 +154,8 @@
        $tokens ))
   (setf (get f 'autoload) "stringproc"))
 
+(auto-mspec '$romberg "romberg")
+
 (dolist (f       
      '($read_matrix
        $read_lisp_array

Index: mmacro.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/mmacro.lisp,v
retrieving revision 1.8
retrieving revision 1.8.2.1
diff -u -d -r1.8 -r1.8.2.1
--- mmacro.lisp	27 Mar 2007 20:40:50 -0000	1.8
+++ mmacro.lisp	19 Apr 2007 02:56:18 -0000	1.8.2.1
@@ -194,7 +194,7 @@
 
 ;; emulating simpmdef (for mdefine) in jm;simp
 (defmfun simpmdefmacro (x *ignored* simp-flag)
-  (delacre (ignore *ignored* simp-flag))
+  (declare (ignore *ignored* simp-flag))
   (cons '(mdefmacro simp) (cdr x)))
 
 (defun displace (x y)