Skip to content
Snippets Groups Projects
Commit 4648b314 authored by ram's avatar ram
Browse files

Changed PRIMITIVE-TYPE to return FUNCTION for random complex function types.

parent d1dd7fdd
No related branches found
No related tags found
No related merge requests found
......@@ -225,6 +225,7 @@
(unless ptype-exact (setq exact nil))
(unless (eq ptype res)
(return (values *any-primitive-type* nil)))))))))
(function-type (values (primitive-type-or-lose 'function) t))
(ctype
(values *any-primitive-type* nil))))
......
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