X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fbackend-parms.lisp;h=a1802f5e71a0584621fb8add3ae4829552bad68f;hb=f3f677703e37f5a335b3be7fa64f7748ad969517;hp=4fcd8e683159c62f4c317db3d76d6d4b001a93df;hpb=bee53328c93be3433477821131ab805557476c8b;p=sbcl.git

diff --git a/src/compiler/x86/backend-parms.lisp b/src/compiler/x86/backend-parms.lisp
index 4fcd8e6..a1802f5 100644
--- a/src/compiler/x86/backend-parms.lisp
+++ b/src/compiler/x86/backend-parms.lisp
@@ -17,7 +17,7 @@
 
 ;;;; compiler constants
 
-(defconstant +backend-fasl-file-implementation+ :x86)
+(def!constant +backend-fasl-file-implementation+ :x86)
 
 (setf *backend-register-save-penalty* 3)
 
@@ -27,6 +27,17 @@
 ;;; code for it, but mostly we need it for GENESIS, which doesn't in
 ;;; general have our C runtime code running to ask, so instead we set
 ;;; it by hand. -- WHN 2001-04-15
+;;;
+;;; Though note that POSIX specifies (as far as I can tell)
+;;;
+;;;   sysconf(_SC_PAGE_SIZE);
+;;;
+;;; as a portable way of retrieving this information; a call to this
+;;; could be made in grovel-headers (which, strictly speaking, would
+;;; no longer solely be grovelling headers), though the question of
+;;; how to make this information appear in GENESIS, which is built and
+;;; run from host-1 files (which are made before grovel-headers runs)
+;;; would remain.  -- CSR, 2002-09-01
 (setf *backend-page-size* 4096)
 ;;; comment from CMU CL:
 ;;;