From 665db747cb3a931cc98cc1e0b72e5a36a5cda9bc Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Fri, 27 Jun 2003 15:12:47 +0000 Subject: [PATCH] Enable vector-elt-width for all endians, not just non big-endian. --- pcl/simple-streams/internal.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/pcl/simple-streams/internal.lisp b/pcl/simple-streams/internal.lisp index 66276ab42..682d22bce 100644 --- a/pcl/simple-streams/internal.lisp +++ b/pcl/simple-streams/internal.lisp @@ -5,7 +5,7 @@ ;;; domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.4 2003/06/26 13:27:43 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.5 2003/06/27 15:12:47 toy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -256,7 +256,6 @@ (eval-when (:compile-toplevel) (push (c::backend-byte-order c::*backend*) *features*)) -#-big-endian (defun vector-elt-width (vector) ;; Return octet-width of vector elements (etypecase vector -- GitLab