*READ-SUPPRESS* doesn't do a job good enough

[Samium G. <_de...@fe...>]

Good day,

it appears as if CLisp's implementation of *READ-SUPPRESS* behavior
is suboptimal:

deepfire@auriga:~$ LC_ALL=C clisp -x '(read-from-string "#+foo(#+foo:foo t) t")'
        i
. . . . I i i i i     ooooo    o        ooooooo   ooooo   ooooo
I I I I I I I I I    8     8   8           8     8     o  8    8
I I  \ `+' /  I I    8         8           8     8        8    8
I  \  `-+-'  /  I    8         8           8      ooooo   8oooo
 \  `-__|__-'  /     8         8           8           8  8
  `--___|___--'      8     o   8           8     o     8  8
        |             ooooo    8oooooo  ooo8ooo   ooooo   8
--------+--------

Welcome to GNU CLISP 2.48 (2009-07-28) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2009

Type :h and hit Enter for context help.

*** - COMMON-LISP:READ from #<INPUT STRING-INPUT-STREAM>: there is no package with name "FOO"

Bye.

...

Admittedly, it's whatever I've got in debian sid, and still it's pretty
old, so I apologise in advance if this is already fixed..

For the record, SBCL 1.0.44 suffers the same (bug reported), but
ECL 10.7.1 and CCL 1.4-r13119 handle it just fine.


-- 
regards,
  Samium Gromoff
--
"Actually I made up the term 'object-oriented', and I can tell you I
did not have C++ in mind." - Alan Kay (OOPSLA 1997 Keynote)