anchor.diff:    (mapcar #'(lambda (x)
   	      (item-picture x))
   	  (invoice-item-list invoice)))
  +
  +(define-easy-handler (checkinlist :uri "/checkinlist") ()
  +  (standard-page (:title "Check in list")
  +    (standard-check-in-showlist)))
   
   (define-easy-handler (createpdf :uri "/createpdf") ()
     (let* ((invoice (find-invoice-from-cookie (cookie-in "current-invoice")))
  
positive.code: 	:cl-who
  	:cl-pass
  	:hunchentoot
  	:parenscript))
  
  (defvar *current-message-list* '())
  (defvar *global-invoice-list* '())
  
negative.code: 		      :set-name setname
  		      :show-name showname
  		      :contact-name contact
  		      :root-dir root-dir
  		      :pdf-location '())
      (set-cookie "current-invoice" :value  *global-invoice-id*)
    (register-message :sender "Global Messages" :recipient "global"
  		    :content (concatenate 'string "An order has been started for " showname
  