(in-package :common-lisp-user) (let* ((logon (system:getenv "LOGONROOT")) (lingo (namestring (parse-namestring (format nil "~a/lingo" logon)))) (uib (namestring (parse-namestring (format nil "~a/uib" logon))))) ;; ;; load MK defsystem() and LinGO load-up library first ;; (load (format nil "~a/lingo/lkb/src/general/loadup" logon)) ;; ;; next, set up logical pathname translations for UiB code base ;; (let ((registry (find-symbol "*CENTRAL-REGISTRY*" :make))) (when registry (set registry (cons (pathname (format nil "~a/lisp/systems" uib)) (symbol-value registry))))) (setf (logical-pathname-translations "lisp") `(("**;*.*.*" ,(format nil "~a/lisp/**/*.*.*" uib))) (logical-pathname-translations "lisp") `(("**;*.*" ,(format nil "~a/lisp/**/*.*" uib))) (logical-pathname-translations "ccl") `(("**;*.*" ,(format nil "~a/lisp/**/*.*" uib)) ) (logical-pathname-translations "bin") #+(and :allegro (not :64bit)) '(("**;*.*" "ccl:bin;allegro;32bit;**;*.*")) #+(and :allegro :64bit) '(("**;*.*" "ccl:bin;allegro;64bit;**;*.*")) (logical-pathname-translations "lib") '(("**;*.*" "ccl:lib;**;*.*")) (logical-pathname-translations "projects") '(("**;*.*" "ccl:projects;**;*.*")) (logical-pathname-translations "sql") '(("**;*.*" "projects:sql;**;*.*"))) ;; ;; to get more interactive MRS support, including the browsers, include the ;; full LKB code base too (this should be optional). ;; (pushnew :logon *features*) (pushnew :lkb *features*) (pushnew :xle *features*))