From 913c72bdef1010fa20a11d1149012453a62586d1 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 29 May 1990 16:54:28 +0000
Subject: [PATCH] Added STRUCTURE-VECTOR to TYPE-PRED-ALIST, and changed it to
 be a a defparameter rather than a constant.

---
 code/pred.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/pred.lisp b/code/pred.lisp
index 204ebc019..e761efc6a 100644
--- a/code/pred.lisp
+++ b/code/pred.lisp
@@ -41,7 +41,7 @@
 ;;; the following are named structures and need no special type hackery:
 ;;; PATHNAME, STREAM, READTABLE, PACKAGE, HASHTABLE, RANDOM-STATE.
 
-(defconstant type-pred-alist
+(defparameter type-pred-alist
   '((keyword . keywordp)
     (common . commonp)
     (null . null)
@@ -54,6 +54,7 @@
     (string . stringp)
     (sequence . sequencep)
     (simple-array . simple-array-p)
+    (c::structure-vector . simple-vector-p)
     (simple-vector . simple-vector-p)
     (simple-string . simple-string-p)
     (simple-bit-vector . simple-bit-vector-p)
-- 
GitLab