[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