Skip to content
Snippets Groups Projects
Commit d408587a authored by wlott's avatar wlott
Browse files

Replaced target-byte-order with (backend-byte-order *backend*).

parent 76f53dfe
No related branches found
No related tags found
No related merge requests found
...@@ -146,7 +146,8 @@ ...@@ -146,7 +146,8 @@
(declare (type simple-bit-vector bits)) (declare (type simple-bit-vector bits))
(let ((len (length bits)) (let ((len (length bits))
(start (fill-pointer vec))) (start (fill-pointer vec)))
(cond ((eq target-byte-order native-byte-order) (cond ((eq (backend-byte-order *backend*)
(backend-byte-order *native-backend*))
(let ((bytes (ash len -3))) (let ((bytes (ash len -3)))
(dotimes (i bytes) (dotimes (i bytes)
(vector-push-extend 0 vec)) (vector-push-extend 0 vec))
...@@ -166,7 +167,7 @@ ...@@ -166,7 +167,7 @@
(setq shift ,initial byte 0))) (setq shift ,initial byte 0)))
(unless (= shift ,initial) (unless (= shift ,initial)
(vector-push-extend byte vec))))) (vector-push-extend byte vec)))))
(ecase target-byte-order (ecase (backend-byte-order *backend*)
(:little-endian (:little-endian
(frob 0 incf (= shift 8))) (frob 0 incf (= shift 8)))
(:big-endian (:big-endian
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment