X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Fbackend.lisp;h=0752e4249f7dbadc7520fc5b23d6cfb1c55a7af2;hb=d5aafdd8ab6387e12bac187048ed322bc96fb79a;hp=ef13dc707e9f09f3ef2989d3c7bc07bd8ec4ba03;hpb=77360ee4a1f94c41b807be7ad0e8687199fceef1;p=sbcl.git

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index ef13dc7..0752e42 100644
--- a/src/compiler/backend.lisp
+++ b/src/compiler/backend.lisp
@@ -247,8 +247,3 @@
 
 (defun backend-byte-fasl-file-implementation ()
   *backend-byte-order*)
-
-(defun backend-byte-fasl-file-type ()
-  (ecase *backend-byte-order*
-    (:big-endian "bytef")
-    (:little-endian "lbytef")))