Method: (FIND-ENTRY-POINT AROUND STANDARD-APPLICATION REQUEST-CONTEXT)

Source

(defmethod find-entry-point :around ((app standard-application) (context request-context))
  (macrolet ((cached-query-path ()
               `(gethash (query-path (context.request context))
                         (entry-point-cache app))))
    (or (cached-query-path)
        (setf (cached-query-path) (call-next-method)))))