diff --git a/ansi-tests/cl-symbol-names.lsp b/ansi-tests/cl-symbol-names.lsp index 49a0e0396709ba302d3346973efbbe7ee645bf7e..ac6036ab11b0d8b3c04309881a5de31d2054f86e 100644 --- a/ansi-tests/cl-symbol-names.lsp +++ b/ansi-tests/cl-symbol-names.lsp @@ -999,6 +999,9 @@ (mapcar #'(lambda (str) (intern str pkg)) *cl-symbol-names*)))) +(defparameter *cl-symbols-vector* + (make-array (length *cl-symbols*) :initial-contents *cl-symbols*)) + ;;; Symbols classified by their kind in the spec (defparameter *cl-function-symbols* '(