From 6d92dc251f56e0a3c7783f3e68623874bb82704f Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Sun, 11 May 2014 18:49:31 +0200
Subject: [PATCH] Fix another useless use of loop.

---
 src/pgsql/copy-format.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/pgsql/copy-format.lisp b/src/pgsql/copy-format.lisp
index 17e992d..6feabbd 100644
--- a/src/pgsql/copy-format.lisp
+++ b/src/pgsql/copy-format.lisp
@@ -13,7 +13,7 @@
 ;;; call here.
 ;;;
 (defun format-vector-row (stream row
-                          &optional (transforms (loop for c across row collect nil)))
+                          &optional (transforms (make-list (length row))))
   "Add a ROW in the STREAM, formating ROW in PostgreSQL COPY TEXT format.
 
 See http://www.postgresql.org/docs/9.2/static/sql-copy.html#AEN66609 for