Changeset 8537


Ignore:
Timestamp:
02/12/05 02:15:49 (16 years ago)
Author:
piso
Message:

%SET-LAMBDA-NAME

File:
1 edited

Legend:

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

    r8530 r8537  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.734 2005-02-11 19:20:54 piso Exp $
     5 * $Id: Primitives.java,v 1.735 2005-02-12 02:15:49 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    15421542                                          arglist, body, env);
    15431543            FSET.execute(first, closure, NIL, arglist);
    1544             // Clear function table entry (if any).
    1545             if (FUNCTION_TABLE != null) {
    1546                 FUNCTION_TABLE.remhash(first);
    1547             }
    15481544            return first;
    15491545        }
     
    40054001        {
    40064002            if (first instanceof Function) {
    4007                 Function f = (Function) first;
    4008                 f.setLambdaName(second);
     4003                ((Function)first).setLambdaName(second);
    40094004                return second;
    40104005            }
    4011             return signal(new TypeError(first, "function"));
     4006            if (first instanceof GenericFunction) {
     4007                ((GenericFunction)first).setGenericFunctionName(second);
     4008                return second;
     4009            }
     4010            return signal(new TypeError(first, Symbol.FUNCTION));
    40124011        }
    40134012    };
Note: See TracChangeset for help on using the changeset viewer.