anchor.diff:  	 (action (gethash key sealed)))
       (if action
   	(funcall action str)
  -	(prop string.prototype key))))
  +	(prop string.prototype key default))))
   
   (defmethod value ((str string)) str)
   
  
positive.code: (define-js-method string toLowerCase (str)
    (string-downcase str))
  
  ;;
  
  (defparameter number.ctor ;;todo: set-default (same as string)
    (js-function (n)
      (cond ((numberp n) n)
  	  ((stringp n)
  	   (with-input-from-string (s n)
  	     (js-funcall number.ctor (read s))))
  	  (t :NaN))))
  
  ;;test ...
  #{javascript}
  s1 = String(123)
  
negative.code:      ;;todo: type declarations
       ,@body))
  ;;
  (defparameter number.ctor ;;todo: set-default (same as string)
    (js-function (n)
      (cond ((numberp n) n)
  	  ((stringp n)
  	   (with-input-from-string (s n)
  	     (js-funcall number.ctor (read s))))
  	  (t :NaN))))
  
  ;;
  (defparameter string.ctor
    (js-function (obj)
  	       (let ((str (if (stringp obj) obj (format nil "~A" obj))))
  