anchor.diff:  
   (defmacro set-objective-cl-syntax ()
     "Sets the *READTABLE* to *OBJECTIVE-CL-READTABLE*.
  -Must be a macro to be taken into account when compiling and loading."
  +Must be a macro to be taken into account when compiling and loading.
  +DEPRECATED: use (enable-objc-reader-macros)"
     '(eval-when (:compile-toplevel :load-toplevel :execute)
  -    (setf *readtable* *objective-cl-readtable*)))
  +    (setf *readtable*  *objective-cl-readtable*)))
   
   (defparameter yes #$YES)
   (defparameter no  #$NO)
  
positive.code:                   (list (format nil "~{~A:~}" (nreverse  selector))
                          (nreverse parameters)
                          (read-final-signature stream))))
                 ((char= #\: next-char) ; empty selector-part
                  (push "" selector))
                 (t
                  (push (and (skip-spaces stream)
  
negative.code:         (arguments       '()))
      (if (eql #\: next-char)
          (loop
            :named compound-selector
              :initially (push selector-part selector)
            :while (eql #\: next-char)
            :do
               (read-char stream t nil t)
               ;; objcl-expression
               (let ((next-char (skip-spaces stream)))
                 (when (or (null next-char) (eql #\] next-char))
                   (error "Missing argument after selector part ~A:" (car (last selector 2))))
                 (push (let ((*readtable* *lisp-readtable*)) (read stream t nil t))
                       arguments))
               ;; objcl-identifier ':'
               (setf next-char (skip-spaces stream))
               (cond
                 ((or (null next-char) (char= #\] next-char))
                  (return-from compound-selector
                    (list (format nil "~{~A:~}" (nreverse  selector))
                          (nreverse arguments)
                          '())))
                 ((char= #\( next-char)
                  (return-from compound-selector
                    (list (format nil "~{~A:~}" (nreverse  selector))
                          (nreverse arguments)
                          (read-final-arguments stream))))
                 ((char= #\: next-char)   ; empty selector-part
                  (push "" selector))
                 ;; ((char= #\; next-char) ; comment
                 ;;  (read-line stream)
                 ;;  (setf next-char (peek-char nil stream nil nil t)))
                 (t
                  (push (and (skip-spaces stream)
                             (read-identifier stream)) selector)
                  (setf next-char (peek-char nil stream nil nil t))))
            :finally (error "~@[Invalid character '~C'. ~]Expected a colon after identifier '~A' in selector '~{~A:~}'."
                            next-char (first selector) (reverse selector)))
          (list selector-part arguments '()))))
  
  
  