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