anchor.diff:    (truename #p"./pictures/")
     "The path in which to search for pictures available for designing.")
   
  -(defun register-picture (title path &optional (description ""))
  +(defun add-picture (title path &optional (description ""))
     "Registers a picture as available for designing. Stores the picture
   in *PICTURES*"
  -  (setf *pictures* (cons (make-picture :title title
  -				       :description description
  -				       :path path
  -				       :images-load nil)
  -			 *pictures*)))
  +  (pushnew (make-picture :title title
  +			 :description description
  +			 :path (truename (merge-pathnames *picture-load-path* path))
  +			 :images-loaded nil)
  +	   *pictures*
  +	   :test #'picture-path))
   
   (defun load-pictures (site)
     "Loads the thumbnails, base image, and layer images for all registered pictures."
  
positive.code: 		collect (list layer (read-image (merge-pathnames (site-picture-load-path site)
  								 layer)))))))
  
  (defstruct site-session
    (started-on (get-universal-time))
    ip-address
    picture
    layer-colors)
  
  (defun set-layer-color (session layer-index new-color)
    (setf (elt (session-layer-colors session) layer-index) new-color))
  
  (defun generate-image ()
    ;; run-program
    )
  
  ;; Request handlers (a.k.a. views)
  (define-easy-handler (new-design :uri "/") ()
    (start-session)
    (setf (session-value 'picture) nil)
    (setf (session-value 'layer-colors) (list))
    (setf (content-type*) "text/html"))
  
  (define-easy-handler (test-design-center :uri "/test") ()
    (output-template #p"embedded-example.html" nil))
  
  (define-easy-handler (change-picture :uri "/choose") (pic)
    "Handler for changing which picture (and layers) are associated with the given session."
    (start-session))
  
  (define-easy-handler (pictures-list :uri "/picture/list") ()
    "Handler for listing pictures in JSON form."
    (start-session)
    (setf (content-type*) "application/json"))
  
  (define-easy-handler (set-color :uri "/set") (layer color)
    "Handler for setting the color of a layer that's associated with the given session."
    (start-session))
  
  (define-easy-handler (generate-image :uri "/picture/generate") ()
    "Handler for loading and writing the picture/layers being used by the given session. Saves the image to a random location and outputs the location as a JSON string."
    (start-session)
    (setf (content-type*) "application/json")
    ;(generate-image (session-value
  )
  
  (define-easy-handler (thumbnail :uri "/thumbnail") (picture-id)
    "Handler that loads and resizes the base image of a picture."
    )
  
  
negative.code: (defparameter *swank-port* 4444
    "The port used for remote interaction with SLIME.")
  
  (defstruct picture
    thumbnail
    title
  