anchor.diff:      (handle-object-form handler action object)))
   
   (defmethod handle-object-form ((handler edit-object-handler) action (object (eql nil)))
  +  (declare (ignore action))
     (with-bknr-page (:title "No such object")
       (html "No such object, ieeeh")))
   
  
positive.code: 
  (defclass directory-handler (cachable-handler prefix-handler)
    ((destination :initarg :destination
  		:reader page-handler-destination))
    (:documentation
     "Handler for a directory in the file system.  Publishes all files
  in the directory DESTINATION under their relative path name."))
  
  (defgeneric request-relative-pathname (directory-handler)
    (:documentation "Return the relative pathname for the current
  request as determined by DIRECTORY-HANDLER.")
    (:method ((handler directory-handler))
      (or (aux-request-value 'request-relative-pathname)
          (setf (aux-request-value 'request-relative-pathname)
                (pathname (subseq (script-name*) (1+ (length (page-handler-prefix handler)))))))))
  
  (defmethod handler-matches-p ((handler directory-handler))
    (and (call-next-method)
         (probe-file (merge-pathnames (request-relative-pathname handler)
  				    (page-handler-destination handler)))))
  
  (defmethod handle ((handler directory-handler))
    (handle-static-file (merge-pathnames (request-relative-pathname handler)
  				       (page-handler-destination handler))))
  
  (defclass file-handler (page-handler)
    ((destination :initarg :destination
  
negative.code: 
  (defgeneric object-date-list-handler-date (handler object)
    (:method ((handler object-date-list-handler) object)
      (declare (ignore object))
      (with-query-params (date)
        (get-daytime (if date
                         (or (parse-integer date :junk-allowed t)
  