From 764152b0eb8ff4be9d153b2590bbc7d108221045 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Apr 1990 18:30:38 +0000 Subject: [PATCH] Fixed PRIMITIVE-TYPE on union types to return the right value. --- compiler/old-rt/vm.lisp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/compiler/old-rt/vm.lisp b/compiler/old-rt/vm.lisp index 6b5ce5d03..3103d2e6e 100644 --- a/compiler/old-rt/vm.lisp +++ b/compiler/old-rt/vm.lisp @@ -192,13 +192,12 @@ (let ((types (union-type-types type))) (multiple-value-bind (res exact) (primitive-type (first types)) - (dolist (type (rest types)) + (dolist (type (rest types) (values res exact)) (multiple-value-bind (ptype ptype-exact) (primitive-type type) (unless ptype-exact (setq exact nil)) (unless (eq ptype res) - (return (values *any-primitive-type* nil))))) - (values res exact))))) + (return (values *any-primitive-type* nil))))))))) (member-type (let* ((members (member-type-members type)) (res (primitive-type-of (first members)))) -- GitLab