Changeset 4490


Ignore:
Timestamp:
10/21/03 19:10:36 (18 years ago)
Author:
piso
Message:

ERROR: (error 'simple-error ...)

File:
1 edited

Legend:

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

    r4489 r4490  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.479 2003-10-21 18:41:54 piso Exp $
     5 * $Id: Primitives.java,v 1.480 2003-10-21 19:10:36 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    11171117
    11181118    // ### error
    1119     private static final Primitive ERROR = new Primitive("error") {
     1119    private static final Primitive ERROR = new Primitive("error")
     1120    {
    11201121        public LispObject execute(LispObject[] args) throws ConditionThrowable
    11211122        {
     
    11321133                if (datum == Symbol.PROGRAM_ERROR)
    11331134                    throw new ConditionThrowable(new ProgramError(_format(args, 1)));
     1135                if (datum == Symbol.SIMPLE_ERROR)
     1136                    throw new ConditionThrowable(new SimpleError(_format(args, 1)));
    11341137                if (datum == Symbol.TYPE_ERROR)
    11351138                    throw new ConditionThrowable(new TypeError(_format(args, 1)));
     
    11421145
    11431146    // ### signal
    1144     private static final Primitive SIGNAL = new Primitive("signal") {
     1147    private static final Primitive SIGNAL = new Primitive("signal")
     1148    {
    11451149        public LispObject execute(LispObject[] args) throws ConditionThrowable
    11461150        {
Note: See TracChangeset for help on using the changeset viewer.