Mercurial > hg > amuse

changeset 214:545f80a73f03

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 committer: Jamie Forth <j.forth@gold.ac.uk>
author j.forth <j.forth@gold.ac.uk>
date Thu, 24 Feb 2011 11:23:18 +0000
parents 328114b61465
children 4eceac78e7c6
files base/extended-sequence.lisp base/package.lisp
diffstat 2 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/base/extended-sequence.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/extended-sequence.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -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))
--- a/base/package.lisp	Thu Feb 24 11:23:18 2011 +0000
+++ b/base/package.lisp	Thu Feb 24 11:23:18 2011 +0000
@@ -158,5 +158,6 @@
 	   #:guess
 
 	   #:%list-slot-sequence-data
+	   #:list-slot-sequence
 	   #:move-to-first-bar
 	   ))