Mercurial > hg > amuse

comparison 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
comparison
equal deleted inserted replaced
284:435834b86119 285:c2e50459efab
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