From: David Vázquez <davazp@gmail.com>
Date: Thu, 2 May 2013 23:00:19 +0000 (+0100)
Subject: Use pop and concatf in basic format
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0c6d6e73af9834ba1eb5d7c5e4325006febfa295;p=jscl.git

Use pop and concatf in basic format
---

diff --git a/src/print.lisp b/src/print.lisp
index 79a5359..f0752e9 100644
--- a/src/print.lisp
+++ b/src/print.lisp
@@ -99,12 +99,12 @@
 	    (let ((next (char fmt (incf i))))
 	      (cond
 	       ((char= next #\~)
-		(setq res (concat res "~")))
+		(concatf res "~"))
 	       ((char= next #\%)
-		(setq res (concat res *newline*)))
+		(concatf res *newline*))
 	       (t
-		(setq res (concat res (format-special next (car arguments))))
-		(setq arguments (cdr arguments)))))
+		(concatf res (format-special next (car arguments)))
+		(pop arguments))))
 	  (setq res (concat res (char-to-string c))))
 	(incf i)))
     (if destination