anchor.diff:  
              (form (make-instance 'form
                                   :elements (list field1 field2 field3 cb1 label1 label2 label3 label4 button1 button2 button3)
  -                                :style s7 :window scr)))
  +                                :style sf1 :window scr)))
   
         ;; for debugging, return prints the content of the buffer and then deletes the buffer
         (bind form :f4 'de.anvi.croatoan::debug-print-field-buffer)
   
         ;; Functions to be called when the button is activated by #\newline or #\space.
         (setf (callback button1) (lambda (b e) (save-excursion scr (move scr 0 0) (format scr "Hello there"))))
  -      (setf (callback button2) 'accept-form)
  -      (setf (callback button3) 'cancel-form)
  +      (setf (callback button2) 'accept)
  +      (setf (callback button3) 'cancel)
   
         ;; The set value shouldnt be longer than the max-buffer-length
         (setf (value field2) "hello"
               (value field3) "dear john")
  -      
  +
         ;; Access fields by their name instead of looping through the elements list.
         (if (edit form)
             ;; edit returned t, which means the user accepted the form
  
positive.code:         (refresh scr)
  
          (setf (callback button1) 'reset-form)
          (setf (callback button2) 'cancel-form)
          (setf (callback button3) 'accept-form)
  
          (if (edit form)
              (setq value (pairlis (list (title field1) (title field2))
  
negative.code: 
        (bind field #\newline 'de.anvi.croatoan::debug-print-field-buffer)
        
        ;; pressing ^A (for "accept") exits the edit mode (for now)
        ;; the field variables are not reset when edit is exited, we can access them after the edit.
        (if (edit field)
            ;; accept returns t
            (progn
              (clear scr)
              ;; display the contents of the input buffer of the field
              (format t "buffer: ~A~%" (buffer field))
              (format t "string: ~A" (value field)))
            ;; when cancel returns nil
            (progn
              (clear scr)
              (format t "field edit canceled.")))
            
        (refresh scr)
  
        ;; wait for keypress, then exit
  