X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler.lisp;h=a77d4519c1b9d7890fda5728af09503aec21545a;hb=c1243ebc6aaa93fe370ddedbe4bbe1642f0b13e9;hp=e9ee75207f792f912f4ea78319e9300ebd3a8a5a;hpb=42137426ae8959291f52dee156ee27c1d13ce90d;p=jscl.git

diff --git a/src/compiler.lisp b/src/compiler.lisp
index e9ee752..a77d451 100644
--- a/src/compiler.lisp
+++ b/src/compiler.lisp
@@ -1286,7 +1286,7 @@
     `(return r)))
 
 (define-builtin get-internal-real-time ()
-  "(new Date()).getTime()")
+  `(call (get (new (call Date)) "getTime")))
 
 (define-builtin values-array (array)
   (if *multiple-value-p*
@@ -1301,7 +1301,8 @@
 
 ;;; Javascript FFI
 
-(define-builtin new () "{}")
+(define-builtin new ()
+  '(object))
 
 (define-raw-builtin oget* (object key &rest keys)
   (js!selfcall