anchor.diff:  	:cl-colors
   	:json
   	:hunchentoot)
  +  (:import-from :hunchentoot :session-id)
     (:export :start-server))
   (in-package :design-center)
   
  
positive.code: (defmethod encode-json ((p picture) &optional stream)
    (encode-json `((:id . ,(picture-id p))
  		 (:title . ,(picture-title p))
  		 (:description . ,(picture-description p)))
  	       stream))
  
  (define-ajax select-picture (id)
  
negative.code:     (write-png-file im image-output-filename)
      image-output-filename))
  
  (defun picture-url (picture)
    (format nil "~A/~A_~A.png" *generated-image-url* (picture-id picture) (session-id *session*)))
  
  ;; Request handlers (a.k.a. views)
  (defmacro define-ajax (name vars uri documentation &body body)
    `(define-easy-handler (,name :uri ,uri) ,vars
  