anchor.diff:  
   (define-presentation-method accept :around
     ((type sequence) stream (view listener-view) &key default default-type)
  +  (declare (ignorable default default-type))
     ;; oh, my word.  although TYPE here might look like it's bound to
     ;; the presentation type itself, in fact it is bound to the
     ;; parameter of the SEQUENCE presentation type.  We need the
  
positive.code:       (apply #'call-next-method stream object type :single-box t args)))
  
  ;;; Listener application frame
  (define-application-frame listener (standard-application-frame
                                      command-history-mixin)
      ((system-command-reader :accessor system-command-reader
  			    :initarg :system-command-reader
  			    :initform t))
    (:panes (interactor-container
             (make-clim-stream-pane
              :type 'listener-interactor-pane
              :name 'interactor :scroll-bars t :display-time t
              :display-function #'listener-initial-display-function))
            (doc :pointer-documentation)
            (wholine (make-pane 'wholine-pane
                       :display-function 'display-wholine :scroll-bars nil
  
negative.code: (defmethod frame-standard-output ((frame listener))
    (get-frame-pane frame 'interactor))
  
  (defun run-listener (&key (new-process nil)
                            (width 760)
                            (height 550)
                            (process-name "Listener"))
    (flet ((run ()
             (let ((frame (make-application-frame 
                           'listener
                           :width width :height height)))
               (run-frame-top-level frame))))
      (if new-process
          (clim-sys:make-process #'run :name process-name)
          (run))))
  