anchor.diff:  		   (tabling ()
   		      (list one two plus)
   		      (list three four dash)
  -		      (list five six multiplicate)
  +		      (list five six multiply)
   		      (list seven eight divide)
   		      (list nine zero result)))
   		slider)))
  
positive.code:        (if (numberp last-item)
  	   (setf (car (last calc)) (+ (* 10 last-item) ,int))
  	   (setf calc (nconc calc (list ,int))))
         (setf (gadget-value *text-field*) (princ-to-string (first (last calc)))))))
  
  (defmacro queue-operator (operator)
    `(lambda (gadget)
  
negative.code: 
  (defun find-text-field (frame)
    (first (member-if #'(lambda (gadget) (typep gadget 'text-field))
  		    (frame-current-panes frame))))
  
  (defmethod sliderdemo-frame-top-level
      ((frame application-frame)
       &key (command-parser 'command-line-command-parser)
       (command-unparser 'command-line-command-unparser)
       (partial-command-parser
        'command-line-read-remaining-arguments-for-partial-command)
       (prompt "Command: "))
    (declare (ignore command-parser command-unparser partial-command-parser prompt))
    (setf *text-field* (find-text-field frame))
    (clim-extensions:simple-event-loop))
  
  (eval-when (:compile-toplevel)
    (defun make-operator-button-form (name label operator)
      `(,name :push-button
              :space-requirement (make-space-requirement
                                  :width 50 :height 50)
              :label ,label
              :activate-callback (queue-operator #',operator)))
  
    (defun make-number-button-form (name label number)
      `(,name :push-button
              :space-requirement (make-space-requirement
                                  :width 50 :height 50)
              :label ,label
              :activate-callback (queue-number ,number))))
  
  (define-application-frame sliderdemo () ()
    (:panes #.(make-operator-button-form 'plus "+" '+)
            #.(make-operator-button-form 'dash "-" '-)
            #.(make-operator-button-form 'multiply "*" '*)
            #.(make-operator-button-form 'divide "/" 'round)
            #.(make-operator-button-form 'result "=" 'do-operation)
            #.(make-number-button-form 'one "1" 1)
            #.(make-number-button-form 'two "2" 2)
            #.(make-number-button-form 'three "3" 3)
            #.(make-number-button-form 'four "4" 4)
            #.(make-number-button-form 'five "5" 5)
            #.(make-number-button-form 'six "6" 6)
            #.(make-number-button-form 'seven "7" 7)
            #.(make-number-button-form 'eight "8" 8)
            #.(make-number-button-form 'nine "9" 9)
            #.(make-number-button-form 'zero "0" 0)
            (screen :text-field
                    :value "0"
                    :space-requirement (make-space-requirement :width 200 :height 50))
            (ac     :push-button
                    :space-requirement (make-space-requirement :width 50 :height 50)
                    :label "AC"
                    :activate-callback #'initac)
            (ce     :push-button
                    :space-requirement (make-space-requirement :width 50 :height 50)
                    :label "CE"
                    :activate-callback #'initce)
            (slider :slider
                    :value-changed-callback #'slide
                    :min-value 0
                    :max-value 100
                    :value 0
                    :normal +white+
                    :highlighted +cyan+
                    :pushed-and-highlighted +blue+))
    (:layouts
     (defaults (horizontally ()
  	        (vertically ()
  