Changeset 8530
- Timestamp:
- 02/11/05 19:20:54 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r8527 r8530 3 3 * 4 4 * Copyright (C) 2002-2005 Peter Graves 5 * $Id: Primitives.java,v 1.73 3 2005-02-10 12:58:34 piso Exp $5 * $Id: Primitives.java,v 1.734 2005-02-11 19:20:54 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 4808 4808 }; 4809 4809 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 4810 4827 // ### symbol-plist 4811 4828 public static final Primitive SYMBOL_PLIST =
Note: See TracChangeset
for help on using the changeset viewer.