anchor.diff:  
   (setf asdf:*centralize-lisp-binaries* t)
   
  -(ensure-directories-exist *fasldir*)
   (setf asdf:*default-toplevel-directory* *fasldir*)
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:     (sb-ext:quit :unix-status 0)))
  
  ;;;; stop - send to daemon sigusr1 signal, wait and remove pid file
  
  (with-silence
    (require 'sb-posix))
  
  (defun read-pid ()
    (with-open-file (in *pidfile*)
  
negative.code: ;;;; command-line COMMAND
  
  ;;;; quit if COMMAND is unknown
  
  (unless (find *daemon-command* '("start" "stop" "zap" "kill" "restart" "nodaemon") :test #'string-equal)
    (with-exit-on-error
  