Maclisp/LispM &OPTIONAL incompatibility

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

(DEFUN LOSSAGE (&OPTIONAL (X X)) X)	=>	(SETQ X 'X-GLOBAL-VALUE)
(LOSSAGE 'PARAMETER-GIVEN)		=>	PARAMETER-GIVEN
(LOSSAGE)				=>	NIL
						;Should give X-GLOBAL-VALUE

I hope this is a bug and not a deliberate design decision. The LispM returns
the `right' value, X-GLOBAL-VALUE, for the last evaluation shown.