[Bese-devel] Another possible backtracking bug.

[William Halliburton]

I am now using the latest ucw_dev.

Code:

(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) 3) (call 'info-message :message "At
3" :ok-text nil)))

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


Starts at 0. Clicked to 1. Clicked to 2. Clicked to "At 3". Back to 2.
Reload send to "At 3".

Starts at 0. Clicked to 1. Clicked to 2. Clicked to "At 3". Back to 2.
Back to 1. Click sends to "At 3".

I will attempt to debug to get more familiar. 

Thanks,
Will