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