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

Semi-gratuitously changed setf of *type-table*, etc., to defparameter.

parent 908f36ad
No related branches found
No related tags found
No related merge requests found
......@@ -15,11 +15,14 @@
(in-package "TOOLKIT")
(declaim (vector *class-table*))
(declaim (simple-vector *type-table*))
(setf (fill-pointer *class-table*) 0)
(setf next-type-tag 0)
(defparameter *class-table*
(make-array 40 :element-type 'cons
:adjustable t :fill-pointer 0))
(declaim (vector *class-table*))
(defparameter next-type-tag 0)
......
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