anchor.diff:      (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
  
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: 	:cl-colors
  	:json
  	:hunchentoot)
    (:import-from :hunchentoot :session-id)
    (:export :start-server))
  (in-package :design-center)
  
  