[oct-cvs] Oct commit: oct qd-format.lisp

[rtoy]

Update of /project/oct/cvsroot/oct
In directory clnet:/tmp/cvs-serv15853

Modified Files:
	qd-format.lisp 
Log Message:
Add CL package qualifier for DECF and INCF.


--- /project/oct/cvsroot/oct/qd-format.lisp	2007/08/27 17:49:19	1.5
+++ /project/oct/cvsroot/oct/qd-format.lisp	2007/08/29 14:37:42	1.6
@@ -73,7 +73,7 @@
 		(qdi::qd-to-string (qd-value num) spaceleft fdig k fmin)
 	      (when (and d (zerop d)) (setq tpoint nil))
 	      (when w 
-		(decf spaceleft flen)
+		(cl:decf spaceleft flen)
 		;; See CLHS 22.3.3.2.  "If the parameter d is
 		;; omitted, ... [and] if the fraction to be
 		;; printed is zero then a single zero digit should
@@ -82,10 +82,10 @@
 		;; add an extra 0 digit later.
 		(when (and (null d) (char= (aref fstr (1- flen)) #\.))
 		  (setf add-zero-p t)
-		  (decf spaceleft))
+		  (cl:decf spaceleft))
 		(when lpoint
 		  (if (or (> spaceleft 0) tpoint)
-		      (decf spaceleft)
+		      (cl:decf spaceleft)
 		      (setq lpoint nil)))
 		(when (and tpoint (<= spaceleft 0))
 		  (setq tpoint nil)))