anchor.diff:     ))
   
   (defmethod parse-contents ((pane table-pane) contents)
  -  (loop 
  +  (loop
         for row in contents
         for i from 0
         nconc (loop
                   for col in row
                   for j from 0
  -                collect (make-instance 'table-content 
  +                collect (make-instance 'table-content
                             :pane col
                             :row i
                             :col j))))
  
positive.code: 	do (remf options key))
    (let ((pane (apply #'make-pane type options)))
      (when scroll-bars
        (setq pane (make-pane 'scroller-pane 
  			    :scroll-bar scroll-bars
  			    :contents (list (make-pane 'viewport-pane 
  						       :contents (list pane))))))
      (when (and border-width (> border-width 0))
        (setq pane (make-pane 'border-pane 
  			    :border-width border-width 
  			    :contents (list pane))))
      pane))
  
  
negative.code: 
  ;;; 29.4.5 Creating a Standalone CLIM Window
  
  (define-application-frame a-window-stream ()
    ((the-io))
    (:panes
     (io
  