anchor.diff:             (gen '(self "singleArgComplexSelectorWithFinalArgs:" (42) ((:int 1))))
              '(oclo:send self :single-arg-complex-selector-with-final-args 42 (:int 1)))
        (test equal
  -           (gen '(self "multipleArg:complexSelectorWithFinalArgs:" (42 24) ((:int 1) (:float 2.0))))
  -           '(oclo:send self :multiple-arg 42 :complex-selector-with-final-args 24 (:int 1 :float 2.0))))))
  +           (gen '(self "multipleArg:complexSelectorWithFinalArgs:" (42 24) ((:int 1) (:float 2.0d0))))
  +           '(oclo:send self :multiple-arg 42 :complex-selector-with-final-args 24 (:int 1 :float 2.0d0))))))
   
   
   (define-test test/read-objcl-message-send ()
  
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: (defun equal-modulo-constant-strings (a b)
    (cond
      ((typep a 'ns:ns-string)
       (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))))
  