[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)
#+:tsdb
(defun tsdb::finalize-run (context &key custom)
  (declare (ignore custom))
  ;; called after completion of test run
  (let ((lexicon 0)
        (*package* *lkb-package*))
    (loop
        for id in (collect-expanded-lex-ids *lexicon*)
        do
          (pushnew id *lex-ids-used*)
          (incf lexicon))
    (clear-type-cache)
    ;;(uncache-lexicon)
    (loop
        for (variable . value) in context do
          (case variable
            (:first-only-p
             (setf *first-only-p* value))))
    (pairlis '(:lexicon) (list lexicon))))




More information about the developers mailing list