anchor.diff:  
   (defpref *asdf-central-registry*)
   
  +(defpref *quicklisp-home*)
  +
   (defpref *asdf-load-systems*)
   
   (defpref *sites*)
   
   (defpref *default-host-redirect*)
  +
   
   (delete-package '#:sbcl.daemon.preferences)
   
  
positive.code:            #:*swankport*
             #:*default-host-redirect*
             #:*asdf-central-registry*
             #:*asdf-load-systems*
             #:*sites*))
  
  
negative.code:   (sb-posix:setsid))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; load asdf/quicklisp
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (require 'asdf)
  
  (when (*quicklisp-home*)
    (load (merge-pathnames "quicklisp/setup.lisp"
                           *quicklisp-home*)))
  
  (loop
     for path in *asdf-central-registry*
     do (push path asdf:*central-registry*))
  
  (setf asdf::*user-cache*
        `(,(pathname-directory *fasldir*) :implementation))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;; start swank server
  