Examples of fboundp()

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

44
45
46
47
48
49
50
51
52
53
54
    }
   
    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.fboundp()

55
56
57
58
59
60
61
62
63
64
65
        machine.C.pop();
    }

    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.