Changeset 4674

Timestamp:

11/07/03 20:20:14 (19 years ago)

Author:

piso

Message:

GETF

File:

• trunk/j/src/org/armedbear/lisp/Primitives.java (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/Primitives.java

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Primitives.java,v 1.492 2003-11-06 17:10:55 piso Exp $
+ * $Id: Primitives.java,v 1.493 2003-11-07 20:20:14 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -2838 +2838 @@
     };
 
+    // ### getf
+    // getf plist indicator &optional default => value
+    private static final Primitive GETF = new Primitive("getf")
+    {
+        public LispObject execute(LispObject plist, LispObject indicator)
+            throws ConditionThrowable
+        {
+            return getf(plist, indicator, NIL);
+        }
+        public LispObject execute(LispObject plist, LispObject indicator,
+                                  LispObject defaultValue)
+            throws ConditionThrowable
+        {
+            return getf(plist, indicator, defaultValue);
+        }
+    };
+
     // ### get
     // get symbol indicator &optional default => value