Mercurial > hg > amuse

changeset 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 435834b86119
children d22c67dac97d
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	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))
--- a/base/package.lisp	Sun May 24 17:41:16 2009 +0100
+++ b/base/package.lisp	Sun May 24 17:47:11 2009 +0100
@@ -158,5 +158,6 @@
 	   #:guess
 
 	   #:%list-slot-sequence-data
+	   #:list-slot-sequence
 	   #:move-to-first-bar
 	   ))