anchor.diff:  ;; Copyright (C) 2011 Rudolf Olah <rolah@goaugust.com>
   
   (require 'quicklisp)
  -(ql:quickload '("imago"
  +(ql:quickload '("opticl"
   		"cl-colors"
   		"hunchentoot"
   		"md5"
  
positive.code:   "The path in which to search for pictures available for designing.")
  
  (defun add-picture (title path &optional (description ""))
    "Registers a picture as available for designing. Stores the picture
  in *PICTURES*"
    (pushnew (make-picture :title title
  
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))
  