cmp: update *destinations* description and remove dead code

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.

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*)
 

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 )