Examples of org.jatha.dynatype.StandardLispPackage

org.jatha.dynatype.StandardLispPackage
An implementation of ANSI Common LISP packages, including defpackage, export, import, etc. @see org.jatha.Jatha @author Micheal S. Hewett hewett@cs.stanford.edu @version 1.0

    {
      System.out.println(e);
      e.printStackTrace();
    }


    f_systemPackage = new StandardLispPackage(this, makeString("SYSTEM"));
    f_keywordPackage = new StandardLispPackage(this, makeString("KEYWORD"));


    DOT = new StandardLispSymbol(this, ".");
    EVAL.intern(makeString("DOT"), DOT, f_systemPackage);


    NIL = new StandardLispNIL(this, "NIL");

View Full Code Here

    // Have to be careful about initializing this...


    f_systemPackage.setNicknames(makeList(makeString("SYS")));
    f_keywordPackage.setNicknames(makeList(makeString("")));


    PACKAGE = new StandardLispPackage(this, makeString("COMMON-LISP-USER"),makeList(makeString("CL-USER"),makeString("USER")),NIL,SYMTAB);
    final LispPackage clPackage = new StandardLispPackage(this, makeString("COMMON-LISP"),makeList(makeString("CL")));
    PACKAGE.setUses(makeList(((StandardLispPackage)clPackage).getName(),((StandardLispPackage)f_systemPackage).getName()));
    ((StandardLispPackage)clPackage).setUses(makeList(((StandardLispPackage)f_systemPackage).getName()));
    ((StandardLispPackage)f_keywordPackage).setUses(NIL);
    ((StandardLispPackage)f_systemPackage).setUses(NIL);

View Full Code Here

    public LispValue makePackage(final LispValue name, final LispValue nickNames, final LispValue use) {
        LispValue firstPkg = findPackage(name);
        if(NIL != firstPkg) {
            throw new LispAlreadyDefinedPackageException(((LispString)name.string()).getValue());
        }
        firstPkg = new StandardLispPackage(this, name, nickNames, use);
        packages = makeCons(firstPkg,packages);
        return firstPkg;
    }

View Full Code Here

TOP

Related Classes of org.jatha.dynatype.StandardLispPackage

org.jatha.Jatha

org.jatha.util.SymbolTable

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.