anchor.diff:  		 (loop for (key value) on (getf plist category) by #'cddr
   		    do (format s
   			       (entry key (getf plist category)))))
  -	       "</div>"))
  +	       "</div><br />"))
   
   (defun album-search-html (plist)
     (concatenate 'string
  
positive.code: 
  (defun entry (category plist)
    (if (typep (getf plist category) 'list)
        (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))))
  
negative.code: 	       (string-from-plists :artists plist) "<br />"
  	       (entry :track-number plist) "<br />"
  	       (entry :length plist) "<br />"))
  
  (defun album-lookup-html (plist)
    (concatenate 'string
  	       (entry :name plist) "<br />"
  	       (entry :artist plist) "<br />"
  	       (entry :artist-id plist) "<br />"
  	       (string-from-plist :availability plist) "<br />"
  	       (string-from-plists :tracks plist) "<br />"))
  