[Maxima-commits] CVS: maxima/src suprv1.lisp,1.76,1.77

[Andrej V. <an...@us...>]

Update of /cvsroot/maxima/maxima/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv24735

Modified Files:
	suprv1.lisp 
Log Message:
Fixed checklabel: if the argument was a string, the function did
not work correctly. The change is copied from makelabel.

Fixes bug 2585332.


Index: suprv1.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/src/suprv1.lisp,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -d -r1.76 -r1.77
--- suprv1.lisp	10 Feb 2009 05:42:06 -0000	1.76
+++ suprv1.lisp	28 Feb 2009 19:11:35 -0000	1.77
@@ -194,7 +194,7 @@
 (defun checklabel (x)	; CHECKLABEL returns T iff label is not in use
   (not (or $nolabels
 	   (= $linenum 0)
-	   (boundp (intern (format nil "~a~a"x $linenum))))))
+	   (boundp ($concat '|| x $linenum)))))
 
 (defun gctimep (timep tim)
   (cond ((and (eq timep '$all) (not (zerop tim))) (princ "Totaltime= ") t)