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

Added a compiler macro for optional type checks

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-05-13 22:32:19 +02:00
parent 18928c0b1f
commit ebefa89d55
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmptype.lsp
View file

@ -119,3 +119,8 @@
`(let* ((%value ,value))
,(type-error-check '%value type)
(the ,type %value))))))
(defmacro optional-type-check (&whole whole value type &environment env)
(if (policy-assume-right-type)
value
`(assert-type-if-known ,value ,type)))