anchor.diff:    "The path in which to search for pictures available for designing.")
   
   (defun add-picture (title path &optional (description ""))
  +(defvar *generated-image-directory*
  +  "/tmp"
  +  "The directory where generated images are stored.")
  +
  +(defvar *generated-image-url*
  +  "/dc/generated-images/"
  +  "The URL where generated images are located.")
  +
     "Registers a picture as available for designing. Stores the picture
   in *PICTURES*"
     (pushnew (make-picture :title title
  
positive.code: ;; Copyright (C) 2011 Rudolf Olah <rolah@goaugust.com>
  
  (require 'quicklisp)
  (ql:quickload '("imago"
  		"cl-colors"
  		"hunchentoot"
  		"md5"
  
negative.code: layers which can be colourized and the user can select new pictures,
  set the colours of the layers, and see the resulting image.")
    (:use :common-lisp
  	:opticl
  	:json
  	:hunchentoot)
    (:export :start-server))
  