Changeset 4333


Ignore:
Timestamp:
10/12/03 18:23:03 (19 years ago)
Author:
piso
Message:

APPLY: generic function support.

File:
1 edited

Legend:

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

    r4276 r4333  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.469 2003-10-10 02:57:00 piso Exp $
     5 * $Id: Primitives.java,v 1.470 2003-10-12 18:23:03 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    21442144            if (fun instanceof Symbol)
    21452145                fun = fun.getSymbolFunction();
    2146             if (fun instanceof Function) {
     2146            if (fun instanceof Function || fun instanceof GenericFunction) {
    21472147                final int numFunArgs = spread.length();
    21482148                final LispThread thread = LispThread.currentThread();
     
    21772177            if (fun instanceof Symbol)
    21782178                fun = fun.getSymbolFunction();
    2179             if (fun instanceof Function) {
     2179            if (fun instanceof Function || fun instanceof GenericFunction) {
    21802180                final int numFunArgs = numArgs - 2 + spread.length();
    21812181                final LispObject[] funArgs = new LispObject[numFunArgs];
Note: See TracChangeset for help on using the changeset viewer.