- `(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))))))