anchor.diff:          (when (obj-p method)
             (let ((res (jscall* method val)))
               (unless (obj-p res) (return res)))))
  -      (js-type-error))))
  +      (js-error :type-error "Can't convert object to ~a." (symbol-name hint)))))
   
   (deftype js-number ()
     (if *float-traps*
  
positive.code:   (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)))
  
  (stdproto (:number :object)
    (mth "toString" ((radix 10))
  
negative.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-error :type-error "Incompatible type.")))
    (mth "valueOf" () (or (really-string this) (js-error :type-error "Incompatible type.")))
  
    (mth "charAt" (index)
      (let ((str (to-string this))
  