Skip to content
Snippets Groups Projects
Commit 913c72bd authored by ram's avatar ram
Browse files

Added STRUCTURE-VECTOR to TYPE-PRED-ALIST, and changed it to be a

a defparameter rather than a constant.
parent 127c6441
No related branches found
No related tags found
No related merge requests found
...@@ -41,7 +41,7 @@ ...@@ -41,7 +41,7 @@
;;; the following are named structures and need no special type hackery: ;;; the following are named structures and need no special type hackery:
;;; PATHNAME, STREAM, READTABLE, PACKAGE, HASHTABLE, RANDOM-STATE. ;;; PATHNAME, STREAM, READTABLE, PACKAGE, HASHTABLE, RANDOM-STATE.
(defconstant type-pred-alist (defparameter type-pred-alist
'((keyword . keywordp) '((keyword . keywordp)
(common . commonp) (common . commonp)
(null . null) (null . null)
...@@ -54,6 +54,7 @@ ...@@ -54,6 +54,7 @@
(string . stringp) (string . stringp)
(sequence . sequencep) (sequence . sequencep)
(simple-array . simple-array-p) (simple-array . simple-array-p)
(c::structure-vector . simple-vector-p)
(simple-vector . simple-vector-p) (simple-vector . simple-vector-p)
(simple-string . simple-string-p) (simple-string . simple-string-p)
(simple-bit-vector . simple-bit-vector-p) (simple-bit-vector . simple-bit-vector-p)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment