anchor.diff:  ;; (setf my-greeter (#/init (#/alloc greeter)))
   ;; #<GREETER <Greeter: 0x136c58e0> (#x136C58E0)>
   
  -(defparameter *my-greeter* [[greeter alloc] init])
  +(defparameter *my-greeter* [[Greeter alloc] init])
   
   
   ;; (#/setTarget: my-button my-greeter)
  
positive.code:    Smalltalk or Ruby).
  |#
  
  @[nsobject subclass:greeter slots: ()]
  
  
  
  
negative.code: ;;     (#/release default-button)
  ;;     (#/release other-button)))
  
  @[Greeter method:(greet:(:id)sender)
            resultType:(:id)
            body:
            (declare (ignore sender))
            (#_NSRunAlertPanel @"Hello!"
                               @"Hello, World!"
                               @"Hi!"
                               @"Hello!"
                               @"Go Away")
            oclo:*null*]
  
  
  ;; Now we can create an instance of the Greeter class and use it as
  