aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Pouar <pouar@pouar.net>2020-07-15 14:13:01 -0500
committerGravatar Pouar <pouar@pouar.net>2020-07-15 14:13:01 -0500
commit5607bf3d85f1bdd7e624e37515cf57200731afe5 (patch)
tree8aafe178f33e371bdc328ca11cbee565d8d62774
parentrename yadfa::element-type-metaclass to yadfa::element-type-class (diff)
decided to return something more descriptive here
-rw-r--r--core/libexec.lisp9
1 files changed, 4 insertions, 5 deletions
diff --git a/core/libexec.lisp b/core/libexec.lisp
index 316615b..c648c10 100644
--- a/core/libexec.lisp
+++ b/core/libexec.lisp
@@ -160,10 +160,9 @@
((eql t) `(,(a:make-gensym sym) element-type))
((and symbol (not keyword)) `(,(a:make-gensym sym) ,arg))
(t (error 'simple-error :format-control "Invalid argument ~s" :format-arguments `(,arg))))))
- `(progn (defmethod type-match (,(arg source 'source)
- ,(arg target 'target))
- ,@return)
- t)))
+ `(defmethod type-match (,(arg source 'source)
+ ,(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)
@@ -180,7 +179,7 @@
(collect `(setf (slot-value (find-class ',name) 'name) ,(if (eq option-name :element-name)
(second class-option)
nil)))))
- t))
+ (find-class ',name)))
(defunassert get-positions-of-type (type list)
(type type-specifier
list list)