X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/85281029204a031b47baa1fd1777d4c0b08d48bf..e8e743d7170e308377c728ab1ce41b752317b1ec:/src/meta-model.lisp?ds=inline

diff --git a/src/meta-model.lisp b/src/meta-model.lisp
index 58b3fd4..dead63e 100644
--- a/src/meta-model.lisp
+++ b/src/meta-model.lisp
@@ -52,8 +52,9 @@
 
 (defmacro def-base-class (name (model) &rest args)
   (let ((i (make-instance model)))
-    `(prog1
-         (eval ,(def-base-class-expander i name args))
+   `(progn
+      (eval-when (:compile-toplevel :load-toplevel :execute)
+       ,(def-base-class-expander i :clsql name args))
        (defmethod meta-model.metadata ((m ,name))
 	 ',(meta-model.metadata i)))))