anchor.diff:  
   (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))
  
positive.code:   (make-pane 'push-button-pane
  	     :label label
  	     :activate-callback operator
  	     :width width :height height
  	     :max-width  max-width :min-width min-width
  	     :max-height max-height :min-height min-height))
  
negative.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" :text-style *calculator-text-style*)
     (ac       (make-button "AC" #'initac))
     (ce       (make-button "CE" #'initce)))
  
  