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: