(in-package :common-lisp-user) (pushnew :logon *features*) ;; ;; in a run-time image loading this file as its `-L' argument, we need to call ;; *restart-init-function* ourselves, as slave() below never returns. ;; #+(and :allegro :runtime-standard) (when (functionp excl:*restart-init-function*) (funcall excl:*restart-init-function*)) ;; ;; make sure we have sufficient space available ;; #-:64bit (system:resize-areas :old (* 256 1024 1024) :new (* 384 1024 1024)) #+:64bit (system:resize-areas :old (* 640 1024 1024) :new (* 1024 1024 1024)) (setf (sys:gsgc-parameter :expansion-free-percent-new) 5) (setf (sys:gsgc-parameter :free-percent-new) 2) (setf (sys:gsgc-parameter :expansion-free-percent-old) 5) #+:null (progn (setf (sys:gsgc-switch :print) t) (setf (sys:gsgc-switch :stats) t) (setf (sys:gsgc-switch :verbose) t)) (let* ((logon (system:getenv "LOGONROOT")) (lingo (namestring (parse-namestring (format nil "~a/lingo" logon))))) ;; ;; load MK defsystem() and LinGO load-up library first ;; (load (format nil "~a/lingo/lkb/src/general/loadup" logon)) ;; ;; for generation, we need (close to) the full scoop ;; (unless (find-package :tsdb) (pushnew :lkb *features*) (pushnew :slave *features*) (excl:tenuring (funcall (intern "COMPILE-SYSTEM" :make) "tsdb"))) ;;; Disabling full diacritics in standard demo ;;; Currently not well supported on MS Windows (set (intern "*HAG-DEMO*" :lkb) t) (funcall (symbol-function (find-symbol "INITIALIZE-TSDB" :tsdb)) nil) (funcall (intern "READ-SCRIPT-FILE-AUX" :lkb) (format nil "~a/llf/hag/lkb/script" logon)) (funcall (intern "INDEX-FOR-GENERATOR" :lkb)) ;; ;; allow the generator to relax post-generation MRS comparison, if need be ;; (set (intern "*BYPASS-EQUALITY-CHECK*" :lkb) :filter) ;; ;; _fix_me_ ;; when translating, pvm-process() does not pass on the full set of variables ;; to control the search (as process-item() would). (10-feb-08; oe) ;; (set (intern "*MAXIMUM-NUMBER-OF-EDGES*" :lkb) 25000) (set (intern "*TSDB-MAXIMAL-NUMBER-OF-EDGES*" :tsdb) 25000) (set (intern "*TSDB-MAXIMAL-NUMBER-OF-RESULTS*" :tsdb) 20) (set (intern "*TSDB-EXHAUSTIVE-P*" :tsdb) nil) ;; ;; make sure the MaxEnt feature extraction parameters correspond to the type ;; of model in use; we should probably read these into the model structure, ;; and then allow mem-score-result() et al. to adjust their environment for ;; the actual model used. ;; (set (find-symbol "*FEATURE-GRANDPARENTING*" :tsdb) 4) (set (find-symbol "*FEATURE-ACTIVE-EDGES-P*" :tsdb) t) (set (find-symbol "*FEATURE-NGRAM-SIZE*" :tsdb) 4) (set (find-symbol "*TSDB-GC-VERBOSITY*" :tsdb) '(:verbose :stats)) (excl:gc t) (excl:gc :tenure) (excl:gc) (excl:gc t) (excl:gc) (setf (sys:gsgc-parameter :auto-step) nil) (funcall (symbol-function (find-symbol "SLAVE" :tsdb))))