From feb1f89c8e031c94274348bc22a663930447d110 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 23 Aug 1990 16:15:37 +0000 Subject: [PATCH] Added %CALLER-FRAME-AND-PC. --- compiler/fndb.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/compiler/fndb.lisp b/compiler/fndb.lisp index 257759b70..1d9a2a0dc 100644 --- a/compiler/fndb.lisp +++ b/compiler/fndb.lisp @@ -53,6 +53,11 @@ ) "C") +(in-package "KERNEL") + +(export '(%caller-frame-and-pc)) + + (in-package 'c) #| Something to convert the old FNDEFS database into our format: @@ -1039,6 +1044,7 @@ (defknown (%dpb %deposit-field) (integer bit-index bit-index integer) integer (movable foldable flushable)) (defknown %negate (number) number (movable foldable flushable)) +(defknown kernel:%caller-frame-and-pc () (values t t) (flushable)) ;;; Structure slot accessors or setters are magically "known" to be these ;;; functions, although the var remains the Slot-Accessor describing the actual -- GitLab