aboutsummaryrefslogtreecommitdiff
path: root/lux-cl/source
diff options
context:
space:
mode:
authorEduardo Julian2021-08-29 21:59:48 -0400
committerEduardo Julian2021-08-29 21:59:48 -0400
commitef437d6584d8fd863c0dab276e5a3d4dc094767b (patch)
treee9167f045de84e7865815178e967ee85584df088 /lux-cl/source
parentff537895fe9c24f37a0ce11b640af5d4882571a5 (diff)
De-taggification | part 0
Diffstat (limited to 'lux-cl/source')
-rw-r--r--lux-cl/source/program.lux18
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)