anchor.diff:  
   (defun entry (category plist)
     (if (typep (getf plist category) 'list)
  -      (string-from-plist category plist)
  +      (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)
   	(:p (who:str (concatenate 'string
   				  (who:with-html-output-to-string (*standard-output* nil) (:b (who:str (string-capitalize category))))
  
positive.code: 	       (string-from-plists :artists plist) "<br />"
  	       (entry :track-number plist) "<br />"
  	       (entry :length plist) "<br />"))
  
negative.code: 		 (loop for (key value) on (getf plist category) by #'cddr
  		    do (format s
  			       (entry key (getf plist category)))))
  	       "</div><br />"))
  
  (defun album-search-html (plist)
    (concatenate 'string
  