Changeset 3987


Ignore:
Timestamp:
09/22/03 11:08:46 (19 years ago)
Author:
piso
Message:

typep(), initArgs constructor.

File:
1 edited

Legend:

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

    r3929 r3987  
    33 *
    44 * Copyright (C) 2003 Peter Graves
    5  * $Id: PackageError.java,v 1.6 2003-09-20 17:02:05 piso Exp $
     5 * $Id: PackageError.java,v 1.7 2003-09-22 11:08:46 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    2828    }
    2929
     30    public PackageError(LispObject initArgs)
     31    {
     32        this(); // FIXME
     33    }
     34
    3035    public PackageError(String message)
    3136    {
     
    4752        if (type == Symbol.PACKAGE_ERROR)
    4853            return T;
     54        if (type == BuiltInClass.PACKAGE_ERROR)
     55            return T;
    4956        return super.typep(type);
    5057    }
Note: See TracChangeset for help on using the changeset viewer.