anchor.diff:    #+ccl (#_close fd))
   
   (defun exit ()
  -  #+sbcl(sb-unix:unix-exit)
  +  #+sbcl #+#.(cl:if (cl:find-symbol (cl:symbol-name :exit) :sb-posix) '(:and) '(:or)) (sb-posix:exit 0)
  +         #-#.(cl:if (cl:find-symbol (cl:symbol-name :exit) :sb-posix) '(:and) '(:or)) (sb-unix:unix-exit)
     #+allegro (excl:exit 0 :quiet t)
     #+ccl (#_exit 0))
   
  
positive.code:   `(shepherd-1process
      #'(lambda ,lambda-list ,@body)
      ,@options))
  
  (defun shepherd-subdirectories (function path &key 
  				quitable
  
negative.code:       (let ((ql (or qlpath 
  		    (merge-pathnames "quicklisp/setup.lisp"
  				     (pathname (concatenate 'string (passwd-dir (getpwnam *username*)) "/"))))))
  	(when (ignore-errors (probe-file ql))
  	  (load ql))
  	(_ :asdf :enable-asdf-binary-locations-compatibility 
  	   :centralize-lisp-binaries t
  