format directive ~? broken with XP?

[Benjamin Price Shults <bshults@math.utexas.edu>]

Use of the ~? directive in combination with pretty printing directives
seems to break clisp:

- --begin script--

> (format nil "~<hi ~:@_ ho~:>" nil)
"hi
 ho"
> (format nil "~?" "~<hi ~:@_ ho~:>" '(nil))
*** - Non-existent directive
Current point in control string:
  ~<hi ~:@_ ho~:>
          |
1. Break> 

- --end script--

I have tried it with simpler directives such as ~:@_ and it gives the
unknown directive error:

- --begin script--

> (format nil "~<hi ~:@_ ho ~:>" nil)
"hi
 ho "
> (format nil "~?" "~<hi ~:@_ ho ~:>" '(nil))
*** - Non-existent directive
Current point in control string:
  ~<hi ~:@_ ho ~:>
          |
1. Break> 

- --end script--

Apparently the recursive call to format does not know that it has been
redefined.

I am using (CLISP2 6 NIL 130695) compiled on Linux 1.2.13 with the
patched xp-code.

- -- 
Benjamin Shults                 Email:  bshults@math.utexas.edu
Department of Mathematics       Phone:  (512) 471-7711 ext. 208
University of Texas at Austin   WWW:    http://www.ma.utexas.edu/users/bshults
Austin, TX  78712   USA         FAX:    (512) 471-9038 (attn: Benjamin Shults)
------- End of forwarded message -------