X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/lisp/blobdiff_plain/3cb9d624f65d603d49bc48bb78af24145615a63a..ea87c989d51bfd4b64d2a802f87216dfce551a76:/str.lisp diff --git a/str.lisp b/str.lisp index 5cf05aa..a943bae 100644 --- a/str.lisp +++ b/str.lisp @@ -37,7 +37,7 @@ (defun join-strings (del strs) (with-output-to-string (s) (when strs (loop - (princ (stringify (pop strs)) s) + (princ (stringify (pop strs)) s) (unless strs (return)) (princ del s)))))