anchor.diff:        ;; display the contents of the input buffer of all fields of the form
         ;; use field-buffer-to-string to get the contents of the field buffer as a string instead of a list of chars.
         (loop for i in (.fields form) do
  -        (format scr "~A ~A ~%" (.buffer i) (field-buffer-to-string i)))
  +        (format scr "~A ~A ~%" (.buffer i) (.value i)))
   
         (refresh scr)
         ;; wait for keypress, then exit
  
positive.code: (defun t16f ()
    "Group several input fields to a form."
    (with-screen (scr :input-echoing nil :cursor-visibility t :enable-colors t :enable-fkeys t :input-blocking t)
      (let* ((field1 (make-instance 'field :position (list 3 20) :width 20))
             (field2 (make-instance 'field :position (list 5 20) :width 20))
             (field3 (make-instance 'field :position (list 7 20) :width 20))
             (form   (make-instance 'form :fields (list field1 field2 field3))))
  
        ;; before the form can be edited, a set of predefined event handlers from the default keymap
        ;; has to be associated with the window.
        (setf (.event-handlers scr) (get-keymap :form-default-keymap))
  
negative.code:       (clear scr)
        ;; display the contents of the input buffer of the field
        (format t "buffer: ~A~%" (.buffer field))
        (format t "string: ~A" (.value field))
        (refresh scr)
  
        ;; wait for keypress, then exit
  