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