From cd936a36f48bbc25b6b97250dc1624856f23dba3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sun, 12 Nov 2023 10:37:15 +0100
Subject: [PATCH] cmp: update *destinations* description and remove dead code

---
 src/cmp/cmpbackend-cxx/cmppass2-eval.lsp |  8 --------
 src/cmp/cmpglobals.lsp                   |  6 +++---
 src/cmp/cmplocs.lsp                      | 10 +++++-----
 3 files changed, 8 insertions(+), 16 deletions(-)

diff --git a/src/cmp/cmpbackend-cxx/cmppass2-eval.lsp b/src/cmp/cmpbackend-cxx/cmppass2-eval.lsp
index b46cd206f..08b8d9c26 100644
--- a/src/cmp/cmpbackend-cxx/cmppass2-eval.lsp
+++ b/src/cmp/cmpbackend-cxx/cmppass2-eval.lsp
@@ -211,14 +211,6 @@
 
 (defun c2values (c1form forms)
   (declare (ignore c1form))
-  (when (and (eq *destination* 'RETURN-OBJECT)
-             (rest forms)
-             (consp *current-form*)
-             (eq 'cl:DEFUN (first *current-form*)))
-    (cmpwarn "Trying to return multiple values. ~
-              ~%;But ~a was proclaimed to have single value.~
-              ~%;Only first one will be assured."
-             (second *current-form*)))
   (cond
    ;; When the values are not going to be used, then just
    ;; process each form separately.
diff --git a/src/cmp/cmpglobals.lsp b/src/cmp/cmpglobals.lsp
index 878f46b50..73cc7627b 100644
--- a/src/cmp/cmpglobals.lsp
+++ b/src/cmp/cmpglobals.lsp
@@ -124,10 +124,10 @@ variable, block, tag or function object at the end.")
 only be altered by DECLAIM forms and it is used to initialize the
 value of *CMP-ENV*.")
 
-;;; --cmplog.lsp--
+;;; --cmplocs.lsp--
 ;;;
-;;; Destination of output of different forms. See cmploc.lsp for types
-;;; of destinations.
+;;; Destination of output of different forms. See cmplocs.lsp for types of
+;;; destinations.
 ;;;
 (defvar *destination*)
 
diff --git a/src/cmp/cmplocs.lsp b/src/cmp/cmplocs.lsp
index e69736b2c..04b82c9dd 100644
--- a/src/cmp/cmplocs.lsp
+++ b/src/cmp/cmplocs.lsp
@@ -140,13 +140,13 @@
 
 ;;; Valid *DESTINATION* locations are:
 ;;;
-;;;     VALUE0
-;;;     RETURN                          Object returned from current function.
+;;;     var-object                      Variable
+;;;     loc-object                      VV Location
 ;;;     TRASH                           Value may be thrown away.
+;;;     RETURN                          Object returned from current function.
 ;;;     VALUES                          Values vector.
-;;;     var-object
-;;;     ( LCL lcl )
-;;;     ( LEX lex-address )
+;;;     VALUE0
+;;;     ( VALUE i )                     Nth value
 ;;;     ( BIND var alternative )        Alternative is optional
 ;;;     ( JUMP-TRUE label )
 ;;;     ( JUMP-FALSE label )