Mercurial > hg > amuse

diff base/extended-sequence.lisp @ 285:c2e50459efab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make it easier to use list-slot-sequence in backend packages Ignore-this: d9c0e2f632722c0588a42c5753ed3470 darcs-hash:20090524164711-16a00-84e8bf98954f6dea2edf6ef9ede683af2d312218.gz
author j.forth <j.forth@gold.ac.uk>
date Sun, 24 May 2009 17:47:11 +0100
parents d1010755f507
children
line wrap: on
line diff
--- a/base/extended-sequence.lisp	Sun May 24 17:41:16 2009 +0100
+++ b/base/extended-sequence.lisp	Sun May 24 17:47:11 2009 +0100
@@ -11,6 +11,7 @@
 
 (defclass list-slot-sequence (sequence standard-object)
   ((%data :accessor %list-slot-sequence-data
+	  :initarg :%data
 	  :initform nil)))
 
 (defmethod sequence:length ((o list-slot-sequence))
@@ -71,4 +72,4 @@
 (defmethod sequence:iterator-index ((o list-slot-sequence) iterator)
   (sequence:iterator-index (%list-slot-sequence-data o) iterator))
 (defmethod sequence:iterator-copy ((o list-slot-sequence) iterator)
-  (sequence:iterator-copy (%list-slot-sequence-data o) iterator))
\ No newline at end of file
+  (sequence:iterator-copy (%list-slot-sequence-data o) iterator))