anchor.diff:                                 complexSelectorWithFinalArgs:24
                                                (int)1 (float)2.0]")
               (read-message-send stream 'self (function read-message)))
  -          '(self "multipleArg:complexSelectorWithFinalArgs:" (42 24) ((:int 1) (:float 2.0))))))
  +          '(self "multipleArg:complexSelectorWithFinalArgs:" (42 24) ((:int 1) (:float 2.0d0))))))
   
   
   (define-test test/message-send ()
  
positive.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))))
  
negative.code: 
  (defmacro with-string-check ((readtable stream string) &body body)
    `(with-input-from-string (,stream ,string)
       (let ((*readtable* ,readtable)
             (*read-default-float-format* 'double-float))
         (locally ,@body))))
  
  
  (define-test test/read-identifier ()
  