Changeset 8530


Ignore:
Timestamp:
02/11/05 19:20:54 (17 years ago)
Author:
piso
Message:

SYS::%SET-SYMBOL-FUNCTION

File:
1 edited

Legend:

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

    r8527 r8530  
    33 *
    44 * Copyright (C) 2002-2005 Peter Graves
    5  * $Id: Primitives.java,v 1.733 2005-02-10 12:58:34 piso Exp $
     5 * $Id: Primitives.java,v 1.734 2005-02-11 19:20:54 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    48084808    };
    48094809
     4810    // ### %set-symbol-function
     4811    public static final Primitive _SET_SYMBOL_FUNCTION =
     4812        new Primitive("%set-symbol-function", PACKAGE_SYS, false, "symbol function")
     4813    {
     4814        public LispObject execute(LispObject first, LispObject second)
     4815            throws ConditionThrowable
     4816        {
     4817            try {
     4818                ((Symbol)first).setSymbolFunction(second);
     4819                return second;
     4820            }
     4821            catch (ClassCastException e) {
     4822                return signal(new TypeError(first, Symbol.SYMBOL));
     4823            }
     4824        }
     4825    };
     4826
    48104827    // ### symbol-plist
    48114828    public static final Primitive SYMBOL_PLIST =
Note: See TracChangeset for help on using the changeset viewer.