diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp
index db210f9b5d65e9e5266265e1d943cc1f420a2a27..678b66c24d0f4d475a89110576bcd59ec12ca74a 100644
--- a/compiler/old-rt/call.lisp
+++ b/compiler/old-rt/call.lisp
@@ -92,6 +92,28 @@
    (make-restricted-tn *any-primitive-type* register-arg-scn)))
 
 
+;;; MAKE-STACK-POINTER-TN ()
+;;; 
+(defun make-stack-pointer-tn ()
+  (make-normal-tn *any-primitive-type*))
+
+
+;;; MAKE-NUMBER-STACK-POINTER-TN ()
+;;; 
+(defun make-number-stack-pointer-tn ()
+  (make-normal-tn *any-primitive-type*))
+
+
+;;; Make-Unknown-Values-Locations  --  Interface
+;;;
+;;;    Return a list of TNs that can be used to represent an unknown-values
+;;; continuation within a function.
+;;;
+(defun make-unknown-values-locations ()
+  (list (make-stack-pointer-tn)
+	(make-normal-tn *any-primitive-type*)))
+
+
 ;;; Select-Component-Format  --  Interface
 ;;;
 ;;;    This function is called by the Entry-Analyze phase, allowing