aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-07-17 16:32:39 -0500
committerGravatar Pouar <pouar@pouar.net>2020-07-17 16:33:31 -0500
commiteb6548c73c8ce49afb929e80ba7899b43ee74727 (patch)
treed569712e631548e01ad369fe4877141ab17addee
parentindention (diff)
avoid warnings
-rw-r--r--core/libexec.lisp14
1 files changed, 7 insertions, 7 deletions
diff --git a/core/libexec.lisp b/core/libexec.lisp
index c648c10..e8b4044 100644
--- a/core/libexec.lisp
+++ b/core/libexec.lisp
@@ -164,17 +164,17 @@
,(arg target 'target))
,@return)))
(defmacro define-type (name (&rest superclasses) (&rest slot-specifiers) &rest class-options)
- `(progn (defclass ,name (,@superclasses element-type) ,slot-specifiers
- (:metaclass element-type-class)
- ,@(iter (for class-option in class-options)
- (unless (s:memq (car class-option) '(:super-effective :not-very-effective :no-effect :element-name))
- (collect class-option))))
+ `(progn (s:eval-always (defclass ,name (,@superclasses element-type) ,slot-specifiers
+ (:metaclass element-type-class)
+ ,@(iter (for class-option in class-options)
+ (unless (s:memq (car class-option) '(:super-effective :not-very-effective :no-effect :element-name))
+ (collect class-option)))))
,@(iter (for class-option in class-options)
(let ((option-name (car class-option)))
(when (s:memq option-name '(:super-effective :not-very-effective :no-effect))
(appending (iter (for target in (cdr class-option))
- (collect `(unless (find-class ',target nil)
- (defclass ,target (element-type) () (:metaclass element-type-class))))
+ (collect `(s:eval-always (unless (find-class ',target nil)
+ (defclass ,target (element-type) () (:metaclass element-type-class)))))
(collect `(defmatch ,name ,target ,option-name)))))
(collect `(setf (slot-value (find-class ',name) 'name) ,(if (eq option-name :element-name)
(second class-option)