Changeset 3442

Show
Ignore:
Timestamp:
07/15/08 12:46:03 (6 months ago)
Author:
ksprotte
Message:

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

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r2481 r3442  
    2929              (setf (cl-gd:raw-pixel) (aref work-array x y))))) 
    3030        (emit-image-to-browser cl-gd:*default-image* :png :cache-sticky t)))) 
     31 
     32(defmethod handle-object ((handler contract-image-handler) (contract null)) 
     33  (error "no contract found")) 
     34