anchor.diff:  (defun equal-modulo-constant-strings (a b)
     (cond
       ((typep a 'ns:ns-string)
  -     (and (consp b) (eql '@ (car b))))
  +     (and (consp b) (eql '\@ (car b))))
       ((and (consp a) (consp b))
        (and (equal-modulo-constant-strings (car a) (car b))
             (equal-modulo-constant-strings (cdr a) (cdr b))))
  
positive.code: 
  (defmacro with-string-check ((readtable stream string) &body body)
    `(with-input-from-string (,stream ,string)
       (let ((*readtable* ,readtable)) (locally ,@body))))
  
  
  (define-test test/read-identifier ()
  
negative.code:            '(oclo:send self
               :multiple-arg 42
               :complex-selector-with-final-args 24
               (:int 1 :float 2.0d0)))
       (test equal
             (read-objc "(progn [self simpleSelector]
                               [self multipleArg:42 complexSelector:24])")
  