[bknr-cvs] hans changed trunk/projects/quickhoney/src/handlers.lisp

[BKNR Commits]

Revision: 4108
Author: hans
URL: http://bknr.net/trac/changeset/4108

adapt to current yason api
U   trunk/projects/quickhoney/src/handlers.lisp

Modified: trunk/projects/quickhoney/src/handlers.lisp
===================================================================
--- trunk/projects/quickhoney/src/handlers.lisp	2008-12-02 22:16:07 UTC (rev 4107)
+++ trunk/projects/quickhoney/src/handlers.lisp	2008-12-03 21:16:32 UTC (rev 4108)
@@ -45,7 +45,7 @@
   ()
   (:default-initargs :query-function #'store-image-with-name))
 
-(defmethod json:encode ((object symbol) stream)
+(defmethod json:encode ((object symbol) &optional stream)
   (json:encode (string-downcase (symbol-name object))
                stream))
 
@@ -598,4 +598,4 @@
 
 (defmethod handle ((handler shutdown-handler))
   (hunchentoot:stop-server hunchentoot:*server*)
-  "Shutting down HTTP server")
\ No newline at end of file
+  "Shutting down HTTP server")