anchor.diff:  (defun llthw-start (&key (port 8080))
     "Start LLTHW server."
     (when (null *acc*)
  -    (setf *acc* (make-instance 'hunchentoot:easy-acceptor :port port :access-log-destination *acc-log* :message-log-destination *msg-log*)))
  +    (setf *acc* 
  +          (make-instance 'hunchentoot:easy-acceptor 
  +                         :port port
  +                         :access-log-destination *acc-log*
  +                         :message-log-destination *msg-log*)))
     (hunchentoot:start *acc*))
   
   (defun llthw-stop ()
  
positive.code:   (setf *acc* nil))
  
  ;; Assumes SBCL + Quicklisp
  (defun llthw-restart (&key (port 8080))
    "Stop, reload/recompile, and start the LLTHW server again.  Also rescans the book, reference, and try-lisp directories for new files."
    (llthw-stop)
    (ql:quickload "llthw")
    (sb-ext:gc :full t)
  
negative.code: ;;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: LLTHW; Base: 10 -*-
  ;;;; file: llthw.lisp
  
  ;;;; Copyright (c) 2012--2015, "the Phoeron" Colin J.E. Lupton <//thephoeron.com>
  ;;;; See LICENSE for additional information.
  
  (in-package :llthw)
  