Skip to content
Snippets Groups Projects
Commit feb1f89c authored by ram's avatar ram
Browse files

Added %CALLER-FRAME-AND-PC.

parent 237c30b8
No related branches found
No related tags found
No related merge requests found
...@@ -53,6 +53,11 @@ ...@@ -53,6 +53,11 @@
) )
"C") "C")
(in-package "KERNEL")
(export '(%caller-frame-and-pc))
(in-package 'c) (in-package 'c)
#| Something to convert the old FNDEFS database into our format: #| Something to convert the old FNDEFS database into our format:
...@@ -1039,6 +1044,7 @@ ...@@ -1039,6 +1044,7 @@
(defknown (%dpb %deposit-field) (integer bit-index bit-index integer) integer (defknown (%dpb %deposit-field) (integer bit-index bit-index integer) integer
(movable foldable flushable)) (movable foldable flushable))
(defknown %negate (number) number (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 ;;; Structure slot accessors or setters are magically "known" to be these
;;; functions, although the var remains the Slot-Accessor describing the actual ;;; functions, although the var remains the Slot-Accessor describing the actual
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment