anchor.diff:  
   (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)
  
positive.code:     (if action
  	(funcall action str)
  	(prop string.prototype key default))))
  
  ;;
  (defun js-number? (o)
  
negative.code:       (let ((re (make-regexp expr flags)))
  	(set-default js-user::this re)
  	re))))
  
  (defun make-regexp (expr flags)
    (let* ((case-sens (search "i" flags))
  