From f202857f696f51764f2ef342b02d178d2ebe2636 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 11 Oct 1990 17:35:18 +0000
Subject: [PATCH] Changed INFO TYPE KIND be more correct in determining whether
 the type is :PRIMITIVE.

---
 compiler/globaldb.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 1e1d75274..5b506b8e9 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.13 1990/10/06 18:24:35 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/globaldb.lisp,v 1.14 1990/10/11 17:35:18 ram Exp $
 ;;;
 ;;;    This file provides a functional interface to global information about
 ;;; named things in the system.  Information is considered to be global if it
@@ -1099,7 +1099,8 @@
 ;;; are implemented as structures.
 ;;;
 (define-info-type type kind (member :primitive :defined :structure nil)
-  (if (member name type-specifier-symbols)
+  (if (or (info type builtin name)
+	  (info type translator name))
       :primitive
       nil))
 
-- 
GitLab