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)