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