Commit 5cec7e21 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected concat.

parent a28a4e21
......@@ -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))
......
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment