Changeset 10333


Ignore:
Timestamp:
11/03/05 17:01:45 (16 years ago)
Author:
piso
Message:

ALLOCATE-STD-INSTANCE: removed special handling of CONDITION objects.

File:
1 edited

Legend:

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

    r9482 r10333  
    33 *
    44 * Copyright (C) 2003-2005 Peter Graves
    5  * $Id: StandardObjectFunctions.java,v 1.10 2005-06-21 18:42:14 piso Exp $
     5 * $Id: StandardObjectFunctions.java,v 1.11 2005-11-03 17:01:45 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    4444                if (symbol == Symbol.STANDARD_METHOD)
    4545                    return new StandardMethod();
    46                 LispObject cpl = cls.getCPL();
    47                 while (cpl != NIL) {
    48                     LispObject obj = cpl.car();
    49                     if (obj == StandardClass.CONDITION)
    50                         return new Condition(cls, length);
    51                     cpl = cpl.cdr();
    52                 }
    5346                return new StandardObject(cls, length);
    5447            }
    55             return signal(new TypeError(arg, Symbol.CLASS));
     48            return signalTypeError(arg, Symbol.CLASS);
    5649        }
    5750    };
Note: See TracChangeset for help on using the changeset viewer.