- (setf (gethash sab sab-srl-hash) srl))))))
-
- (defun pfstr-hash (cui)
- (gethash cui pfstr-hash))
-
- (defun cui-lrl (cui)
- (gethash cui cui-lrl-hash))
-
- (defun lui-lrl (lui)
- (gethash lui lui-lrl-hash))
-
- (defun cuisui-lrl (cuisui)
- (gethash cuisui cuisui-lrl-hash))
-
- (defun sab-srl (sab)
- (aif (gethash sab sab-srl-hash) it 0))
+ (setf (gethash sab sab-srl-hash) srl)))))
+ (setq *preparse-hash-init?* t)
+ t)
+
+ (defun pfstr-hash (cui) (gethash cui pfstr-hash))
+ (defun cui-lrl (cui) (gethash cui cui-lrl-hash))
+ (defun lui-lrl (lui) (gethash lui lui-lrl-hash))
+ (defun sui-lrl (sui) (gethash sui sui-lrl-hash))
+ (defun sab-srl (sab) (aif (gethash sab sab-srl-hash) it 0))
+ (defun cuisui-lrl (cuisui) (gethash cuisui cuisui-lrl-hash))
+