eval-when :wave-dead-chicken. this is part of the EVAL mess that i need to clean up.

[clinton/lisp-on-lines.git] / src / backend / clsql.lisp

diff --git a/src/backend/clsql.lisp b/src/backend/clsql.lisp
index 6de317b..6d84dc7 100644 (file)
--- a/src/backend/clsql.lisp
+++ b/src/backend/clsql.lisp
@@ -263,10 +263,11 @@ creates a clsql view-class"
              (when (equalp (car exp) (sql->sym table))
                (setf slots (cons (cdr exp) slots))))
            slots)))
-    `(def-view-class/meta ,name
-         ()
-       ,(append table-slots join-slots)
-       ,@(when model-name (list :model-name model-name)))))
+    `(eval-when (:compile-toplevel :load-toplevel :execute)
+      (def-view-class/meta ,name
+         ()
+       ,(append table-slots join-slots)
+       ,@(when model-name (list :model-name model-name))))))
 
 (def-compare-expr standard-db-object expr-= sql-=)
 (def-compare-expr standard-db-object expr-< sql-<)