anchor.diff:    (pr "NEGATIVE_INFINITY" (-infinity)))
   
   (defun typed-value-of (obj type)
  -  (if (and (vobj-p obj) (typep (vobj-value obj) type)) (vobj-value obj) (js-type-error)))
  +  (if (and (vobj-p obj) (typep (vobj-value obj) type))
  +      (vobj-value obj)
  +      (js-error :type-error "Incompatible type.")))
   
   (stdproto (:number :object)
     (mth "toString" ((radix 10))
  
positive.code: (stdproto (:string :object)
    (pr "length" (cons (js-lambda () (let ((str (really-string this))) (if str (length str) 0))) nil) :active)
  
    (mth "toString" () (or (really-string this) (js-type-error)))
    (mth "valueOf" () (or (really-string this) (js-type-error)))
  
    (mth "charAt" (index)
      (let ((str (to-string this))
  
negative.code: (in-package :js)
  
  (defun default-value (val &optional (hint :string))
    (block nil
  