From 371a407a49ddf0f2fe1d977018fcd0a009c86043 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Tue, 3 Jul 2018 20:35:42 -0400 Subject: - Re-named "import" to "import:". --- .../luxc/lang/translation/common-lisp/eval.jvm.lux | 24 +++++++++++----------- 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'new-luxc/source/luxc/lang/translation/common-lisp/eval.jvm.lux') 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)) -- cgit v1.2.3