mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-13 04:42:13 -08:00
Code Issues Projects Releases Packages Wiki Activity

Simplifications in compiler macro for TYPEP

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-06-28 21:37:07 +02:00
parent 738d04bd40
commit 2cacf0aefc
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/cmp/cmpopt.lsp
View file

@ -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)