(setf (gethash n *id-to-gtype*) type
(gethash name *name-to-gtype*) type)
(return-from gtype-from-name type)))))
(defun gtype-from-id (id)
(declare (optimize (safety 0) (speed 3)))
(setf (gethash n *id-to-gtype*) type
(gethash name *name-to-gtype*) type)
(return-from gtype-from-name type)))))
(defun gtype-from-id (id)
(declare (optimize (safety 0) (speed 3)))