jshell> import lime.*

jshell> Lime.parse("(sa(. as21 21) 32)")
$2 ==> [[:sa, [:., :as21, 21], 32]]

jshell> SexpressionList p=Lime.parse("(sa(. as21 21) 32)")
p ==> [[:sa, [:., :as21, 21], 32]]

jshell> Lime l = new Lime(p)
l ==> lime.Lime@30b8a058

jshell> l.run()
|  java.lang.RuntimeException thrown: Lime internal error: Failed to expand [[:sa, [:., :as21, 21], 32]] in file <unknown>
|        at Lime.raise (Lime.kt:158)
|        at Lime.run (Lime.kt:132)
|        at (#6:1)


jshell> Lime l = new Lime((SexpressionList)p.get(0))
l ==> lime.Lime@3234e239

jshell> l.run()
|  java.lang.RuntimeException thrown: Lime internal error: Failed to resolve reference to :sa in file <unknown>

jshell> p.get(0)
$10 ==> [[:., :as21, 21], 32]

于是我们
jshell> l.getHandlers()
$11 ==> {}

... 好麻烦

import lime.*
SexpressionList sexp = (SexpressionList) Lime.parse("(print 1 2 a (print 233 \"Hello, world\") 23232323 (print2 a))").get(0)
Lime lime = new Lime(sexp)
lime.defineMacro("print", "varargs", ". print varargs")
lime.defineMacro("print2", "varargs", ". print 233")
class Foo {
  public static Object print(Object[] args) {
    pp(args);
    return args;
  }
  static void pp(Object[] args) {
    for (Object i : args)
      if (i instanceof Object[]) {
        System.out.println('[');
        pp((Object[])i);
        System.out.println(']');
      }
      else
        System.out.println(i);
  }
}
java.lang.reflect.iss.onethod print = Foo.class.getDeclaredMethod("print", Object[].class)
lime.getHandlers().put(new Symbol("print"), print)
lime.set("a", 1)
lime.run()

(print 1 2 a (print 233 "Hello, world") 23232323 (print2 a))
[233, Hello, world]
233
[1, 2, 1, [Ljava.lang.Object;@3cb1ffe6, 23232323, [Ljava.lang.Object;@3dfc5fb8]