anchor.diff:  	 (:i (who:str value)))))
   
   (defun entry (category plist)
  -  (if (typep (getf plist category) 'list)
  -      (if (typep (first (getf plist category)) 'list)
  +  (if (typep (cdr (assoc category plist)) 'list)
  +      (if (typep (first (cadr (assoc category plist))) 'list)
   	  (string-from-plists category plist)
   	  (string-from-plist category plist))
         (who:with-html-output-to-string (*standard-output* nil)
  
positive.code:     (:div :id "inner"
  	  (who:str 
  	   (with-output-to-string (s)
  	     (loop for (key value) on (getf plist category) by #'cddr
  		do (format s
  			   (entry key (getf plist category)))))))
      (:br)))
  
  (defun album-search-html (plist)
  
negative.code: 					(:a :href (concatenate 'string
  							       "/"
  							       (second (string-split 
  									(cdr (assoc category plist)) #\:))
  							       "/" (cdr (assoc category plist)))
  					    (who:str (cdr (assoc category plist)))))
  				      (if (typep (cdr (assoc category plist)) 'number)
  					  (write-to-string (cdr (assoc category plist)))
  					  (string (cdr (assoc category plist)))))))))))
  
  (defun string-from-plists (category plist)
    (concatenate 'string
  