I suggest keeping it as close to the original code as possible:
defclass formatting-stream
(trivial-gray-streams:fundamental-character-input-stream)
\\
understream
:initarg \\ :understream
:reader \\ understream
width
:initarg \\ :width
:initform \\ error "missing :width argument to formatting-stream
creation"
:reader width
column
:initform \\ 0
:accessor column
word-wrap-p
:initform \\ t
:accessor \\ word-wrap-p
word-buffer
:initform \\ make-array 1000
:element-type \\ 'character
:adjustable \\ t
:fill-pointer \\ 0
:reader \\ word-buffer
Sincerely,
AmkG
On Sun, May 12, 2013 at 9:03 AM, David A. Wheeler <dwhee...@dwheeler.com>
wrote:
>
> I took this code:
> http://paste.lisp.org/display/137116
>
> and sweetened it into:
> http://paste.lisp.org/display/137111
>
> Any suggestions on how to make it even better, especially around the
defclass formatting-stream? Per comp.lang.lisp, "This forms defines a
class formatting-stream inherited from
trivial-gray-streams:fundamental-character-input-stream and having 5 slots:
understream, width, column, word-wrap-p, word-buffer. The sweet-expression
variant reflects this not very clearly." I'll take a crack at it later,
but suggestions from others welcome.
>
> --- David A. Wheeler
>
>
>
>
------------------------------------------------------------------------------
> Learn Graph Databases - Download FREE O'Reilly Book
> "Graph Databases" is the definitive new guide to graph databases and
> their applications. This 200-page book is written by three acclaimed
> leaders in the field. The early access version is available now.
> Download your free book today! http://p.sf.net/sfu/neotech_d2d_may
> _______________________________________________
> Readable-discuss mailing list
> Readable-discuss@lists.sourceforge.net
> https://lists.sourceforge.net/lists/listinfo/readable-discuss
------------------------------------------------------------------------------
Learn Graph Databases - Download FREE O'Reilly Book
"Graph Databases" is the definitive new guide to graph databases and
their applications. This 200-page book is written by three acclaimed
leaders in the field. The early access version is available now.
Download your free book today! http://p.sf.net/sfu/neotech_d2d_may
_______________________________________________
Readable-discuss mailing list
Readable-discuss@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/readable-discuss
