From: Russ Tyndall <russ@acceleration.net>
Date: Wed, 20 Jan 2010 22:49:34 +0000 (-0500)
Subject: fixed a bug where it was ignoring the new parameters passed in on a setf-er
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=f3430ff34ef6631daf20cb9c69ecbc7ad84d14df;hp=6828cb461404126aa0c334fe2b669d435304f73e

fixed a bug where it was ignoring the new parameters passed in on a setf-er
---

diff --git a/sql/command-object.lisp b/sql/command-object.lisp
index f6c5769..566a2fe 100644
--- a/sql/command-object.lisp
+++ b/sql/command-object.lisp
@@ -40,10 +40,10 @@
   " This causes the semantics to match cl-sql instead of cl-postgresql
   "
   (setf (slot-value o 'parameters)
-	(loop for p in (parameters o)
-	      collect (cond ((null p) :null)
-			    ((member p (list :false :F)) nil)
-			    (T p)))))
+	(loop for p in new
+	      collecting (cond ((null p) :null)
+			       ((member p (list :false :F)) nil)
+			       (T p)))))
 
 (defun reset-command-object (co)
   "Resets the command object to have no name and to be unprepared