Changeset 5139


Ignore:
Timestamp:
12/15/03 01:55:03 (17 years ago)
Author:
piso
Message:

%MEMBER: permit generic functions for :KEY, :TEST, :TEST-NOT.

File:
1 edited

Legend:

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

    r5135 r5139  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.532 2003-12-15 00:37:19 piso Exp $
     5 * $Id: Primitives.java,v 1.533 2003-12-15 01:55:03 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    40964096                if (key instanceof Symbol)
    40974097                    key = key.getSymbolFunction();
    4098                 if (!(key instanceof Function))
     4098                if (!(key instanceof Function || key instanceof GenericFunction))
    40994099                    signal(new UndefinedFunction(args[2]));
    41004100            }
     
    41084108                if (test instanceof Symbol)
    41094109                    test = test.getSymbolFunction();
    4110                 if (!(test instanceof Function))
     4110                if (!(test instanceof Function || test instanceof GenericFunction))
    41114111                    signal(new UndefinedFunction(args[3]));
    41124112            } else if (testNot != NIL) {
    41134113                if (testNot instanceof Symbol)
    41144114                    testNot = testNot.getSymbolFunction();
    4115                 if (!(testNot instanceof Function))
     4115                if (!(testNot instanceof Function || testNot instanceof GenericFunction))
    41164116                    signal(new UndefinedFunction(args[3]));
    41174117            }
Note: See TracChangeset for help on using the changeset viewer.