[no subject]

[Webster Dove <dove at MIT-DSPG>]

In ZWEI in Remote-File 22.0, LMFILE-Remote 23.1, MIT-Specific 16.0,
System 91.43, ZMail 48.7, microcode 216, "91.44", on Ford Prefect:

It appears that starting a defun documentation line with '(' causes
electric-shift-lock mode to go into upper case (as if a close quote had
been typed.  It also fouls up the enclosing parenthesis count (note that
the first paren of the upper defun won't blink when you put the cursor
just after the last paren.

(DEFUN INTERVAL (START END)
  "create an interval from start to end
Generally, integer intervals contain all reals from n.0 to n.9999...
(0 4) CONTAINS  0.0 <= X < 5.0
REAL INTERVALS ONLY CONTAING WHAT THEY SAY.
(0.0 4.0) CONTAINS 0.0 <= X <= 4.0"
  (CHECK-ARG-TYPE START NUMBER)
  (CHECK-ARG-TYPE END NUMBER)
  (COND ((> START END)
	 (FERROR NIL "start ~A after end ~A" START END)))
  (MAKE-INTERVAL START START
		 END END))

(DEFUN INTERVAL (START END)
  "create an interval from start to end
 Generally, integer intervals contain all reals from n.0 to n.9999...
 (0 4) contains  0.0 <= x < 5.0
 real intervals only containg what they say.
 (0.0 4.0) contains 0.0 <= x <= 4.0"
  (CHECK-ARG-TYPE START NUMBER)
  (CHECK-ARG-TYPE END NUMBER)
  (COND ((> START END)
	 (FERROR NIL "start ~A after end ~A" START END)))
  (MAKE-INTERVAL START START
		 END END))