anchor.diff:  ;;; Library General Public License for more details.
   ;;;
   ;;; You should have received a copy of the GNU Library General Public
  -;;; License along with this library; if not, write to the 
  -;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  +;;; License along with this library; if not, write to the
  +;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
   (in-package :clim-internals)
  
positive.code:     (force-output stream)
      ;; Why is this binding here? We need the "environment" in this call that
      ;; computes the new records of an outer updating output record to resemble
      ;; that when a record's contents are computed in invoke-updating-output. 
      (letf (((stream-current-output-record stream)
  	    (output-record-parent record)))
        (compute-new-output-records-1 record 
  				    stream
  				    (output-record-displayer record)))))
  
  
negative.code: (defmethod map-over-updating-output (function record use-old-records)
    (declare (ignore function record use-old-records))
    nil)
  ;;;
  (defvar *current-updating-output* nil)
  
  (defgeneric compute-new-output-records (record stream))
  