aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/lang/translation/common-lisp
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp')
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux24
-rw-r--r--new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux2
2 files changed, 13 insertions, 13 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
index 0108d2e83..a10fa0d5d 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux
@@ -13,14 +13,14 @@
(lang (host ["_" common-lisp #+ Expression])))
[//])
-(host.import java/lang/Object
+(host.import: java/lang/Object
(toString [] String)
(getClass [] (Class Object)))
-(host.import java/lang/Long
+(host.import: java/lang/Long
(intValue [] Integer))
-(host.import (java/lang/Class ?)
+(host.import: (java/lang/Class ?)
(#static forName [String] #try (Class Object)))
(def: _0
@@ -46,27 +46,27 @@
text-representation (:coerce Text (Object::toString [] (:coerce Object host-object)))]
(format object-class " --- " text-representation)))
-(host.import org/armedbear/lisp/LispObject)
+(host.import: org/armedbear/lisp/LispObject)
-(host.import org/armedbear/lisp/SimpleString
+(host.import: org/armedbear/lisp/SimpleString
(getStringValue [] String))
-(host.import org/armedbear/lisp/Symbol
+(host.import: org/armedbear/lisp/Symbol
(#static T Symbol)
(getName [] String))
-(host.import org/armedbear/lisp/DoubleFloat
+(host.import: org/armedbear/lisp/DoubleFloat
(doubleValue [] double))
-(host.import org/armedbear/lisp/Bignum
+(host.import: org/armedbear/lisp/Bignum
(longValue [] long))
-(host.import org/armedbear/lisp/Fixnum
+(host.import: org/armedbear/lisp/Fixnum
(longValue [] long))
-(host.import org/armedbear/lisp/Nil)
+(host.import: org/armedbear/lisp/Nil)
-(host.import org/armedbear/lisp/SimpleVector
+(host.import: org/armedbear/lisp/SimpleVector
(length [] int)
(elt [int] LispObject))
@@ -93,7 +93,7 @@
(host.null)))
value])
-(host.import org/armedbear/lisp/Cons
+(host.import: org/armedbear/lisp/Cons
(car LispObject)
(cdr LispObject))
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
index 7387c0dda..43ef5c384 100644
--- a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux
@@ -211,7 +211,7 @@
)))
## [[Numbers]]
-(host.import java/lang/Double
+(host.import: java/lang/Double
(#static MIN_VALUE Double)
(#static MAX_VALUE Double))