Indent use join instead of !reduce #'concat-two
authorDavid Vazquez <davazp@gmail.com>
Tue, 8 Jan 2013 00:54:19 +0000 (00:54 +0000)
committerDavid Vazquez <davazp@gmail.com>
Tue, 8 Jan 2013 00:54:19 +0000 (00:54 +0000)
ecmalisp.lisp

index be51b2d..a683240 100644 (file)
 
 ;;; Like CONCAT, but prefix each line with four spaces.
 (defun indent (&rest string)
-  (let ((input (!reduce #'concat string "")))
+  (let ((input (join string)))
     (let ((output "")
           (index 0)
           (size (length input)))