Frank Goenninger wrote:
Hmmm. So there's this function I "borrowed" from Kenny's code:
(defun ht-monitor-page (path resource-class) (lambda (request) (trc "bingo request!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!" request path resource-class) (start-session) (let ((root (or (bwhen (r (session-value 'root)) (trc "clearing updates on re-used root!!!!!!!" r) (setf (updates r) nil) r) (progn (trc "creating new web-app...") (mk-web-app (:prefix path :request (c-in request)) ;; was (c-in request) but we set that below so ???
I noticed that as well, never got a chance to pursue the question. I believe I tried supplying (c-in nil) as the initarg and things did not go well so I restored it to what is shown. The setf below is then an NOP when we make a new web-app because of how Cells handles non-change. I guessed that things happened during initialization that depended on having the intial request in hand. Andy will know better.
(make-instance resource-class :fm-parent *parent*)))))) (trc "ROOT = " root) (setf (session-value 'root) root) (setf (request root) request) #+test-ht-monitor (break) ;; <<<<<<<-- See here ;; (assert (handler root)) ;; <<<<<<<-- AND HERE ! ALWAYS FAILS !
That might be a bug I inserted, not understanding that some requests go to jquery and in that case openair should return nil. I took out a bit that looked for the "apropos" prefix and changed it to something ... well, I was just thrashing and reacted badly to something that looked wrong but probably was nominal.
kt
(trc "Handler is: " (describe (handler root))) (trc "******* Calling handler ") (handler root))))My model is quite simple:
(defmd ht-monitor (page) name ip-address term
:title ":: HUNCHENTOOT MONITOR ::" :style "/css/ht-monitor.css"
:name (c? (server-name *server*)) :ip-address (c? (server-address *server*)) :term (c-in "")
:kids (c? (the-kids (mk-div () (mk-text (c? (conc$ "Name: " (name (u^ ht-monitor)))))) (mk-div () (mk-text (c? (conc$ "IP Address: " (ip-address (u^ ht- monitor)))))) (mk-div () (mk-form (:action :get) (mk-text "Input: ") (mk-input (:name "i" :id "i" :-type "text" :value (c?n (term (u^ ht-monitor))))) (mk-text (c? (conc$ "Reversed: " (reverse (term (u^ ht-monitor)))))))))))
Handler is always NIL. The assertion always fails. I could not figure out why...
Any ideas ???
Thx!
Best, Frank
cells-devel site list cells-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cells-devel