- (set-lrl-hash cui srl cui-lrl-hash)
- (set-lrl-hash lui srl lui-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 cuisui-lrl (cuisui)
- (gethash cuisui cuisui-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))
+ (defun cuisui-lrl (cuisui) (gethash cuisui cuisui-lrl-hash))
+ (defun cui-lrlus (cui) (gethash cui cui-lrlus-hash))
+ (defun lui-lrlus (lui) (gethash lui lui-lrlus-hash))
+ (defun sui-lrlus (sui) (gethash sui sui-lrlus-hash))
+ (defun cuisui-lrlus (cuisui) (gethash cuisui cuisui-lrlus-hash))
+ (defun sab-srl (sab) (aif (gethash sab sab-srl-hash) it 0))
+ (defun sab-srlus (sab) (aif (gethash sab sab-srlus-hash) it 0))
+