Allegro Common Lisp - buttons

Button function which sets the value of a static text widget to the contents of an editable text widget:

(defun form1-default-button-2-on-click (dialog widget)
  (declare (ignorable dialog widget))
  (let* ((text (find-component :editable-text-1 dialog))
         (label (find-component :static-text-1 dialog)))
    (setf (value label) (value text))
    )
  t)