anchor.diff:      (:div :id "inner"
   	  (who:str 
   	   (with-output-to-string (s)
  -	     (loop for (key value) on (getf plist category) by #'cddr
  +	     (loop for each-list in (cdr (assoc category plist))
   		do (format s
  -			   (entry key (getf plist category)))))))
  +			   (entry (car each-list)
  +				  (cdr (assoc category plist))))))))
       (:br)))
   
   (defun album-search-html (plist)
  
positive.code: 	 (:i (who:str value)))))
  
  (defun entry (category plist)
    (if (typep (getf plist category) 'list)
        (if (typep (first (getf plist category)) 'list)
  	  (string-from-plists category plist)
  	  (string-from-plist category plist))
        (who:with-html-output-to-string (*standard-output* nil)
  
negative.code: (defun artist-lookup-html (plist)
    (concatenate 'string
  	       (who:with-html-output-to-string (*standard-output* nil)
  		 (:div :id "widget" (who:str (generate-embed-html (cdr (assoc :href plist)))))
  		 (:hr))
  	       (entry :name plist) (list #\Newline)
  	       (entry :href plist) (list #\Newline)
  