cl-algebraic-data-type
cl-algebraic-data-type copied to clipboard
Subtype relation and include
(defdata bool true false)
(defdata (fuzzy-bool :include bool)
(fuzzy (real (0) (1))))
(typep (fuzzy 0.1) 'bool)
;; => T
(typep true 'fuzzy-bool)
;; => NIL
Is this really intended behavior?