File r37/lisp/csl/jlisp/ReverseFn.java artifact 86b1e6175c part of check-in d58ccc1261
class ReverseFn extends BuiltinFunction { public LispObject op1(LispObject arg1) { LispObject r = Jlisp.nil; while (!arg1.atom) { LispObject a = arg1; r = new Cons(a.car, r); arg1 = a.cdr; } return r; } }