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