mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 17:30:37 -07:00
Code Issues Projects Releases Packages Wiki Activity

deftype: use destructure directly, remove unused arg

Browse source 
Removes ENV arg, which were ignored by using destructure directly.

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-08-18 15:39:20 +02:00
parent c70894f124
commit a2ceed9cb3
2 changed files with 59 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpopt.lsp
View file

@ -80,7 +80,7 @@
;; Complex types defined with DEFTYPE.
((and (atom type)
(setq function (get-sysprop type 'SI::DEFTYPE-DEFINITION)))
(expand-typep form object `',(funcall function nil nil) env))
(expand-typep form object `',(funcall function nil) env))
;;
;; No optimizations that take up too much space unless requested.
((not (policy-inline-type-checks))
@ -147,7 +147,7 @@
;;
;; Complex types with arguments.
((setf function (get-sysprop first 'SI::DEFTYPE-DEFINITION))
(expand-typep form object `',(funcall function rest nil) env))
(expand-typep form object `',(funcall function rest) env))
(t
form))))
@ -244,7 +244,7 @@
;; Complex types defined with DEFTYPE.
((and (atom type)
(setq first (get-sysprop type 'SI::DEFTYPE-DEFINITION)))
(expand-coerce form value `',(funcall first nil nil) env))
(expand-coerce form value `',(funcall first nil) env))
;;
;; CONS types are not coercible.
((and (consp type)