anchor.diff:             #:*swankport*
              #:*default-host-redirect*
              #:*asdf-central-registry*
  +           #:*quicklisp-home*
              #:*asdf-load-systems*
              #:*sites*))
   
  
positive.code:   (sb-posix:setsid))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; load asdf
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (require 'asdf)
  
  (loop
     for path in *asdf-central-registry*
     do (push path asdf:*central-registry*))
  
  (asdf:oos 'asdf:load-op 'asdf-binary-locations)
  
  (setf asdf:*centralize-lisp-binaries* t)
  
  (setf asdf:*default-toplevel-directory* *fasldir*)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; start swank server
  
negative.code: 
  (defpref *asdf-central-registry*)
  
  (defpref *quicklisp-home*)
  
  (defpref *asdf-load-systems*)
  
  (defpref *sites*)
  
  (defpref *default-host-redirect*)
  
  
  (delete-package '#:sbcl.daemon.preferences)
  
  