[Bese-devel] defaction/dotimes bug?

[asbjxrn at bjxrnstad.net]

Is this expected? Using dolist within an action causes an error for 
me. 

(defaction test-form ((pane message-box))
  (call 'info-message :message (format nil "~A" (call 'test-form ))))

(defcomponent test-form (form-element)
  ((top-pane :initarg :top-pane :accessor top-pane)
   (foo :initarg :foo :accessor foo :component (integer-element))))

(defmethod render ((pane test-form))
  (<ucw:form :action (submit pane)
             (render (foo pane))
   (<:input :type :submit)))

(defun foob (x)
  (dolist (hum '(1 2 3) x)
    (incf x)))

(defaction submit ((pane test-form))
  (if (validp pane)
    (let ((bar (lisp-value (foo pane))))
;      (answer (dolist (hum '(1 2 3) bar) (incf bar))))))  ; Bug?
      (answer (foob bar)))))

-- 
  -asbjxrn