CASEQ and SELECTQ

[Guy Steele <GLS at SU-AI>]

I have long wished for a couple of extra features in CASEQ, and
having them now would sure make coding a lot easier for me.
I propose that CASEQ and SELECTQ mean slightly different things.
SELECTQ would remain as it is now, and CASEQ would mostly remain
the same, except for two added features:
[1] If there is no default (i.e., T or OTHERWISE) clause in a SELECTQ,
    the default value () is produced.  I suggest that a CASEQ instead
    produce some sort of correctable error as the "default default".
    This correctable error for (CASEQ <form> ... <no-T-clause-at-end>)
    ideally would be something like
	(FERROR ':UNSEEN-CASE-KEY		;or maybe UNSEEN-GO-TAG?
		"The CASEQ key ~S produced by <form> does not occur in the CASEQ"
		<value-of-form>)
    If the error is corrected, the CASEQ should be retried with the
    returned value.
    This is a construct I am constantly reconstructing by hand.  It wouldn't
    be too hard to write a macro for CASEQ in terms of SELECTQ to do this.
[2] I wish there were a construct (CASEGO <form>), which would take an
    evaluated argument and effectively jump to the top of the containing
    CASEQ and perform the selection with the specified item.  (I suppose
    there would have to be a CASEQ-NAMED as well to handle a CASEGO to
    an outer CASEQ.  In that case (sorry), CASEGO should take an optional
    unevaluated second argument, as for GO.)
    In the situation where the first argument to CASEGO is a constant,
    then the code can be optimized to go directly to the relevant clause.
    I find that I am using CASEQ a lot, and either the processing for one
    key involves doing a diddle and then doing code identical to that for
    another key; or I want to do my own error handling and write
	(CASEQ <form>
	       ((FOO) ...)
	       ((BAR) ...)
	       ((BAZ) ...)
               ...
	       (T (WARN "you blew it, bunky; I'll assume BAR for now")
		  (CASEGO 'BAR)))
    instead I have to resort to the awkward
	(CASEQ <form>
	       ((FOO) ...)
	       ((BAZ) ...)
	       ...
	       (T (OR (EQ <form> 'BAR)
		      (WARN "you blew it, bunky; I'll assume BAR for now"))
                  ...))	
    which is asymmetrical in the keys, requires me to put the code for BAR
    last, and requires me to write <form> twice.