X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Falpha%2Fbackend-parms.lisp;h=ab49a3c4d5e76dadae1e81c6969675ed952d60ae;hb=a4882e3023fdd5e777169a4cbede33605281173c;hp=a43cadee1ce637dd2fc48d8804ff7cd0d03d02f9;hpb=dfa55a883f94470267b626dae77ce7e7dfac3df6;p=sbcl.git

diff --git a/src/compiler/alpha/backend-parms.lisp b/src/compiler/alpha/backend-parms.lisp
index a43cade..ab49a3c 100644
--- a/src/compiler/alpha/backend-parms.lisp
+++ b/src/compiler/alpha/backend-parms.lisp
@@ -1,8 +1,8 @@
-;;;; that part of the parms.lisp file from original CMU CL which is defined in
-;;;; terms of the BACKEND structure
+;;;; that part of the parms.lisp file from original CMU CL which is
+;;;; defined in terms of the BACKEND structure
 ;;;;
-;;;; FIXME: When we break up the BACKEND structure, this might be mergeable
-;;;; back into the parms.lisp file.
+;;;; FIXME: Now that the BACKEND structure has been broken up, this
+;;;; might be mergeable back into the parms.lisp file.
 
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
@@ -13,19 +13,11 @@
 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
 ;;;; files for more information.
 
-
-
 (in-package "SB!VM")
-
 
 ;;;; compiler constants
 
-(setf *backend-fasl-file-type* "axpf")
-(setf *backend-fasl-file-implementation* :alpha)
-(setf *backend-fasl-file-version* 2)
-;;;(setf *backend-fasl-file-version* 8)
-;;; 8 = sbcl-0.6.10.4 revived Gray stream support, changing stream layouts
-
+(def!constant +backend-fasl-file-implementation+ :alpha)
 
 (setf *backend-register-save-penalty* 3)