anchor.diff:        
         (refresh scr)
         (loop named menu-case
  -         do
  -           (let ((result (select menu)))
  -             ;; TODO: returning an empty list exits the loop.
  -             (unless result (return-from menu-case))
  -             (format scr "You chose ~A~%"
  -                     (mapcar (lambda (x) (if x (.value x)))
  -                             result))
  -             (refresh scr)))
  +         do (let ((result (select menu)))
  +              ;; TODO: returning an empty list exits the loop.
  +              (unless result (return-from menu-case))
  +              (format scr "You chose ~A~%"
  +                      (mapcar (lambda (x) (if x (.value x)))
  +                              result))
  +              (refresh scr)))
         (close menu))))
   
   ;; Passing the color attribute directly to a character.
  
positive.code:                                 ;; we do not need an item mark in a checklist
                                  :current-item-mark ""
                                  :width 60 :border t :enable-fkeys t
                                  :title "this is my checkbox dialog"
                                  :message-height 2
                                  :message-text "Press <- or -> to choose. Enter to confirm choice.~%Press q to exit.")))
  
  
negative.code:            (field1 (make-instance 'field :position (list 3 20) :width 10 :style style :max-buffer-length 5))
             (field2 (make-instance 'field :position (list 5 20) :width 10 :style style))
             (field3 (make-instance 'field :position (list 7 20) :width 10 :style style :max-buffer-length 15))
             ;; a window is associated with the parent form, and during initialization of the form, it is associated with every field.
             (form (make-instance 'form :fields (list field1 field2 field3) :window scr)))
  
        (setf (.background scr) (make-instance 'complex-char :simple-char #\space :color-pair '(:white :blue)))
        
  