Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv26445

Modified Files: sequences.lisp Log Message: Cleaning up some minor stuff after the migration to the new vectors. Also, inform typep that basic-vector corresponds to simple-arrays.

Date: Thu Jul 8 04:30:36 2004 Author: ffjeld

Index: movitz/losp/muerte/sequences.lisp diff -u movitz/losp/muerte/sequences.lisp:1.13 movitz/losp/muerte/sequences.lisp:1.14 --- movitz/losp/muerte/sequences.lisp:1.13 Wed Jul 7 10:37:38 2004 +++ movitz/losp/muerte/sequences.lisp Thu Jul 8 04:30:36 2004 @@ -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.13 2004/07/07 17:37:38 ffjeld Exp $ +;;;; $Id: sequences.lisp,v 1.14 2004/07/08 11:30:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -55,7 +55,7 @@

(defun length (sequence) (etypecase sequence - (basic-vector + (simple-array (macrolet ((do-it () `(with-inline-assembly (:returns :eax)