001: /*
002: * Keyword.java
003: *
004: * Copyright (C) 2002-2004 Peter Graves
005: * $Id: Keyword.java,v 1.36 2004/06/08 10:52:54 piso Exp $
006: *
007: * This program is free software; you can redistribute it and/or
008: * modify it under the terms of the GNU General Public License
009: * as published by the Free Software Foundation; either version 2
010: * of the License, or (at your option) any later version.
011: *
012: * This program is distributed in the hope that it will be useful,
013: * but WITHOUT ANY WARRANTY; without even the implied warranty of
014: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
015: * GNU General Public License for more details.
016: *
017: * You should have received a copy of the GNU General Public License
018: * along with this program; if not, write to the Free Software
019: * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
020: */
021:
022: package org.armedbear.lisp;
023:
024: public final class Keyword extends Lisp {
025: public static final Symbol internKeyword(String s) {
026: return PACKAGE_KEYWORD.intern(s);
027: }
028:
029: public static final Symbol ABCL = internKeyword("ABCL"),
030: ABORT = internKeyword("ABORT"),
031: ABSOLUTE = internKeyword("ABSOLUTE"),
032: ALLOW_OTHER_KEYS = internKeyword("ALLOW-OTHER-KEYS"),
033: ANSI_CL = internKeyword("ANSI-CL"),
034: APPEND = internKeyword("APPEND"),
035: ARMEDBEAR = internKeyword("ARMEDBEAR"),
036: BACK = internKeyword("BACK"),
037: BOOLEAN = internKeyword("BOOLEAN"),
038: CAPITALIZE = internKeyword("CAPITALIZE"),
039: CAPITALIZE_FIRST = internKeyword("CAPITALIZE-FIRST"),
040: CASE = internKeyword("CASE"),
041: COMMON = internKeyword("COMMON"),
042: COMMON_LISP = internKeyword("COMMON-LISP"),
043: COMPILE_TOPLEVEL = internKeyword("COMPILE-TOPLEVEL"),
044: COUNT_ONLY = internKeyword("COUNT-ONLY"),
045: DARWIN = internKeyword("DARWIN"),
046: DATUM = internKeyword("DATUM"),
047: DECLARED = internKeyword("DECLARED"),
048: DEFAULT = internKeyword("DEFAULT"),
049: DEFAULTS = internKeyword("DEFAULTS"),
050: DEVICE = internKeyword("DEVICE"),
051: DIRECTORY = internKeyword("DIRECTORY"),
052: DIRECT_SUPERCLASSES = internKeyword("DIRECT-SUPERCLASSES"),
053: DOWNCASE = internKeyword("DOWNCASE"),
054: ELEMENT_TYPE = internKeyword("ELEMENT-TYPE"),
055: END = internKeyword("END"), ERROR = internKeyword("ERROR"),
056: EXECUTE = internKeyword("EXECUTE"),
057: EXPECTED_TYPE = internKeyword("EXPECTED-TYPE"),
058: EXTERNAL = internKeyword("EXTERNAL"),
059: FILL_POINTER = internKeyword("FILL-POINTER"),
060: FORMAT_ARGUMENTS = internKeyword("FORMAT-ARGUMENTS"),
061: FORMAT_CONTROL = internKeyword("FORMAT-CONTROL"),
062: HOST = internKeyword("HOST"),
063: INHERITED = internKeyword("INHERITED"),
064: INITIAL_CONTENTS = internKeyword("INITIAL-CONTENTS"),
065: INITIAL_ELEMENT = internKeyword("INITIAL-ELEMENT"),
066: INPUT = internKeyword("INPUT"),
067: INSTANCE = internKeyword("INSTANCE"),
068: INTERNAL = internKeyword("INTERNAL"),
069: INVERT = internKeyword("INVERT"), IO = internKeyword("IO"),
070: J = internKeyword("J"), LINUX = internKeyword("LINUX"),
071: LOAD_TOPLEVEL = internKeyword("LOAD-TOPLEVEL"),
072: LOCAL = internKeyword("LOCAL"),
073: NAME = internKeyword("NAME"),
074: NEWEST = internKeyword("NEWEST"),
075: NICKNAMES = internKeyword("NICKNAMES"),
076: NO_ERROR = internKeyword("NO-ERROR"),
077: OBJECT = internKeyword("OBJECT"),
078: OPERANDS = internKeyword("OPERANDS"),
079: OPERATION = internKeyword("OPERATION"),
080: OUTPUT = internKeyword("OUTPUT"),
081: OVERWRITE = internKeyword("OVERWRITE"),
082: PACKAGE = internKeyword("PACKAGE"),
083: PATHNAME = internKeyword("PATHNAME"),
084: PUBLIC = internKeyword("PUBLIC"),
085: PRESERVE = internKeyword("PRESERVE"),
086: REF = internKeyword("REF"),
087: RELATIVE = internKeyword("RELATIVE"),
088: START = internKeyword("START"),
089: STREAM = internKeyword("STREAM"),
090: SUPERSEDE = internKeyword("SUPERSEDE"),
091: TIME = internKeyword("TIME"), TYPE = internKeyword("TYPE"),
092: UNIX = internKeyword("UNIX"),
093: UNSPECIFIC = internKeyword("UNSPECIFIC"),
094: UP = internKeyword("UP"), UPCASE = internKeyword("UPCASE"),
095: USE = internKeyword("USE"),
096: VERSION = internKeyword("VERSION"),
097: WILD = internKeyword("WILD"),
098: WILD_INFERIORS = internKeyword("WILD-INFERIORS"),
099: WINDOWS = internKeyword("WINDOWS");
100: }
|