[Maxima-commits] CVS: maxima/src cl-info.lisp,1.12,1.13

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory sc8-pr-cvs1:/tmp/cvs-serv9574/src

Modified Files:
	cl-info.lisp 
Log Message:
Get rid of duplicated GET-MATCH function.


Index: cl-info.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/cl-info.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- cl-info.lisp	22 Feb 2003 10:01:54 -0000	1.12
+++ cl-info.lisp	7 Mar 2003 18:37:30 -0000	1.13
@@ -205,9 +205,6 @@
 	 )
       tem)))
 
-(defun get-match (string i)
-  (subseq string (match-beginning i) (match-end i)))
-
 (defun string-concatenate (&rest strings)
   (apply #'concatenate 'string strings))