diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index e3ee0d978852aac6038cf44fd230f01129a8724f..f25c2d116ea8f786318d367400e95235782095cb 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.11 1990/06/03 19:08:39 ch Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.12 1990/06/08 01:18:34 wlott Exp $ ;;; ;;; This file defines the machine specific function signatures. ;;; @@ -69,6 +69,10 @@ (unsafe)) +(defknown %make-weak-pointer (t boolean) weak-pointer + (flushable)) + + (defknown (dynamic-space-free-pointer binding-stack-pointer-sap control-stack-pointer-sap) () (system-area-pointer)