X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fbackend.lisp;h=01846185e54477b2f782eca1b03b376c1707348a;hb=369029d73f198b59135c6c005b7a70ae5a753650;hp=3866886b15bb2b5c8e6d40fb3994e58ab50f4ecd;hpb=e0814eee6f6dea52db010b45a330100f2fe65832;p=sbcl.git

diff --git a/src/compiler/backend.lisp b/src/compiler/backend.lisp
index 3866886..0184618 100644
--- a/src/compiler/backend.lisp
+++ b/src/compiler/backend.lisp
@@ -180,12 +180,12 @@
     make-call-out-tns
 
     ;; from call.lisp
-    standard-argument-location
+    standard-arg-location
     make-return-pc-passing-location
     make-old-fp-passing-location
     make-old-fp-save-location
     make-return-pc-save-location
-    make-argument-count-location
+    make-arg-count-location
     make-nfp-tn
     make-stack-pointer-tn
     make-number-stack-pointer-tn
@@ -195,7 +195,7 @@
     ;; from nlx.lisp
     make-nlx-sp-tn
     make-dynamic-state-tns
-    make-nlx-entry-argument-start-location
+    make-nlx-entry-arg-start-location
 
     ;; from support.lisp
     generate-call-sequence
@@ -263,8 +263,10 @@ yet an ideal interface, but it does allow for compile-time
 conditionalization.
 |#
 
-;;; The default value of NIL means use only unguarded VOPs.
-(defvar *backend-subfeatures* nil)
+;;; The default value of NIL means use only unguarded VOPs. The
+;;; initial value is customizeable via
+;;; customize-backend-subfeatures.lisp
+(defvar *backend-subfeatures* '#.sb-cold:*shebang-backend-subfeatures*)
 
 ;;; possible *BACKEND-SUBFEATURES* values:
 ;;;