- (set-lrl-hash cui srl cui-lrl-hash)
- (set-lrl-hash lui srl lui-lrl-hash)
- (set-lrl-hash sui srl sui-lrl-hash)
- (set-lrl-hash (make-cuisui cui sui) srl cuisui-lrl-hash)
- (multiple-value-bind (val found) (gethash sab sab-srl-hash)
- (declare (ignore val))
- (unless found
- (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 sui-lrl (sui) (gethash sui sui-lrl-hash))
- (defun sab-srl (sab) (aif (gethash sab sab-srl-hash) it 0))
+ (set-lrl-hash cui srl cui-lrl-hash)
+ (set-lrl-hash lui srl lui-lrl-hash)
+ (set-lrl-hash sui srl sui-lrl-hash)
+ (set-lrl-hash (make-cuisui cui sui) srl cuisui-lrl-hash)
+ (set-lrl-hash cui srlus cui-lrlus-hash)
+ (set-lrl-hash lui srlus lui-lrlus-hash)
+ (set-lrl-hash sui srlus sui-lrlus-hash)
+ (set-lrl-hash (make-cuisui cui sui) srlus cuisui-lrlus-hash)
+ (multiple-value-bind (val found) (gethash sab sab-srl-hash)
+ (declare (ignore val))
+ (unless found
+ (setf (gethash sab sab-srl-hash) srl)))
+ (multiple-value-bind (val found) (gethash sab sab-srlus-hash)
+ (declare (ignore val))
+ (unless found
+ (setf (gethash sab sab-srlus-hash) srlus))))))
+ (setq *preparse-hash-init?* t)
+ t)
+
+ #+nil (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))