From 60e852dded9a626f45c2ae5eddc7e6883d3b2e69 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 30 Apr 1990 00:33:38 +0000 Subject: [PATCH] Put #+new-compiler in front of defparameters for system-space-start and alien-allocation-end so that we don't trash them. --- code/alieneval.lisp | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/code/alieneval.lisp b/code/alieneval.lisp index acccc3f09..cebd657bb 100644 --- a/code/alieneval.lisp +++ b/code/alieneval.lisp @@ -290,20 +290,19 @@ ;;;; Alien allocation: -(eval-when (compile) - (dolist (x '(system-space-start alien-allocation-end)) - (remprop x 'lisp::%constant))) - ;;; In order to improve memory locality static alien values are allocated ;;; contiguously in a pre-validated area at the beginning of system space. We ;;; keep a free pointer to the next word we can allocate. ;;; +#+new-compiler (defparameter system-space-start (int-sap #x80000000) "The address of the first statically allocated alien.") +#+new-compiler (defparameter alien-allocation-end (int-sap #x8fffffff) "The end of statically allocated aliens.") +#+new-compiler (defvar *current-alien-free-pointer* system-space-start "The next word in system space for static alien allocation.") -- GitLab