anchor.diff:  (defparameter string.ensure string.ctor)
   
   (define-primitive-prototype string.prototype (js-new js::string.ctor '("")))
  -
  -(setf (prop string.ctor "prototype") string.prototype)
  -(setf (prop *global* "String") string.ctor)
   
   (defmethod prop ((str string) key &optional (default :undefined))
     (let* ((sealed (sealed string.prototype))
  
positive.code:       (let ((re (make-regexp expr flags)))
  	(set-default js-user::this re)
  	re))))
  
  (setf (prop *global* "RegExp") regexp.ctor)
  
  (defun make-regexp (expr flags)
    (let* ((case-sens (search "i" flags))
  
negative.code: 
  (define-primitive-prototype number.prototype (js-new number.ctor '(0)))
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (shadow 'Number 'js-user)) ;;todo: ...
  
  (defmethod prop ((num number) key &optional (default :undefined))
    (let* ((sealed (sealed number.prototype))
  