[Bese-devel] Backtracking bug still present in my runs.

[William Halliburton]

The sample code I submitted also works for me, if I place it into a
containter. The following code should show the bug. Is this invalid
use of render-on? Thanks for the explanation of backtracking.

Will


 (defcomponent calltest-window (simple-window-component)
  ((calltest :component calltest :accessor calltest-window.calltest))
  (:default-initargs :title "calltest")
  (:documentation ""))

(defentry-point "calltest.ucw" (:application *wch-application*) ()
  (call 'calltest-window))

(defmethod render-on ((res response) (app calltest-window))
  (render-on res (calltest-window.calltest app)))


(defcomponent calltest-2 (widget-component)
  ())
   
(defmethod render-on ((res response) (calltest-2 calltest-2))
  (<:as-html "At 2"))

(defcomponent calltest (widget-component)
  ((val :backtrack t :initform 0 :initarg :val :accessor calltest.val)))
   
(defaction calltest-increment ((calltest calltest))
  (incf (calltest.val calltest))
  (if (= (calltest.val calltest) 2) (call 'calltest-2)))

(defmethod render-on ((res response) (calltest calltest))
  (<ucw:a :action (calltest-increment calltest) (<:as-html
(calltest.val calltest))))