X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Fbackend-parms.lisp;h=9f061d640d613c8afea70861a78fa8686ee551a1;hb=b7a8f5313a83dea33ce60551a4fb987b415c2cc6;hp=30f38e41688ffc58b3ad7bdbee287718f2aec688;hpb=cab2c71bb1bb8a575d9eebdae335e731daa64183;p=sbcl.git

diff --git a/src/compiler/ppc/backend-parms.lisp b/src/compiler/ppc/backend-parms.lisp
index 30f38e4..9f061d6 100644
--- a/src/compiler/ppc/backend-parms.lisp
+++ b/src/compiler/ppc/backend-parms.lisp
@@ -1,7 +1,6 @@
 (in-package "SB!VM")
 
-(setf *backend-fasl-file-type* "fasl")
-(defconstant +backend-fasl-file-implementation+ :ppc)
+(def!constant +backend-fasl-file-implementation+ :ppc)
 (setf *backend-register-save-penalty* 3)
 (setf *backend-byte-order* :big-endian)
 (setf *backend-page-size* 4096)