(in-package :common-lisp-user)

(pushnew :garsia-wachs *features*)
(pushnew :bit-vector-coding *features*)
(pushnew :bit-vectors *features*)
(pushnew :nny-parser *features*)
(pushnew :aserve *features*)

(pushnew :paul *features*)
(pushnew :visl *features*)

(load "~/logon/lingo/lkb/src/general/loadup.lisp")
(let* ((symbol (find-symbol "*CENTRAL-REGISTRY*" :make))
       (value (symbol-value symbol))
       (lisp-root "~"))
  (set 
   symbol 
   (cons (merge-pathnames lisp-root "lisp/systems")
	 #+ignore
	 (make-pathname :directory "~/logon/uib/lisp/systems")
	 value))

  (setf (logical-pathname-translations "lisp")
	'(("**;*.*.*" "~/logon/uib/lisp/**/*.*.*"))
	(logical-pathname-translations "lisp")
	'(("**;*.*" "~/logon/uib/lisp/**/*.*"))
	(logical-pathname-translations "ccl")
	'(("**;*.*" "~/logon/uib/lisp/**/*.*"))    
	(logical-pathname-translations "bin")
	'(("**;*.*" "ccl:logon;bin;**;*.*"))
	(logical-pathname-translations "lib")
	'(("**;*.*" "ccl:lib;**;*.*"))
	(logical-pathname-translations "projects")
	'(("**;*.*" "ccl:projects;**;*.*")))
  (apply (intern "COMPILE-SYSTEM" :make) (list "cgp" :force nil))
  
  (set 
   symbol 
   (append 
    value 
    (list (merge-pathnames lisp-root "lisp/systems")
	  #+orig(make-pathname :directory "~/logon/uib/lisp/systems")))))