Examples of symbol_name()

Examples of org.jatha.dynatype.LispValue.symbol_name()

45
46
47
48
49
50
51
52
53
54
55
   
    public void Execute(final SECDMachine machine) {
        final LispValue form = machine.S.pop();
        final LispValue carForm = form.car();
        if(carForm.fboundp() == f_lisp.T && carForm.symbol_function() != null && carForm.symbol_function().basic_macrop()) {
            machine.S.push(f_lisp.eval(f_lisp.makeCons(f_lisp.EVAL.intern("%%%" + carForm.symbol_name().toStringSimple(),(LispPackage)f_lisp.findPackage("SYSTEM")),quoteList(form.cdr()))));
        } else {
            machine.S.push(form);
        }
        machine.C.pop();
    }
View Full Code Here

Examples of org.jatha.dynatype.LispValue.symbol_name()

1428
1429
1430
1431
1432
1433
1434
1435
1436
1437
1438
      iter = ((LispPackage)(pkg.car())).getSymbolTable().values().iterator();

      while (iter.hasNext())
      {
        symb     = ((LispValue)(iter.next()));
        sname    = (LispString)(symb.symbol_name());
        symbstr  = sname.getValue().toUpperCase();

        if (symbstr.indexOf(matchStr) >= 0)
          symb.apropos_print(out);
      }
View Full Code Here

Examples of org.jatha.dynatype.LispValue.symbol_name()

56
57
58
59
60
61
62
63
64
65
66
    }

    private LispValue expand(final LispValue form) {
        final LispValue carForm = form.car();
        if(carForm.fboundp() == f_lisp.T && carForm.symbol_function() != null && carForm.symbol_function().basic_macrop()) {
            return f_lisp.eval(f_lisp.makeCons(f_lisp.EVAL.intern("%%%" + carForm.symbol_name().toStringSimple(),(LispPackage)f_lisp.findPackage("SYSTEM")),quoteList(form.cdr())));
        } else {
            return form;
        }
    }
View Full Code Here
TOP
Copyright © 2018 www.massapi.com. All rights reserved.
All source code are property of their respective owners. Java is a trademark of Sun Microsystems, Inc and owned by ORACLE Inc. Contact coftware#gmail.com.