From f3430ff34ef6631daf20cb9c69ecbc7ad84d14df Mon Sep 17 00:00:00 2001 From: Russ Tyndall Date: Wed, 20 Jan 2010 17:49:34 -0500 Subject: [PATCH] fixed a bug where it was ignoring the new parameters passed in on a setf-er --- sql/command-object.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 -- 2.34.1