From b2c8c76d3b94ad1a6614341d2f462e55667b86ce Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 16 Jun 1990 14:51:58 +0000
Subject: [PATCH] Moved definition of make-unknown-values-locations to the vm
 specific call.lisp. ,. ,.

---
 compiler/ltn.lisp | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp
index 520e44eeb..4ab7a8cdc 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:
-- 
GitLab