Changeset 4340


Ignore:
Timestamp:
10/13/03 11:40:12 (19 years ago)
Author:
piso
Message:

MAPCAR: recognize generic functions.

File:
1 edited

Legend:

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

    r4339 r4340  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.471 2003-10-13 11:35:15 piso Exp $
     5 * $Id: Primitives.java,v 1.472 2003-10-13 11:40:12 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    22072207            if (fun instanceof Symbol)
    22082208                fun = fun.getSymbolFunction();
    2209             if (!(fun instanceof Function))
     2209            if (!(fun instanceof Function || fun instanceof GenericFunction))
    22102210                throw new ConditionThrowable(new UndefinedFunction(first));
    22112211            // Second argument must be a list.
     
    22352235            if (fun instanceof Symbol)
    22362236                fun = fun.getSymbolFunction();
    2237             if (!(fun instanceof Function))
     2237            if (!(fun instanceof Function || fun instanceof GenericFunction))
    22382238                throw new ConditionThrowable(new UndefinedFunction(first));
    22392239            // Remaining arguments must be lists.
     
    22682268            if (fun instanceof Symbol)
    22692269                fun = fun.getSymbolFunction();
    2270             if (!(fun instanceof Function))
     2270            if (!(fun instanceof Function || fun instanceof GenericFunction))
    22712271                throw new ConditionThrowable(new UndefinedFunction(args[0]));
    22722272            // Remaining arguments must be lists.
Note: See TracChangeset for help on using the changeset viewer.