From 1738447bbeae2515de1686f41b36cc81a113ab41 Mon Sep 17 00:00:00 2001
From: chiles <chiles>
Date: Mon, 15 Apr 1991 14:49:03 +0000
Subject: [PATCH] Fixed bug in the PRIMITIVE-TYPE vm-support-routine to
 correctly map structure types.

---
 compiler/rt/vm.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compiler/rt/vm.lisp b/compiler/rt/vm.lisp
index c5ab307f5..e516bcaeb 100644
--- a/compiler/rt/vm.lisp
+++ b/compiler/rt/vm.lisp
@@ -432,6 +432,10 @@
 	  (part-of list))
 	 (t
 	  (any))))
+      (function-type
+       (exactly function))
+      (structure-type
+       (part-of structure))
       (ctype
        (any)))))
 
-- 
GitLab