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