(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*))