diff options
author | Eduardo Julian | 2018-07-03 20:35:42 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-07-03 20:35:42 -0400 |
commit | 371a407a49ddf0f2fe1d977018fcd0a009c86043 (patch) | |
tree | 322daf75a391bfc49026867250e10c424c4ec978 /new-luxc/source/luxc/lang/translation/common-lisp | |
parent | c75e8aa8bc84af3b598292f3261354384b3cc80f (diff) |
- Re-named "import" to "import:".
Diffstat (limited to '')
3 files changed, 19 insertions, 19 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp.lux b/new-luxc/source/luxc/lang/translation/common-lisp.lux index 4341e5e4c..d407ae7ab 100644 --- a/new-luxc/source/luxc/lang/translation/common-lisp.lux +++ b/new-luxc/source/luxc/lang/translation/common-lisp.lux @@ -28,21 +28,21 @@ [No-Anchor] ) -(host.import java/lang/String +(host.import: java/lang/String (getBytes [String] #try (Array byte))) -(host.import java/lang/CharSequence) +(host.import: java/lang/CharSequence) -(host.import java/lang/Appendable +(host.import: java/lang/Appendable (append [CharSequence] Appendable)) -(host.import java/lang/StringBuilder +(host.import: java/lang/StringBuilder (new []) (toString [] String)) -(host.import org/armedbear/lisp/LispObject) +(host.import: org/armedbear/lisp/LispObject) -(host.import org/armedbear/lisp/Interpreter +(host.import: org/armedbear/lisp/Interpreter (#static getInstance [] Interpreter) (#static createInstance [] #? Interpreter) (eval [String] #try LispObject)) 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)) |