anchor.diff:        (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))
  
positive.code: 
  (define-primitive-prototype number.prototype (js-new number.ctor '(0)))
  
  (setf (prop number.ctor "prototype") number.prototype)
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (shadow 'Number 'js-user)) ;;todo: ...
  
  (setf (prop *global* "Number") number.ctor)
  
  (defmethod prop ((num number) key &optional (default :undefined))
    (let* ((sealed (sealed number.prototype))
  
negative.code: 
  (defgeneric prototype (obj)
    (:method (obj) nil))
  
  (defun finish-class-construction (name ctor proto &key explicit-ctor)
    (declare (special *global*))
    (setf (prop ctor "prototype") proto)
    (setf (prop *global* name) ctor)
    (when explicit-ctor
      (setf (prop proto "constructor") ctor)))
  
  ;;
  (defparameter value-of nil) ;;function.prototype is not defined yet
  (defparameter to-string nil)
  