Simplify (and robustify) regular PACKing

[sbcl.git] / src / code / stubs.lisp

diff --git a/src/code/stubs.lisp b/src/code/stubs.lisp
index c2c35c2..c4ffb50 100644 (file)
--- a/src/code/stubs.lisp
+++ b/src/code/stubs.lisp
@@ -15,7 +15,8 @@
 
 (macrolet ((def (name &optional (args '(x)))
              `(defun ,name ,args (,name ,@args))))
-  (def %caller-frame-and-pc ())
+  (def %caller-frame ())
+  (def %caller-pc ())
   (def %code-code-size)
   (def %code-debug-info)
   (def %code-entry-points)