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*
   '(