diff options
| author | Eduardo Julian | 2021-08-29 21:59:48 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-29 21:59:48 -0400 |
| commit | ef437d6584d8fd863c0dab276e5a3d4dc094767b (patch) | |
| tree | e9167f045de84e7865815178e967ee85584df088 /lux-cl/source/program.lux | |
| parent | ff537895fe9c24f37a0ce11b640af5d4882571a5 (diff) | |
De-taggification | part 0
Diffstat (limited to 'lux-cl/source/program.lux')
| -rw-r--r-- | lux-cl/source/program.lux | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux index 3122dc31e..3b52fcdd2 100644 --- a/lux-cl/source/program.lux +++ b/lux-cl/source/program.lux @@ -67,7 +67,7 @@ (ffi.import: (java/lang/Class a) ["#::." - (#static forName [java/lang/String] #try (java/lang/Class java/lang/Object))]) + ("static" forName [java/lang/String] "try" (java/lang/Class java/lang/Object))]) (ffi.import: java/lang/Object ["#::." @@ -94,19 +94,19 @@ (NTH [int] org/armedbear/lisp/LispObject) (SVREF [int] org/armedbear/lisp/LispObject) (elt [int] org/armedbear/lisp/LispObject) - (execute [org/armedbear/lisp/LispObject org/armedbear/lisp/LispObject] #try org/armedbear/lisp/LispObject)]) + (execute [org/armedbear/lisp/LispObject org/armedbear/lisp/LispObject] "try" org/armedbear/lisp/LispObject)]) ... The org/armedbear/lisp/Interpreter must be imported before the ... other ones, because there is an order dependency in their static initialization. (ffi.import: org/armedbear/lisp/Interpreter ["#::." - (#static getInstance [] org/armedbear/lisp/Interpreter) - (#static createInstance [] #? org/armedbear/lisp/Interpreter) - (eval [java/lang/String] #try org/armedbear/lisp/LispObject)]) + ("static" getInstance [] org/armedbear/lisp/Interpreter) + ("static" createInstance [] "?" org/armedbear/lisp/Interpreter) + (eval [java/lang/String] "try" org/armedbear/lisp/LispObject)]) (ffi.import: org/armedbear/lisp/Symbol ["#::." - (#static T org/armedbear/lisp/Symbol)]) + ("static" T org/armedbear/lisp/Symbol)]) (ffi.import: org/armedbear/lisp/DoubleFloat ["#::." @@ -123,16 +123,16 @@ (ffi.import: org/armedbear/lisp/Bignum ["#::." (longValue [] long) - (#static getInstance [long] org/armedbear/lisp/LispInteger)]) + ("static" getInstance [long] org/armedbear/lisp/LispInteger)]) (ffi.import: org/armedbear/lisp/Fixnum ["#::." (longValue [] long) - (#static getInstance [int] org/armedbear/lisp/Fixnum)]) + ("static" getInstance [int] org/armedbear/lisp/Fixnum)]) (ffi.import: org/armedbear/lisp/Nil ["#::." - (#static NIL org/armedbear/lisp/Symbol)]) + ("static" NIL org/armedbear/lisp/Symbol)]) (ffi.import: org/armedbear/lisp/SimpleVector) |