Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv15045
Modified Files: sequences.lisp Log Message: Move (deftype index) from sequences.lisp to typep.lisp.
Date: Sun Aug 21 19:59:16 2005 Author: ffjeld
Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.22 movitz/losp/muerte/sequences.lisp:1.23 --- movitz/losp/muerte/sequences.lisp:1.22 Sun Aug 21 19:56:44 2005 +++ movitz/losp/muerte/sequences.lisp Sun Aug 21 19:59:16 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 11 14:19:23 2001 ;;;; -;;;; $Id: sequences.lisp,v 1.22 2005/08/21 17:56:44 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.23 2005/08/21 17:59:16 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -18,9 +18,6 @@ (provide :muerte/sequences)
(in-package muerte) - -(deftype index (&optional (step 1)) - `(integer 0 ,(- #x1fffffff step)))
(defun sequencep (x) (or (typep x 'vector)