anchor.diff:  				 (loop for (key value) on each-plist by #'cddr
   				    do (format d
   					       (concatenate 'string
  -							    (entry (string-capitalize key) value) "<br />")))))))
  +							    (entry key each-plist) value) "<br />"))))))
   	       "</div>"))
   
   (defun string-from-plist (category plist)
  
positive.code: 	 (:b (who:str (concatenate 'string (string-downcase (string key)) " : ")))
  	 (:i (who:str value)))))
  
  (defun entry (category value)
    (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 category)))
  			      " " value)))))
  
  (defun string-from-plists (category plist)
    (concatenate 'string
  
negative.code: 	       (with-output-to-string (s)
  		 (loop for (key value) on (getf plist category) by #'cddr
  		    do (format s
  			       (entry key (getf plist category)))))
  	       "</div>"))
  
  (defun album-search-html (plist)
    (concatenate 'string
  	       (entry :name plist) "<br />"
  	       (entry :href plist) "<br />"
  	       (entry :popularity plist) "<br />"
  	       (string-from-plists :artists plist) "<br />"
  	       (string-from-plists :external-ids plist) "<br />"
  	       (string-from-plist :availability plist) "<br />"))
  