Simplifications in compiler macro for TYPEP

parent 738d04bd
......@@ -86,8 +86,7 @@
;;
;; Complex types defined with DEFTYPE.
((and (atom type)
(get-sysprop type 'SI::DEFTYPE-DEFINITION)
(setq function (get-sysprop type 'SI::DEFTYPE-DEFINITION)))
(setq function (get-sysprop type 'SI::DEFTYPE-DEFINITION)))
(expand-typep form object `',(funcall function) env))
;;
;; No optimizations that take up too much space unless requested.
......@@ -143,8 +142,8 @@
;; (SATISFIES predicate)
((and (eq first 'SATISFIES)
(= (list-length type) 2)
(symbolp (second type)))
`(function ,object))
(symbolp (setf function (second type))))
`(,function ,object))
;;
;; Complex types with arguments.
((setf rest (rest type)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment