(in-package :common-lisp-user)

(pushnew :garsia-wachs *features*)
(pushnew :bit-vector-coding *features*)
(pushnew :bit-vectors *features*)
(pushnew :nny-parser *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)))
  (set 
   symbol 
   (cons (make-pathname :directory "~/logon/flat/cgp/lisp/systems") value))

  (setf (logical-pathname-translations "lisp")
    '(("**;*.*.*" "~/logon/flat/cgp/lisp/**/*.*.*"))
    (logical-pathname-translations "lisp")
    '(("**;*.*" "~/logon/flat/cgp/lisp/**/*.*"))
    (logical-pathname-translations "ccl")
    '(("**;*.*" "~/logon/flat/cgp/lisp/**/*.*"))    
    (logical-pathname-translations "bin")
    '(("**;*.*" "ccl: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 (make-pathname :directory "/logon/flat/cgp/lisp/systems")))))