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

Modified Files: arrays.lisp Log Message: Removed superfluous array type expander.

Date: Sat Aug 20 22:24:12 2005 Author: ffjeld

Index: movitz/losp/muerte/arrays.lisp diff -u movitz/losp/muerte/arrays.lisp:1.54 movitz/losp/muerte/arrays.lisp:1.55 --- movitz/losp/muerte/arrays.lisp:1.54 Sun Aug 14 13:35:52 2005 +++ movitz/losp/muerte/arrays.lisp Sat Aug 20 22:24:11 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sun Feb 11 23:14:04 2001 ;;;; -;;;; $Id: arrays.lisp,v 1.54 2005/08/14 11:35:52 ffjeld Exp $ +;;;; $Id: arrays.lisp,v 1.55 2005/08/20 20:24:11 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1076,28 +1076,6 @@ (defun bvref-u16 (vector offset index) "View <vector> as an sequence of octets, access the big-endian 16-bit word at position <index> + <offset>." (bvref-u16 vector offset index)) - -(define-typep array (x &optional (element-type '*) (dimension-spec '*)) - (and (typep x 'array) - (or (eq element-type '*) - (eq element-type t) - (equalp (array-element-type x) - (upgraded-array-element-type element-type))) - (or (eq dimension-spec '*) - (and (integerp dimension-spec) - (= dimension-spec (array-dimensions x))) - (and (listp dimension-spec) - (do ((array-rank (array-dimensions x)) - (d 0 (1+ d)) - (q dimension-spec)) - ((null q) (= d array-rank)) - (let ((dim (pop q))) - (cond - ((>= d array-rank) - (return nil)) - ((eq dim '*)) - ((= dim (array-dimension x d))) - (t (return nil)))))))))

(defun ensure-data-vector (vector start length) (let ((end (typecase vector