Changeset 10325


Ignore:
Timestamp:
11/02/05 15:30:22 (16 years ago)
Author:
piso
Message:

SYS:%SET-FIND-CLASS

File:
1 edited

Legend:

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

    r10310 r10325  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.846 2005-11-01 16:36:28 piso Exp $
     5 * $Id: Primitives.java,v 1.847 2005-11-02 15:30:22 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    54675467            throws ConditionThrowable
    54685468        {
    5469             try {
    5470                 Symbol symbol = (Symbol) first;
    5471                 if (second instanceof LispClass) {
    5472                     LispClass.addClass(symbol, (LispClass) second);
    5473                     return second;
    5474                 }
    5475                 if (second == NIL) {
    5476                     LispClass.removeClass(symbol);
    5477                     return second;
    5478                 }
     5469            final Symbol symbol;
     5470            try {
     5471                symbol = (Symbol) first;
     5472            }
     5473            catch (ClassCastException e) {
     5474                return signalTypeError(first, Symbol.SYMBOL);
     5475            }
     5476            if (second == NIL) {
     5477                LispClass.removeClass(symbol);
     5478                return second;
     5479            }
     5480            final LispClass c;
     5481            try {
     5482                c = (LispClass) second;
     5483            }
     5484            catch (ClassCastException e) {
    54795485                return signalTypeError(second, Symbol.CLASS);
    54805486            }
    5481             catch (ClassCastException e) {
    5482                 return signalTypeError(first, Symbol.SYMBOL);
    5483             }
     5487            LispClass.addClass(symbol, c);
     5488            return second;
    54845489        }
    54855490    };
Note: See TracChangeset for help on using the changeset viewer.