From 0c6d6e73af9834ba1eb5d7c5e4325006febfa295 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 3 May 2013 00:00:19 +0100 Subject: [PATCH] Use pop and concatf in basic format --- src/print.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 1.7.10.4