Changeset 4674


Ignore:
Timestamp:
11/07/03 20:20:14 (18 years ago)
Author:
piso
Message:

GETF

File:
1 edited

Legend:

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

    r4658 r4674  
    33 *
    44 * Copyright (C) 2002-2003 Peter Graves
    5  * $Id: Primitives.java,v 1.492 2003-11-06 17:10:55 piso Exp $
     5 * $Id: Primitives.java,v 1.493 2003-11-07 20:20:14 piso Exp $
    66 *
    77 * This program is free software; you can redistribute it and/or
     
    28382838    };
    28392839
     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
    28402857    // ### get
    28412858    // get symbol indicator &optional default => value
Note: See TracChangeset for help on using the changeset viewer.