13 lines
346 B
Common Lisp
13 lines
346 B
Common Lisp
(in-package #:user-side-compiler)
|
|
|
|
(defparameter *symbol-table* (make-hash-table :test #'equalp))
|
|
|
|
(defun find-reference-by-symbol (name)
|
|
(gethash name *symbol-table*))
|
|
|
|
(defun add-reference-symbol (name ref)
|
|
(declare (type reference ref))
|
|
(setf (gethash name *symbol-table*) ref))
|
|
|
|
(defun clear-symbol-table ()
|
|
(clrhash *symbol-table*))
|