Possible bug in read-delimited-list

Hi,

Here's a possible bug in read-delimited-list, on LWW 4.3.6:

    CL-USER 1 > (with-input-from-string (s "1 2 3 4 ]")
                  (read-delimited-list #\] s t))
    Error: The variable IO:*DECODED-INPUT* is unbound.
    
Setting recursive-p to nil works:

    CL-USER 2 > (with-input-from-string (s "1 2 3 4 ]")
                  (read-delimited-list #\] s nil))
    (1 2 3 4)

On CMUCL and CLISP, both forms work.

I'm constructing USQL expressions (using its OO syntax) in a macro, so the 
generated input to read-delimited-list looks like 
"[and [= [id] id] [= [arg] param]", where the specific "[arg]" is determined 
by the macro. 

I had imagined recursive-p may be significant in this case, although I did
not read CLHS's specific chapter and verse closely.  ;-)


-- 
Ng Pheng Siong <ngps@netmemetic.com> 

http://firewall.rulemaker.net -+- Firewall Change Management & Version Control
http://sandbox.rulemaker.net/ngps -+- Open Source Python Crypto & SSL