[bknr-cvs] r2439 - in branches/trunk-reorg: bknr/web/src projects/quickhoney/src

[hhubner at common-lisp.net]

Author: hhubner
Date: Sat Feb  2 18:30:00 2008
New Revision: 2439

Modified:
   branches/trunk-reorg/bknr/web/src/bknr-web.asd
   branches/trunk-reorg/projects/quickhoney/src/handlers.lisp
Log:
Commit smaller fixes before trying a merge from the bos branch


Modified: branches/trunk-reorg/bknr/web/src/bknr-web.asd
==============================================================================
--- branches/trunk-reorg/bknr/web/src/bknr-web.asd	(original)
+++ branches/trunk-reorg/bknr/web/src/bknr-web.asd	Sat Feb  2 18:30:00 2008
@@ -22,7 +22,6 @@
     :depends-on (:cl-interpol
 		 :cl-ppcre
 		 :cl-gd
-		 :kmrcl
 		 :alexandria
 		 :md5
 		 :cxml

Modified: branches/trunk-reorg/projects/quickhoney/src/handlers.lisp
==============================================================================
--- branches/trunk-reorg/projects/quickhoney/src/handlers.lisp	(original)
+++ branches/trunk-reorg/projects/quickhoney/src/handlers.lisp	Sat Feb  2 18:30:00 2008
@@ -39,7 +39,7 @@
 		       (get-keywords-intersection-store-images (mapcar #'make-keyword-from-string (decoded-handler-path handler))))
 	#'< :key #'blob-timestamp))
 
-(defmethod image-to-javascript ((image quickhoney-image) &optional stream)
+(defmethod image-to-javascript ((image quickhoney-image))
   (format nil " new parent.ServerImage(~S, ~D, ~S, ~D, ~D, ~S)"
 	  (store-image-name image)
 	  (store-object-id image)