# HG changeset patch
# User j.forth <j.forth@gold.ac.uk>
# Date 1298546598 0
# Node ID 545f80a73f03e6fcce14d85d089fb14dbaf1411b
# Parent  328114b614658785e9e2dfdaaf6af2534bd11c95
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>

diff -r 328114b61465 -r 545f80a73f03 base/extended-sequence.lisp
--- 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))
diff -r 328114b61465 -r 545f80a73f03 base/package.lisp
--- 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
 	   ))