Index: cl-clx-sbcl/depdefs.lisp
===================================================================
--- cl-clx-sbcl.orig/depdefs.lisp	2010-05-30 19:02:05.000000001 +0200
+++ cl-clx-sbcl/depdefs.lisp	2012-01-28 21:29:04.000000001 +0100
@@ -141,9 +141,12 @@
 ;;; You must define this to match the real byte order.  It is used by
 ;;; overlapping array and image code.
 
-#+(or lispm vax little-endian Minima)
+#+(and (not sbcl) (not clisp) (or lispm vax little-endian Minima))
 (eval-when (eval compile load)
   (pushnew :clx-little-endian *features*))
+#+(and (or sbcl clisp) little-endian)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (pushnew :clx-little-endian *features*))
 
 #+lcl3.0
 (eval-when (compile eval load)
