anchor.diff:                        initial-cursor-visibility
                         text-margin
                         save-under
  -                      scroll-bars
                         borders
                         label))
     (setf port (or port (find-port)))
  
positive.code:                                            standard-extended-input-stream
                                             fundamental-character-output-stream
                                             standard-application-frame)
    ((stream))
    (:panes
     (io
      (scrolling (:height 400 :width 700)
        (setf (slot-value *application-frame* 'stream)
          (make-pane 'window-stream
                     :width 700
  
negative.code: 					:right right
  					:bottom bottom
  					:width width
  					:height height
                                          :scroll-bars scroll-bars)))
      ;; Adopt and enable the pane
      (when (eq (frame-state frame) :disowned)
        (adopt-frame fm frame))
  