anchor.diff:  	       (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>"))
  +	       (string-from-plists :external-ids plist) (list #\Newline)))
  
positive.code: 
  (defun track-lookup-html (plist)
    (concatenate 'string
  	       (entry :name plist) (list #\Newline)
  	       (entry :href plist) (list #\Newline)
  	       (entry :length plist) (list #\Newline)
  
negative.code: 
  (defun album-lookup-html (plist)
    (concatenate 'string
  	       "<div id='widget'>"
  	       (generate-embed-html (getf plist :href))
  	       "</div><hr />"
  	       (entry :name plist) (list #\Newline)
  	       (entry :artist plist) (list #\Newline)
  	       (entry :artist-id plist) (list #\Newline)
  	       (string-from-plist :availability plist) (list #\Newline)
  	       (string-from-plists :tracks plist) (list #\Newline)))
  
  (defun artist-lookup-html (plist)
    (concatenate 'string
  