(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*)) #-:runtime-standard (let ((root (system:getenv "LOGONROOT"))) (pushnew :xle *features*) (pushnew :slave *features*) (pushnew :garsia-wachs *features*) (pushnew :bit-vector-coding *features*) (pushnew :bit-vectors *features*) (when root (load (format nil "~a/uib/analysis.lisp" (namestring (parse-namestring root)))) (excl:tenuring (funcall (intern "COMPILE-SYSTEM" :make) "logon")) (funcall (symbol-function (find-symbol "INITIALIZE-TSDB" :tsdb)))) ;; ;; also load a tiny LKB transfer grammar to perform some post-processing of ;; NorGram MRSs (e.g. ditching various `_sel_' EPs). also, this grammar ;; makes sure to load the NorGram SEM-I, which in turn activates predicate ;; compliance testing (called from the [incr tsdb()] parse-item()). ;; (ignore-errors (funcall (symbol-function (find-symbol "READ-SCRIPT-FILE-AUX" :lkb)) (format nil "~a/parc/pargram/norwegian/bokmal/lkb/script" root))) ;; ;; disable result post-processing on the LKB side; the default hook would try ;; to fill in labeled trees and MRSs, based on reconstructing the derivation. ;; not really an option with the XLE as the [incr tsdb()] client system. ;; (set (intern "*TSDB-RESULT-HOOK*" :tsdb) nil)) #+:runtime-standard (let ((root (system:getenv "LOGONROOT"))) (tsdb:tsdb :home (format nil "~a/parc/pargram/norwegian/bokmal/gold" root)) (tsdb::initialize-fake '("base" "mrs" "tur" "jh" "ps" "tg"))) ;;; ;;; to see whether we can make `parse' and `batch' behave the same way when it ;;; comes to memory footprint. (11-oct-04; oe) ;;; (excl:gc :tenure) (excl:gc) (excl:gc t) (excl:gc) (setf (sys:gsgc-parameter :auto-step) nil) ;;; ;;; furthermore, reduce growth rates for new- and oldspaces ;;; (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) (funcall (symbol-function (find-symbol "SLAVE" :tsdb)))