From 4648b3144b1fbb6fc7a4a862ccf581ce3e916e4f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 29 May 1990 16:42:59 +0000 Subject: [PATCH] Changed PRIMITIVE-TYPE to return FUNCTION for random complex function types. --- compiler/old-rt/vm.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/old-rt/vm.lisp b/compiler/old-rt/vm.lisp index 037472a69..ee4434839 100644 --- a/compiler/old-rt/vm.lisp +++ b/compiler/old-rt/vm.lisp @@ -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)))) -- GitLab