Migrate GET-INTERNAL-REAL-TIME

diff --git a/src/compiler.lisp b/src/compiler.lisp
index e9ee752..86fc874 100644 (file)
--- 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*