anchor.diff:  (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)
  
positive.code: print(s2.substr("1",8))
  print(s2.substring (0, 100))
  .
  
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))))
  