;same as code in request-hooks.lisp except both "when" predicates are
inverted.
;i.e. we always want "when" bodies to run else there is an error in
non-debug
;mode saying that *parts-md5-context-hash* is unbound.
;an alternative fix is to just patch the original removing the when
predicates.
;the correct fix is neither. it is to disable the code causing the "unbound
var"
;complaint when in prod mode.
(eval-when (:load-toplevel)
(pushnew
(lambda ()
(when (not (or *weblocks-global-debug*
(webapp-debug)))
(weblocks-util:reset-html-parts-set)))
(request-hook :application :pre-render))
(pushnew
(lambda ()
(declare (special weblocks-util:*parts-md5-hash*
weblocks-util:*parts-md5-context-hash*))
(when (not (or *weblocks-global-debug*
(webapp-debug)))
(progn
(weblocks-util:update-html-parts-connections)
(setf (webapp-session-value 'parts-md5-hash)
weblocks-util:*parts-md5-hash*)
(setf (webapp-session-value 'parts-md5-context-hash)
weblocks-util:*parts-md5-context-hash*))))
(request-hook :application :post-render)))
--
You received this message because you are subscribed to the Google Groups
"weblocks" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/weblocks.
For more options, visit https://groups.google.com/d/optout.
