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 f6c57693dbb5c9db6eea7ddee51012696f488aae..566a2fea293b6693225af28e7034ed9d06c1441b 100644 (file)
--- 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