Changeset 3766


Ignore:
Timestamp:
09/14/03 16:28:22 (19 years ago)
Author:
piso
Message:

ERROR: support PACKAGE-ERROR.

File:
1 edited

Legend:

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

    r3761 r3766  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.392 2003-09-14 15:33:05 piso Exp $
     5 * $Id: Primitives.java,v 1.393 2003-09-14 16:28:22 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    11741174            LispObject datum = args[0];
    11751175            if (datum instanceof Symbol) {
    1176                 if (datum == Symbol.TYPE_ERROR)
    1177                     throw new TypeError(_format(args, 1));
     1176                if (datum == Symbol.PACKAGE_ERROR)
     1177                    throw new PackageError(_format(args, 1));
    11781178                if (datum == Symbol.PARSE_ERROR)
    11791179                    throw new ParseError(_format(args, 1));
    11801180                if (datum == Symbol.PROGRAM_ERROR)
    11811181                    throw new ProgramError(_format(args, 1));
     1182                if (datum == Symbol.TYPE_ERROR)
     1183                    throw new TypeError(_format(args, 1));
    11821184                // Default.
    11831185                throw new SimpleError(((Symbol)datum).getName());
Note: See TracChangeset for help on using the changeset viewer.