anchor.diff:  	     (t #'write-text-resource))
   	   stream
   	   pathname))
  +
  +(defun write-html-redirect (stream url)
  +  (format stream "<html>
  +<head>
  +<meta http-equiv=\"refresh\" content=\"5; url=~A\">
  +</head>
  +<body>
  +<p>
  +The directory entry you selected was supposed to link to an HTTP-based
  +website. Unfortunately, your gopher client is pathetic and doesn't
  +support the hURL specification, so I've had to insert this shitty page
  +into my Gopher server. I hope you're happy.
  +</p>
  +<p>
  +If you're not redirected after 5 seconds of this loveliness, click the
  +below link to the URL you tried (and failed) to access.
  +</p>
  +<p>
  +The place you're supposed to be is: <a href=\"~A\">~A</a>
  +</p>
  +<p>
  +Gopher ftw!!1
  +</p>
  +</body>
  +</html>
  +"
  +	  url url url))
   
   (defun write-error (stream error)
     (format stream "~C~A~C~C~%~C~A~C~C"
  
positive.code: 		     :type :wild)))
  		collecting (resource file))
  	     #'string<
  	     :key #'resource-selector))
      (format stream
  	    "~C~A~C~A~C~A~C~A~C~C"
  	    (resource-type resource)
  
negative.code: 	 ("wav" #\s)
  	 (otherwise #\0)))
        #\1))
  
  (defun write-text-resource (stream pathname)
    (with-open-file (resource pathname)
  