anchor.diff:    (:use :cl)
     (:import-from :tootstest.config :config)
     (:import-from :clack :clackup)
  -  (:export :start :stop :fastcgi-entry))
  +  (:export #:start #:stop #:fastcgi-entry
  +           #:entry
  +           #:fastcgi-entry
  +           #:start-hunchentoot
  +           #:power-on-self-test
  +           #:start-repl
  +           #:*compiled*
  +           #:start-swank
  +           #:write-docs
  +           #:print-help))
   (in-package :tootstest)
   
   (defvar *appfile-path*
  
positive.code:                           :type "lisp")
             source-dir))
      (ensure-directories-exist (merge-pathnames #p"doc/" source-dir))
      (funcall (intern "DECLT" (find-package :net.didierverna.declt))
               :tootstest
               :library-name "Violet Volts"
               :texi-file (merge-pathnames #p"doc/violet-volts.texi"
                                           source-dir)
               :tagline "tootstest build"
               :hyperlinks nil
               :introduction (alexandria:read-file-into-string #p"src/static/introduction"))))
  
  (defun start-hunchentoot ()
    (start)
  
negative.code:   (funcall (intern "START-SERVER" (find-package :swank))))
  
  (defun write-docs ()
    (format *trace-output* "~& Writing documentation…")
    (ql:quickload :net.didierverna.declt)
    (let ((source-dir (asdf:component-pathname (asdf:find-system :tootstest))))
   ;;; Patch this file. TODO: File a bug or submit upstream or something.
  