Changeset 5851


Ignore:
Timestamp:
02/16/04 12:40:09 (17 years ago)
Author:
piso
Message:

CHAR-CODE-LIMIT

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/Lisp.java

    r5834 r5851  
    33 *
    44 * Copyright (C) 2002-2004 Peter Graves
    5  * $Id: Lisp.java,v 1.206 2004-02-15 17:53:33 piso Exp $
     5 * $Id: Lisp.java,v 1.207 2004-02-16 12:40:09 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    11611161            if (!(list.cdr() instanceof Cons))
    11621162                signal(new ProgramError(String.valueOf(symbol) +
    1163                                                               " has an odd number of items in its property list"));
     1163                                        " has an odd number of items in its property list."));
    11641164            if (list.car() == indicator) {
    11651165                // Found it!
     
    12561256        Package pkg = Packages.findPackage(packageName);
    12571257        if (pkg == null)
    1258             signal(new LispError(packageName + " is not the name of a package"));
     1258            signal(new LispError(packageName + " is not the name of a package."));
    12591259        return pkg.intern(name);
    12601260    }
     
    15091509    public static final Symbol _AUTOLOAD_VERBOSE_ =
    15101510        exportSpecial("*AUTOLOAD-VERBOSE*", PACKAGE_EXT, NIL);
     1511
     1512    // ### char-code-limit
     1513    // "The upper exclusive bound on the value returned by the function CHAR-CODE."
     1514    public static final int CHAR_MAX = 256;
     1515    public static final Symbol CHAR_CODE_LIMIT =
     1516        exportSpecial("CHAR-CODE-LIMIT", PACKAGE_CL, new Fixnum(CHAR_MAX));
    15111517
    15121518    // Printer control variables.
Note: See TracChangeset for help on using the changeset viewer.