anchor.diff:           (vertically (:width 150 :max-width 500)
              (setf text-field screen)
              (horizontally (:height 50) ac ce)
  -           (tabling ()
  +           (tabling (:grid t)
                (list one two plus)
                (list three four dash)
                (list five six multiply)
  
positive.code:    (eight    (make-button "8" (queue-number 8)))
     (nine     (make-button "9" (queue-number 9)))
     (zero     (make-button "0" (queue-number 0)))
     (screen   :text-field :value "0")
     (ac       (make-button "AC" #'initac))
     (ce       (make-button "CE" #'initce)))
  
  
negative.code: 
  (in-package :clim-demo)
  
  (defparameter *calculator-text-style*
    (make-text-style :sans-serif :roman :large))
  
  (defun calculator ()
    #+nil
    (progn
      (loop for port in climi::*all-ports*
          do (destroy-port port))
  