Mercurial > hg > amuse

comparison base/extended-sequence.lisp @ 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 d1010755f507
children
comparison
equal deleted inserted replaced
213:328114b61465 214:545f80a73f03
9 ;; 9 ;;
10 ;; The code here draws heavily on Christophe's examples 10 ;; The code here draws heavily on Christophe's examples
11 11
12 (defclass list-slot-sequence (sequence standard-object) 12 (defclass list-slot-sequence (sequence standard-object)
13 ((%data :accessor %list-slot-sequence-data 13 ((%data :accessor %list-slot-sequence-data
14 :initarg :%data
14 :initform nil))) 15 :initform nil)))
15 16
16 (defmethod sequence:length ((o list-slot-sequence)) 17 (defmethod sequence:length ((o list-slot-sequence))
17 (length (%list-slot-sequence-data o))) 18 (length (%list-slot-sequence-data o)))
18 19