anchor.diff:  (defparameter *default-user-directory*
     (merge-pathnames #p".lispserver/" (user-homedir-pathname)))
   
  -(defparameter *default-bindir*
  -  (merge-pathnames #p"bin/" *default-user-directory*))
  +(defun default-bindir (user-directory)
  +  (merge-pathnames #p"bin/" user-directory))
   
   (defun socket-directory (user-directory)
     (merge-pathnames #p"sockets/" user-directory))
  
positive.code:                      :if-exists :supersede)
      (with-standard-io-syntax
        (format o "#!/bin/sh
  lispctl eval ~A `pwd` \"$0\" \"$@\"
  "
                (uiop/run-program:escape-sh-token (write-to-string form)))))
    (uiop/run-program:run-program `("chmod" "+x" ,name)))
  
  (defun install (name &optional (bindir *default-bindir*))
    (unless (probe-file name)
      (error "File ~A does not exist." name))
    (let ((target (merge-pathnames name bindir)))
      (ensure-directories-exist target)
      (uiop/filesystem:rename-file-overwriting-target name target)))
  
negative.code:                     (error "Server ~A does not exist." name))))
      (stop-server server)))
  
  (defun make (name &key
                    (entry (intern "MAIN" (find-package (string-upcase name))))
                    (form `(funcall ',entry uiop:*command-line-arguments*)))
    (with-open-file (o name
                       :direction :output
  