Use pop and concatf in basic format

diff --git a/src/print.lisp b/src/print.lisp
index 79a5359..f0752e9 100644 (file)
--- 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