Changeset 10324


Ignore:
Timestamp:
11/02/05 03:05:59 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

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

Legend:

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

    r8418 r10324  
    33 *
    44 * Copyright (C) 2005 Peter Graves
    5  * $Id: CompilerError.java,v 1.1 2005-01-31 12:36:02 piso Exp $
     5 * $Id: CompilerError.java,v 1.2 2005-11-02 03:05:59 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3434    }
    3535
     36    public LispObject classOf()
     37    {
     38        return StandardClass.COMPILER_ERROR;
     39    }
     40
    3641    public LispObject typep(LispObject type) throws ConditionThrowable
    3742    {
    3843        if (type == Symbol.COMPILER_ERROR)
    3944            return T;
     45        if (type == StandardClass.COMPILER_ERROR)
     46            return T;
    4047        return super.typep(type);
    4148    }
  • trunk/j/src/org/armedbear/lisp/CompilerUnsupportedFeatureError.java

    r8413 r10324  
    33 *
    44 * Copyright (C) 2005 Peter Graves
    5  * $Id: CompilerUnsupportedFeatureError.java,v 1.1 2005-01-31 05:50:28 piso Exp $
     5 * $Id: CompilerUnsupportedFeatureError.java,v 1.2 2005-11-02 03:05:11 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    3434    }
    3535
     36    public LispObject classOf()
     37    {
     38        return StandardClass.COMPILER_UNSUPPORTED_FEATURE_ERROR;
     39    }
     40
    3641    public LispObject typep(LispObject type) throws ConditionThrowable
    3742    {
    3843        if (type == Symbol.COMPILER_UNSUPPORTED_FEATURE_ERROR)
    3944            return T;
     45        if (type == StandardClass.COMPILER_UNSUPPORTED_FEATURE_ERROR)
     46            return T;
    4047        return super.typep(type);
    4148    }
Note: See TracChangeset for help on using the changeset viewer.