anchor.diff:  
      (:export
       "SELF" "SUPER"
  -   
  +
       ;; from objc.
       "*OBJC-DESCRIPTION-MAX-LENGTH*"
       "@CLASS"
  -    "@SELECTOR" 
  +    "@SELECTOR"
       "DEFINE-OBJC-CLASS-METHOD"
       "DEFINE-OBJC-METHOD"
  -    "DEFMETHOD" 
  +    "DEFMETHOD"
       "LISP-STRING-FROM-NSSTRING"
       "LOAD-FRAMEWORK"
  -    "MAKE-NSSTRING" 
  +    "MAKE-NSSTRING"
       "MAKE-OBJC-INSTANCE"
       "OBJC-CLASS"
  -    "OBJC-CLASS-OBJECT" 
  +    "OBJC-CLASS-OBJECT"
       "OBJC-MESSAGE-SEND"
  -    "OBJC-MESSAGE-SEND-STRET" 
  +    "OBJC-MESSAGE-SEND-STRET"
       "OBJC-MESSAGE-SEND-SUPER"
  -    "OBJC-MESSAGE-SEND-SUPER-STRET" 
  +    "OBJC-MESSAGE-SEND-SUPER-STRET"
       "OBJC-METACLASS"
       "OBJC-OBJECT"
  -    "REMOVE-LISP-SLOTS" 
  +    "REMOVE-LISP-SLOTS"
       "RETURNING-FOREIGN-STRUCT"
       "SEND"
  -    "SEND-SUPER" 
  +    "SEND-SUPER"
       "SEND-SUPER/STRET"
       "SEND/STRET"
       "SLET"
  
positive.code:       "SLET"
        "UPDATE-OBJC-METHOD-INFO")))
  
  
  (print
   '(defpackage "COM.INFORMATIMAGO.OBJECTIVE-C.LOWER"
     (:nicknames "COM.INFORMATIMAGO.OCLO"
                 "OCLO")
     (:use "CL")
  
negative.code: ;;;;SYSTEM:             Common-Lisp
  ;;;;USER-INTERFACE:     NONE
  ;;;;DESCRIPTION
  ;;;;
  ;;;;    Defines the packages.
  ;;;;
  ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  