anchor.diff:    "The port used for remote interaction with SLIME.")
   
   (defstruct picture
  -  thumbnail
     title
     description
     path
  
positive.code: 	   :test #'picture-path))
  
  (defun load-picture (picture)
    "Loads the thumbnail, base image, and layer images for the picture.
    The layer list is replaced with a list that includes the layer image
    data as the third element."
    )
  
  (defun load-pictures ()
    "Loads the thumbnails, base image, and layer images for all registered pictures."
    (loop for p in *pictures*
       when (not (picture-images-loaded p))
       do (setf (picture-base-image p) (read-image (picture-path p)))
  
negative.code:   ;(generate-image (session-value
  )
  
  (define-easy-handler (thumbnail :uri "/dc/picture/thumbnail") (picture-id height)
    "Handler that loads and resizes the base image of a picture."
    (setf (content-type*) "image/png")
    (let* ((im (elt *pictures* picture-id))
  	 (ratio (/ height (image-height im))))
      (with-output-to-string (stream)
        (write-png (resize im (round (* ratio (image-width im))) height) stream))))
  
  (defun start-server (&optional (config-file "config.lisp"))
    (load config-file :verbose t)
  