[Bese-devel] Minor problem with src/backends/httpd.lisp

[Peter Scott]

There's a typo in httpd.lisp in the latest version. Here's my fix for it:

$ tla changes --diffs
* looking for ucw-2004 at common-lisp.net/ucw--dev--0.3--patch-424 to compare with
* comparing to ucw-2004 at common-lisp.net/ucw--dev--0.3--patch-424
M  src/backend/httpd.lisp

* modified files

--- orig/src/backend/httpd.lisp
+++ mod/src/backend/httpd.lisp
@@ -55,7 +55,7 @@
 
 (defmethod unregister-url-handler ((backend httpd-backend) url)
   (setf (handlers backend)
-        (remove url (handlers backend) :test #'string :key #'car)))
+        (remove url (handlers backend) :test #'string= :key #'car)))
 
 (defmethod handle-request ((backend httpd-backend) (request
httpd-request) (response httpd-response))
   (aif (assoc (query-path request) (handlers backend) :test #'string=)