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