Corrected concat.

Pascal J. Bourguignon [2018-12-09 10:51]
Corrected concat.
Filename
common-lisp/cesarum/llrbtree.lisp
driver/driver.lisp
tools/script.lisp
diff --git a/common-lisp/cesarum/llrbtree.lisp b/common-lisp/cesarum/llrbtree.lisp
index 636a818..7116f70 100644
--- a/common-lisp/cesarum/llrbtree.lisp
+++ b/common-lisp/cesarum/llrbtree.lisp
@@ -691,9 +691,9 @@ RETURN: true if there was such an entry, or false otherwise.
   (with-output-to-string (*standard-output*)
     (dolist (item items)
       (typecase item
-        (string   (write-string item))
-        (sequence (write-sequence item))
-        (t        (with-standard-io-syntax (format t "~A" item)))))))
+        (string   (write-string   item *standard-output*))
+        (sequence (write-sequence item *standard-output*))
+        (t        (with-standard-io-syntax (format *standard-output* "~A" item)))))))

 (defun string-butlast (str)
   (if (plusp (length str))
diff --git a/driver/driver.lisp b/driver/driver.lisp
index 4975acb..c543c2f 100644
--- a/driver/driver.lisp
+++ b/driver/driver.lisp
@@ -1053,9 +1053,9 @@ that are accessible by the user."
   (with-output-to-string (*standard-output*)
     (dolist (item items)
       (typecase item
-        (string   (write-string item))
-        (sequence (write-sequence item))
-        (t        (with-standard-io-syntax (format t "~A" item)))))))
+        (string   (write-string   item *standard-output*))
+        (sequence (write-sequence item *standard-output*))
+        (t        (with-standard-io-syntax (format *standard-output* "~A" item)))))))

 (defun mapconcat (function sequence separator)
   (etypecase sequence
diff --git a/tools/script.lisp b/tools/script.lisp
index 69af582..1f8f59e 100644
--- a/tools/script.lisp
+++ b/tools/script.lisp
@@ -719,9 +719,9 @@ that are accessible by the user."
   (with-output-to-string (*standard-output*)
     (dolist (item items)
       (typecase item
-        (string   (write-string item))
-        (sequence (write-sequence item))
-        (t        (with-standard-io-syntax (format t "~A" item)))))))
+        (string   (write-string   item *standard-output*))
+        (sequence (write-sequence item *standard-output*))
+        (t        (with-standard-io-syntax (format *standard-output* "~A" item)))))))

 (defun mapconcat (function sequence separator)
   ;; 1- mon_key on irc://irc.freenode.org/#lisp signaled that nil are
ViewGit