[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-image-handler.lisp

[BKNR Commits]

Revision: 3442
Author: ksprotte
URL: http://bknr.net/trac/changeset/3442

contract-image-handler: small fix. gives a more explanatory error
message when the contract does not exist

U   trunk/projects/bos/web/contract-image-handler.lisp

Modified: trunk/projects/bos/web/contract-image-handler.lisp
===================================================================
--- trunk/projects/bos/web/contract-image-handler.lisp	2008-07-15 10:14:00 UTC (rev 3441)
+++ trunk/projects/bos/web/contract-image-handler.lisp	2008-07-15 10:46:03 UTC (rev 3442)
@@ -27,4 +27,8 @@
 	  (cl-gd:do-rows (y)
 	    (cl-gd:do-pixels-in-row (x)
 	      (setf (cl-gd:raw-pixel) (aref work-array x y)))))
-	(emit-image-to-browser cl-gd:*default-image* :png :cache-sticky t))))
\ No newline at end of file
+	(emit-image-to-browser cl-gd:*default-image* :png :cache-sticky t))))
+
+(defmethod handle-object ((handler contract-image-handler) (contract null))
+  (error "no contract found"))
+