From: David Vazquez <davazp@gmail.com>
Date: Tue, 8 Jan 2013 00:54:19 +0000 (+0000)
Subject: Indent use join instead of !reduce #'concat-two
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c66ee9fd9c5a904d7b6dccad31083666279d51c4;p=jscl.git

Indent use join instead of !reduce #'concat-two
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index be51b2d..a683240 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -450,7 +450,7 @@
 
 ;;; 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)))