Commits

Robert Smith committed 8b9c5b5

fix STRCAT-LIST

Comments (0)

Files changed (1)

   (with-output-to-string (stream)
     (if key
         (dolist (s strings)
-          (princ s stream))
+          (princ (funcall key s) stream))
         (dolist (s strings)
-          (princ (funcall key s) stream)))))
+          (princ s stream)))))
 
 (defun strcat (&rest strings)
   "Concatenate all strings in ARGS. Useful for when you need to use