From 41cfa8d87f0d1fd5f82c925254957c359b12a32d Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 4 Jul 1990 21:02:49 +0000 Subject: [PATCH] Added defknowns for %closure-index-ref, %make-complex, and %make-ratio. --- compiler/generic/vm-fndb.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index 27cb0a073..96a74946e 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.17 1990/07/02 04:51:11 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.18 1990/07/04 21:02:49 wlott Exp $ ;;; ;;; This file defines the machine specific function signatures. ;;; @@ -69,6 +69,10 @@ (foldable flushable)) +(defknown %closure-index-ref (function index) t + (flushable)) + + (defknown vector-sap ((simple-unboxed-array (*))) system-area-pointer (flushable)) @@ -92,6 +96,10 @@ (defknown %make-weak-pointer (t boolean) weak-pointer (flushable)) +(defknown %make-complex (real real) complex + (flushable movable)) +(defknown %make-ratio (rational rational) ratio + (flushable movable)) (defknown (dynamic-space-free-pointer binding-stack-pointer-sap -- GitLab