anchor.diff:  	     (loop for page in (pages showcase)
   		do
   		  (<:list-item (<:label (car page))
  -			       (when (eql (selected-page showcase)
  -					  page)
  +			       (when (equalp (selected-page showcase)
  +					     page)
   				 (<:selected= t)))))
   	   (<:splitter (<:collapse= :before)
   		       (<:grippy))
  
positive.code: 				  (let ((component (make-instance (getf (cdr (selected-page showcase)) :component))))
  				    (render component))))
  			(<:tab-panel
  			  (let ((source (getf (cdr (selected-page showcase)) :source)))
  			    (file-string source)))))))
  
  (defparameter *showcase-pages*
    (flet ((source (filename)
  
negative.code: 		 :name "showcase"
  		 :root-component (make-instance 'showcase)
  		 :build-id "0001"
  		 :id "Showcase"))
  
  (defun showcase ()
    (run-app *showcase-app*)) 
  