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/eval.jvm.lux | |
| parent | c75e8aa8bc84af3b598292f3261354384b3cc80f (diff) | |
- Re-named "import" to "import:".
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux')
| -rw-r--r-- | new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux | 24 |
1 files changed, 12 insertions, 12 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)) |