(in-package :common-lisp-user)

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

(pushnew :paul *features*)

(eval-when (:execute :compile-toplevel :load-toplevel)
  (require :proc2common)
  (require :sock)) 

(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 "~/lisp/systems") value))
  #+orig
  (set 
   symbol 
   (cons (make-pathname :directory "~/logon/uib/lisp/systems") value))

  (setf (logical-pathname-translations "lisp")
    '(("**;*.*.*" "~/lisp/**/*.*.*"))
    (logical-pathname-translations "lisp")
    '(("**;*.*" "~/lisp/**/*.*"))
    (logical-pathname-translations "ccl")
    '(("**;*.*" "~/lisp/**/*.*"))    
    (logical-pathname-translations "bin")
    '(("**;*.*" "ccl:bin;**;*.*"))
    (logical-pathname-translations "lib")
    '(("**;*.*" "ccl:lib;**;*.*"))
    (logical-pathname-translations "projects")
    '(("**;*.*" "ccl:projects;**;*.*")))
  #+orig
  (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;**;*.*")))
  
  #-debug(print :make)
  #-debug(print (list "*CENTRAL-REGISTRY*" (symbol-value symbol)))
  
  (apply (intern "COMPILE-SYSTEM" :make) (list "morph-server" :force nil))
  
  (set 
   symbol 
   (append 
    value 
    (list (make-pathname :directory "~/logon/uib/lisp/systems")))))