diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp
index 520e44eeb58363a2c8fbc6cf0cd0aae647461821..4ab7a8cdc7220e8e214e18b87c08a485a2668c75 100644
--- a/compiler/ltn.lisp
+++ b/compiler/ltn.lisp
@@ -217,15 +217,6 @@
   (undefined-value))
 
 
-;;; 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 ()
-  (make-n-tns 2 *any-primitive-type*))
-
-
 ;;; Annotate-Unknown-Values-Continuation  --  Internal
 ;;;
 ;;; Annotate a continuation for unknown multiple values: