Changeset 3626

Timestamp:

09/08/03 17:18:07 (19 years ago)

Author:

piso

Message:

length()

File:

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

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

@@ -3 +3 @@
  *
  * Copyright (C) 2003 Peter Graves
- * $Id: DisplacedArray.java,v 1.1 2003-08-03 00:09:29 piso Exp $
+ * $Id: DisplacedArray.java,v 1.2 2003-09-08 17:18:07 piso Exp $
  *
  * This program is free software; you can redistribute it and/or
@@ -31 +31 @@
         this.array = array;
         this.offset = offset;
+    }
+
+    public int length() throws LispError
+    {
+        if (getRank() == 1)
+            return array.getDimension(0) - offset;
+        throw new TypeError(this, "sequence");
     }