[clisp-list] problem with EXT:EXPAND-FORM

[<don...@is...>]

http://clisp.podval.org/impnotes/code-walk.html
suggests that this should expand macros, but that's not what I see:

 (EXT:EXPAND-FORM '(cond (x y)))
=>
 (COND (X Y)) ;
 NIL
whereas
 (macroexpand-1 '(cond (x y)))
 =>
 (IF X Y NIL) ;
 T

Even stranger:
 (EXT:EXPAND-FORM '(incf (cond (x y))))
 (LET* ((#:COND-60395 X) (#:NEW-60396 (+ (IF #:COND-60395 Y NIL) 1)))
 (IF #:COND-60395 (SETQ Y #:NEW-60396) (SETQ NIL #:NEW-60396))) ;
 T

 (EXT:EXPAND-FORM '(f (cond (x y))))
 (F (COND (X Y))) ;
 NIL