From a549f6264c6e8ea3b76daa50dcc46c719f927bf0 Mon Sep 17 00:00:00 2001
From: ch <ch>
Date: Sun, 27 May 1990 16:51:48 +0000
Subject: [PATCH] Added a DEFKNOWN for DYNAMIC-SPACE-FREE-POINTER.

---
 compiler/generic/vm-fndb.lisp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp
index 787ea78ee..e44c96482 100644
--- a/compiler/generic/vm-fndb.lisp
+++ b/compiler/generic/vm-fndb.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.8 1990/05/26 22:46:32 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.9 1990/05/27 16:51:48 ch Exp $
 ;;;
 ;;; This file defines the machine specific function signatures.
 ;;;
@@ -67,6 +67,10 @@
   (unsafe))
 
 
+(defknown dynamic-space-free-pointer ()
+  (system-area-pointer)
+  (foldable flushable movable))
+
 
 ;;;; 32bit logical operations
 
-- 
GitLab