Changeset 5095


Ignore:
Timestamp:
12/12/03 16:13:46 (17 years ago)
Author:
piso
Message:

Work in progress.

Location:
trunk/j/src/org/armedbear/lisp
Files:
2 edited

Legend:

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

    r3953 r5095  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: SimpleError.java,v 1.6 2003-09-21 02:02:21 piso Exp $
     5 * $Id: SimpleError.java,v 1.7 2003-12-12 16:13:05 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2424public class SimpleError extends LispError
    2525{
    26     public SimpleError()
     26    public SimpleError(LispObject formatControl, LispObject formatArguments)
    2727    {
     28        setFormatControl(formatControl);
     29        setFormatArguments(formatArguments);
    2830    }
    2931
    30     public SimpleError(LispObject initArgs)
     32    public SimpleError(LispObject initArgs) throws ConditionThrowable
    3133    {
    32         this(); // FIXME
     34        super(initArgs);
    3335    }
    3436
     
    5456        if (type == BuiltInClass.SIMPLE_ERROR)
    5557            return T;
     58        if (type == Symbol.SIMPLE_CONDITION)
     59            return T;
     60        if (type == BuiltInClass.SIMPLE_CONDITION)
     61            return T;
    5662        return super.typep(type);
    5763    }
  • trunk/j/src/org/armedbear/lisp/SimpleTypeError.java

    r4001 r5095  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: SimpleTypeError.java,v 1.1 2003-09-22 17:16:48 piso Exp $
     5 * $Id: SimpleTypeError.java,v 1.2 2003-12-12 16:13:46 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2424public final class SimpleTypeError extends TypeError
    2525{
    26     private LispObject formatControl;
    27     private LispObject formatArguments;
    28 
    2926    public SimpleTypeError(LispObject initArgs) throws ConditionThrowable
    3027    {
    3128        super(initArgs);
    32         LispObject datum = NIL;
    33         LispObject expectedType = NIL;
    34         LispObject first, second;
    35         while (initArgs != NIL) {
    36             first = initArgs.car();
    37             initArgs = initArgs.cdr();
    38             second = initArgs.car();
    39             initArgs = initArgs.cdr();
    40             if (first == Keyword.FORMAT_CONTROL)
    41                 formatControl = second;
    42             else if (first == Keyword.FORMAT_ARGUMENTS)
    43                 formatArguments = second;
    44         }
    45         this.formatControl = formatControl;
    46         this.formatArguments = formatArguments;
    4729    }
    4830
     
    7658            LispObject result =
    7759                Primitives.APPLY.execute(Symbol.FORMAT,
    78                                          Primitives.APPEND.execute(list2(NIL, formatControl),
    79                                                                    formatArguments));
     60                                         Primitives.APPEND.execute(list2(NIL, getFormatControl()),
     61                                                                   getFormatArguments()));
    8062            return ((LispString)result).getValue();
    8163        }
Note: See TracChangeset for help on using the changeset viewer.