r11418: 30 Dec 2006 Kevin Rosenberg <kevin@rosenberg.net>

[clsql.git] / sql / expressions.lisp

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index cd2d768c6755391dbc36bfe0cae613b8378dffa8..93c97d94d8731924210e6c761b482024c859592e 100644 (file)
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -390,7 +390,7 @@
   (:documentation "An SQL between expression."))
 
 (defmethod output-sql ((expr sql-between-exp) database)
-  (with-slots (name args)
+  (with-slots (args)
       expr
     (output-sql (first args) database)
     (write-string " BETWEEN " *sql-stream*)