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")) +