anchor.diff:        (loop for line = (read-line in nil)
   	 while line do (format s "~a<br />~%" line))
         (str s))))
  -
  
positive.code: 			  ((equalp action "pull")
  			   (with-html-output (*standard-output* nil)
  			     (:p "Pull result: "
  				 (str (sh "git pull"))))))))))))
  
  
    
  (define-easy-handler (easy-demo :uri "/main"
                                  :default-request-type :get)
  
negative.code:       (with-html-output-to-string (*standard-output* nil :prologue nil)
  	(:html
  	 (:head (:title "Admin page")
  		(:link :rel "stylesheet" :type "text/css" :href "/main.css")
  		(:script :type "text/javascript" :src "/ecmalisp.js"))
  	 (:body (:h2 "Admin interface")
  		(:p (cond ((equalp action "refresh")
  			   (with-html-output (*standard-output* nil)
  			     (refresh)
  			     (:h4 "Handlers refreshed")
  			     (:a :href "/admin?action=list" "back to list")))
  			  ((equalp action "list")
  			   (with-html-output (*standard-output* nil)
  			     (:h3 "Actions:")
  