Changeset 4637

Timestamp:

11/04/03 01:41:21 (18 years ago)

Author:

piso

Message:

get(), put(): minor performance tweaks.

File:

• trunk/j/src/org/armedbear/lisp/Lisp.java (modified) (4 diffs)

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

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2003 Peter Graves
- * $Id: Lisp.java,v 1.171 2003-10-26 19:13:26 piso Exp $
+ * $Id: Lisp.java,v 1.172 2003-11-04 01:41:21 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -980 +980 @@
         throws ConditionThrowable
     {
-        LispObject result = get(symbol, indicator);
-        return result != null ? result : defaultValue;
-    }
-
-    // Returns null if there is no property with the specified indicator.
-    public static final LispObject get(Symbol symbol, LispObject indicator)
-        throws ConditionThrowable
-    {
-        LispObject list = checkList(symbol.getPropertyList());
+        LispObject list = symbol.getPropertyList();
         while (list != NIL) {
             LispObject obj = list.car();
@@ -995 +987 @@
             list = list.cddr();
         }
+        return defaultValue;
+    }
+
+    // Returns null if there is no property with the specified indicator.
+    public static final LispObject get(Symbol symbol, LispObject indicator)
+        throws ConditionThrowable
+    {
+        LispObject list = symbol.getPropertyList();
+        while (list != NIL) {
+            LispObject obj = list.car();
+            if (obj.eql(indicator))
+                return list.cadr();
+            list = list.cddr();
+        }
         return null;
     }
@@ -1002 +1008 @@
         throws ConditionThrowable
     {
-        LispObject list = checkList(symbol.getPropertyList());
+        LispObject list = symbol.getPropertyList();
         while (list != NIL) {
             if (list.car().eql(indicator)) {