Skip to content
Snippets Groups Projects
Commit 76d1fbc4 authored by ram's avatar ram
Browse files

Added use of *unparse-function-type-simplify* to prevent complex function

types from being checked, even when they are buried in other types 
(like OR.)
parent e82e84b6
No related branches found
No related tags found
No related merge requests found
......@@ -279,13 +279,14 @@
(defun make-type-check-form (types)
(collect ((temps))
(dotimes (i (length types))
(declare (ignore i))
(temps (gensym)))
`(multiple-value-bind ,(temps)
'dummy
,@(mapcar #'(lambda (temp type)
(let* ((spec (type-specifier (second type)))
(let* ((spec
(let ((*unparse-function-type-simplify* t))
(type-specifier (second type))))
(test (if (first type) `(not ,spec) spec)))
`(unless (typep ,temp ',test)
(%type-check-error
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment