[no subject]

[George J. Carrette <GJC at MIT-MC>]

Screwed again. Ah Bullshit. Guess what
(DEFUN FOO (&OPTIONAL (X X)) (FROB)) 
expands into? 

(DEFUN FOO |LexprVar..1|
  (LET (X)
       (DSETQ X (COND ((> |lexprVar..1| 0) (ARG 1)) (X))
       (FROB)))

This is WRONG. The correct code is
(DEFUN FOO |LexprVar..1|
  (LET* ((X (COND ((> |lexprVar..1| 0) (ARG 1)) (X)))
        (FROB)))

Where I have use LET* because thats what a sequence of &OPTIONAL's would
want.

-gjc