anchor.diff:    `(%transpiler-native "new " ,(first x) ,@(transpiler-binary-expand "," (cdr x))))
   
   (define-js-macro get-slot (slot obj)
  -  `(%transpiler-native
  -     ,(string-concat
  -		(transpiler-symbol-string *js-transpiler* (print obj))
  -		"."
  -		(transpiler-symbol-string *js-transpiler* (print slot)))))
  +  ($
  +	(transpiler-symbol-string *js-transpiler* obj)
  +	"."
  +	(transpiler-symbol-string *js-transpiler* slot)))
   
   (define-js-macro %setq (dest val)
  -  `(,(transpiler-symbol-string *js-transpiler* dest) "=" ,val))
  +  `(,(if (atom dest)
  +		 (transpiler-symbol-string *js-transpiler* dest)
  +		 dest)
  +    "=" ,val))
   
   ;;; TYPE PREDICATES
  -
  -(defmacro def-js-type-predicate (name typestring)
  -  `(define-js-macro ,name (x)
  -     `(%transpiler-native ,,x "instanceof " ,typestring)))
  -
  -(def-js-type-predicate symbolp "symbol")
  -(def-js-type-predicate consp "cons")
  -(def-js-type-predicate numberp "Number")
  -(def-js-type-predicate arrayp "Array")
  -(def-js-type-predicate stringp "String")
  -(def-js-type-predicate functionp "Function")
   
   (defmacro define-js-infix (name)
     `(define-transpiler-infix *js-transpiler* ,name))
  +
  +(define-js-infix instanceof)
  +
  +(defun def-js-type-predicate (name typestring)
  +  `(defun ,name (x)
  +     (instanceof x (%no-expex (%transpiler-native ,typestring)))))
   
   ;;;; Symbol replacement definitions.
   
  
positive.code: 	:std-macro-expander 'js-alternate-std
  	:macro-expander 'javascript
  	:separator (format nil ";~%")
  	:function-args nil
  	:identifier-char?
  	  #'(lambda (x)
  		  (or (and (>= x #\a) (<= x #\z))
  
negative.code: 				 (x.shift) ; pop off first element from array.
                   (cons a (rec x))))))
      (rec arguments)))
  
  ,(def-js-type-predicate symbolp "symbol")
  ,(def-js-type-predicate consp "cons")
  ,(def-js-type-predicate numberp "Number")
  ,(def-js-type-predicate arrayp "Array")
  ,(def-js-type-predicate stringp "String")
  ,(def-js-type-predicate functionp "Function")
  
  (defun apply ()
    (when (= 0 arguments.length)
  