From 03843050ad9f24639eefe75ade9b754f5a60523f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 27 Oct 1994 01:45:07 +0000
Subject: [PATCH] Changed defvars for *type-table*, etc. to declaim special,
 and moved the definition to where the values are actually initialized.

---
 motif/lisp/initial.lisp | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/motif/lisp/initial.lisp b/motif/lisp/initial.lisp
index 6ee8bbe59..a82f53c93 100644
--- a/motif/lisp/initial.lisp
+++ b/motif/lisp/initial.lisp
@@ -215,12 +215,11 @@
 
 
 
-;;;; Set up the tables used in defining interface components.
+;;;; These variables are built at compile time and used to build C header
+;;;; files.  We retain the values at run-time just so that we can built the
+;;;; interface files at any time.
 
 (in-package "TOOLKIT")
 
-(defvar *request-table* (make-array 50 :element-type 'simple-string
-				    :adjustable t :fill-pointer 0))
-(defvar *class-table* (make-array 40 :element-type 'cons
-				  :adjustable t :fill-pointer 0))
-(defvar next-type-tag)
+(declaim (special *request-table* *class-table* next-type-tag))
+
-- 
GitLab