Skip to content
Snippets Groups Projects
Commit 03843050 authored by ram's avatar ram
Browse files

Changed defvars for *type-table*, etc. to declaim special, and moved the

definition to where the values are actually initialized.
parent b20d15bd
No related branches found
No related tags found
No related merge requests found
......@@ -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))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment