Changeset 8483


Ignore:
Timestamp:
02/06/05 01:59:48 (17 years ago)
Author:
piso
Message:

ERROR: support READER-ERROR.

File:
1 edited

Legend:

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

    r8457 r8483  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.729 2005-02-03 20:37:52 piso Exp $
     5 * $Id: Primitives.java,v 1.730 2005-02-06 01:59:48 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    12751275
    12761276    // ### error
    1277     private static final Primitive ERROR = new Primitive("error", "datum &rest arguments")
     1277    private static final Primitive ERROR =
     1278        new Primitive("error", "datum &rest arguments")
    12781279    {
    12791280        public LispObject execute(LispObject[] args) throws ConditionThrowable
     
    13041305                else if (datum == Symbol.PROGRAM_ERROR)
    13051306                    condition = new ProgramError(initArgs);
     1307                else if (datum == Symbol.READER_ERROR)
     1308                    condition = new ReaderError(initArgs);
    13061309                else if (datum == Symbol.SIMPLE_CONDITION)
    13071310                    condition = new SimpleCondition(initArgs);
Note: See TracChangeset for help on using the changeset viewer.