anchor.diff:  				     (otherwise nil)))
   				 (read-line request))))))
   		   (bad-pathname (condition)
  -		     (write-error request
  -				  (concatenate 'string
  -					       "Bad selector: "
  -					       (path condition)))))
  +		     (let* ((path (path condition))
  +			    (url-start
  +			     (mismatch path "URL:" :test #'char=)))
  +		       (if (= (or url-start 0) 4)
  +			   (write-html-redirect
  +			    request
  +			    (subseq path url-start))
  +			   (write-error request
  +				    (concatenate 'string
  +						 "Bad selector: "
  +						 path))))))
   	       (socket-error () nil)
   	       (stream-error () nil))
   	     (socket-close client)))
  
positive.code: 	 ("wav" #\s)
  	 (otherwise #\0)))
        #\1))
  
  
  (defun write-text-resource (stream pathname)
    (with-open-file (resource pathname)
  
negative.code: 		     :type :wild)))
  		collecting (resource file))
  	     #'string<
  	     :key (lambda (resource)
  		    (pathname-name
  		     (resource-pathname resource)))))
      (format stream
  	    "~C~A~C~A~C~A~C~A~C~C"
  	    (resource-type resource)
  