- (if (>= (riece-cache-map-hash-length map)
- (riece-cache-map-max-length map))
- (riece-cache-delete map (riece-cache-node-key
- (riece-cache-map-first map))))
- (setq node (riece-cache-make-node key value (riece-cache-map-last map)))
- (set (intern key (riece-cache-map-hash-obarray map)) node)
- (riece-cache-map-set-hash-length map
- (1+ (riece-cache-map-hash-length map)))
- (unless (riece-cache-map-first map)
- (riece-cache-map-set-first map node))
- (if (riece-cache-map-last map)
- (progn
- (riece-cache-node-set-next (riece-cache-map-last map) node)
- (riece-cache-node-set-previous node (riece-cache-map-last map))))
- (riece-cache-map-set-last map node))))
+ (if (>= (riece-cache-hash-length cache)
+ (riece-cache-max-length cache))
+ (riece-cache-delete cache (riece-cache-node-key
+ (riece-cache-first cache))))
+ (setq node (riece-cache-make-node key value (riece-cache-last cache)))
+ (set (intern key (riece-cache-hash-obarray cache)) node)
+ (riece-cache-set-hash-length cache
+ (1+ (riece-cache-hash-length cache)))
+ (unless (riece-cache-first cache)
+ (riece-cache-set-first cache node))
+ (when (riece-cache-last cache)
+ (riece-cache-node-set-next (riece-cache-last cache) node)
+ (riece-cache-node-set-previous node (riece-cache-last cache)))
+ (riece-cache-set-last cache node))))