projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Migrate NEW
[jscl.git]
/
src
/
compiler.lisp
diff --git
a/src/compiler.lisp
b/src/compiler.lisp
index
e9ee752
..
a77d451
100644
(file)
--- a/
src/compiler.lisp
+++ b/
src/compiler.lisp
@@
-1286,7
+1286,7
@@
`(return r)))
(define-builtin get-internal-real-time ()
`(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*
(define-builtin values-array (array)
(if *multiple-value-p*
@@
-1301,7
+1301,8
@@
;;; Javascript FFI
;;; Javascript FFI
-(define-builtin new () "{}")
+(define-builtin new ()
+ '(object))
(define-raw-builtin oget* (object key &rest keys)
(js!selfcall
(define-raw-builtin oget* (object key &rest keys)
(js!selfcall