anchor.diff:                 (true-form `(with-stream-in-own-window
                                  (,stream
                                   :label ,label
  +				:height ,height
  +				:width ,width
                                   ,@(and foregroundp `(:foreground ,foreground))
                                   ,@(and backgroundp `(:background ,background)))
                                (*standard-input* *standard-output*)
  
positive.code: (locally
      (declare #+sbcl (sb-ext:muffle-conditions style-warning))
    (defmacro with-stream-in-own-window ((&optional (stream '*query-io*)
                                                    &rest window-args
                                                    &key
                                                    label foreground background)
                                                      (&rest further-streams)
                                          &rest body)
      (declare (ignorable label foreground background))
      `(let* ((,stream (open-window-stream :input-buffer
                                           (climi::frame-event-queue
                                            *application-frame*)
  
negative.code:                 ((eq own-window nil) return-form)
                  (t `(if ,own-window
                          ,true-form
                          ,return-form))))))))
  
  (defun invoke-accepting-values
      (stream body
  