anchor.diff:  	 ("wav" #\s)
   	 (otherwise #\0)))
         #\1))
  -
   
   (defun write-text-resource (stream pathname)
     (with-open-file (resource pathname)
  
positive.code: 				     (otherwise nil)))
  				 (read-line request))))))
  		   (bad-pathname (condition)
  		     (write-error request
  				  (concatenate 'string
  					       "Bad selector: "
  					       (path condition)))))
  	       (socket-error () nil)
  	       (stream-error () nil))
  	     (socket-close client)))
  
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)
  