[Maxima-commits] CVS: maxima/share/contrib/unit unit-functions.lisp,1.5,1.6

[Cliff Y. <sta...@us...>]

Update of /cvsroot/maxima/maxima/share/contrib/unit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5078

Modified Files:
	unit-functions.lisp 
Log Message:
Opps, had some leftover cruft.


Index: unit-functions.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/contrib/unit/unit-functions.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- unit-functions.lisp	21 May 2005 08:45:03 -0000	1.5
+++ unit-functions.lisp	21 May 2005 08:45:53 -0000	1.6
@@ -225,11 +225,3 @@
 	     (list '(mminus) (list (car form) (minus (cadr form)) (caddr form)))
 	     (cons (car form) (cdr form))))
 	(t form)))
-(defun testing1 (form)
-   (destructuring-bind ((mplus) ((mtimes1) (val1) (temp1)) 
-                                ((mtimes2) (val2) (temp2)) &rest more) form 
-			(print val1)
-			(print val2)
-			(print temp1)
-			(print temp2)
-			))