[developers] tsdb::finalize-run/uncache-lexicon patch

Ben Waldron benjamin.waldron at cl.cam.ac.uk
Wed Sep 14 22:08:51 CEST 2005

Are there any plans to obviate this patch? If not, I'll to volunteer to 
fix it.

- Ben

; In lkb/src/tsdb/lisp/lkb-interface.lisp
; Redefine tsdb::finalize-run to comment out uncache-lexicon() since it
; results in uninitializing the generator lexicon, which is annoying:
;   uncache-lexicon
;     clear-expanded-lex
;       empty-cache
;         clear-generator-lexicon
(in-package :lkb)
(defun tsdb::finalize-run (context &key custom)
  (declare (ignore custom))
  ;; called after completion of test run
  (let ((lexicon 0)
        (*package* *lkb-package*))
        for id in (collect-expanded-lex-ids *lexicon*)
          (pushnew id *lex-ids-used*)
          (incf lexicon))
        for (variable . value) in context do
          (case variable
             (setf *first-only-p* value))))
    (pairlis '(:lexicon) (list lexicon))))

More information about the developers mailing list