[no subject]

[Kent M. Pitman <KMP at MIT-MC>]

(DEFUN EDIT-ONCE EXPR (BD NEXMOV OKCHANGES)
  (PROG (CHR OLDCHR DELTA SIZE)
    ... (COND ((EQUAL (ASCII 7) CHR) (ECHO) (ERROR 'YOU-RANG) (RETURN NIL)))
    ... ))

Does this code look familiar? You requested the behavior you got. 

The (ERROR 'YOU-RANG) generates a ;YOU-RANG and a ;BKPT *RSET-TRAP (*RSET is
the handler that gets errors which have no error channel associated with them).

I don't really think the BUG-LISP people should have to debug your code. This
is something you clearly could have solved yourself by searching for the 
YOU-RANG string in your file as I did... Oh, and in future bug reports, please
specify:

	* the filename(s) involved
	* a procedure for reproducing the bug
	* a clear description of how the viewed behavior deviates from what
	  you think the correct behavior is.

Your bug note contained really none of these. Bug notes really should contain
all of that information to be very useful.