From 5cc1ee0533389c5d029c9c8ba7d348cb6dc069b2 Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Sat, 17 Jul 2004 20:24:13 +0000
Subject: [PATCH] Add a variable for the cl symbols in a vector

---
 ansi-tests/cl-symbol-names.lsp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/ansi-tests/cl-symbol-names.lsp b/ansi-tests/cl-symbol-names.lsp
index 49a0e039..ac6036ab 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*
   '(
-- 
GitLab