Skip to content
Snippets Groups Projects
Commit 5cc1ee05 authored by pfdietz's avatar pfdietz
Browse files

Add a variable for the cl symbols in a vector

parent f6b8d45b
No related branches found
No related tags found
No related merge requests found
...@@ -999,6 +999,9 @@ ...@@ -999,6 +999,9 @@
(mapcar #'(lambda (str) (intern str pkg)) (mapcar #'(lambda (str) (intern str pkg))
*cl-symbol-names*)))) *cl-symbol-names*))))
(defparameter *cl-symbols-vector*
(make-array (length *cl-symbols*) :initial-contents *cl-symbols*))
;;; Symbols classified by their kind in the spec ;;; Symbols classified by their kind in the spec
(defparameter *cl-function-symbols* (defparameter *cl-function-symbols*
'( '(
......
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