anchor.diff:  (defun string-from-plists (category plist)
     (concatenate 'string
   	       "<strong>" (string-capitalize category) "</strong>"
  -	       "<br /><div id='inner'>"
  +	       "<br />"
   	       (with-output-to-string (s)
  -		 (loop for each-plist in (getf plist category)
  -		    do (format s
  -			       (with-output-to-string (d)
  -				 (loop for (key value) on each-plist by #'cddr
  -				    do (format d (entry key each-plist)))))))
  -	       "</div>"))
  +		 (loop for each-plist in (getf plist category) do
  +		      (format s
  +			      (concatenate 'string
  +					   "<div id='inner'>"
  +					   (with-output-to-string (d)
  +					     (loop for (key value) on each-plist by #'cddr
  +						do (format d (entry key each-plist))))
  +					   "</div>"))))))
   
   (defun string-from-plist (category plist)
     (concatenate 'string
  
positive.code: 	       (string-from-plist :album plist) (list #\Newline)
  	       (string-from-plists :artists plist) (list #\Newline)
  	       (string-from-plist :availability plist) (list #\Newline)
  	       (string-from-plists :external-ids plist) (list #\Newline)
  	       "<div id='widget'>"
  	       (generate-embed-html (getf plist :href))
  	       "</div>"))
  
negative.code: 
  (defun track-lookup-html (plist)
    (concatenate 'string
  	       "<div id='widget'>"
  	       (generate-embed-html (getf plist :href))
  	       "</div><hr />"
  	       (entry :name plist) (list #\Newline)
  	       (entry :href plist) (list #\Newline)
  	       (entry :length plist) (list #\Newline)
  