Changeset 4674
- Timestamp:
- 11/07/03 20:20:14 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/j/src/org/armedbear/lisp/Primitives.java
r4658 r4674 3 3 * 4 4 * Copyright (C) 2002-2003 Peter Graves 5 * $Id: Primitives.java,v 1.49 2 2003-11-06 17:10:55piso Exp $5 * $Id: Primitives.java,v 1.493 2003-11-07 20:20:14 piso Exp $ 6 6 * 7 7 * This program is free software; you can redistribute it and/or … … 2838 2838 }; 2839 2839 2840 // ### getf 2841 // getf plist indicator &optional default => value 2842 private static final Primitive GETF = new Primitive("getf") 2843 { 2844 public LispObject execute(LispObject plist, LispObject indicator) 2845 throws ConditionThrowable 2846 { 2847 return getf(plist, indicator, NIL); 2848 } 2849 public LispObject execute(LispObject plist, LispObject indicator, 2850 LispObject defaultValue) 2851 throws ConditionThrowable 2852 { 2853 return getf(plist, indicator, defaultValue); 2854 } 2855 }; 2856 2840 2857 // ### get 2841 2858 // get symbol indicator &optional default => value
Note: See TracChangeset
for help on using the changeset viewer.