[CM] CMN - straight flag problem in sbcl?

[andersvi at extern.uio.no]

>>>>> "BS" == Bill Sack <bsack23 at gmail.com> writes:

    BS> hello cm people, i'm a long-time cmn user and just started
    BS> using it with sbcl 1.0.1 - is it possible that the patch
    BS> Anders suggested back in 2002 for displaying slanted, straight
    BS> flags doesn't work with sbcl? i ask because i looked at the
    BS> code in cmn2.lisp:

The problem is sbcl's loop which, possibly following the standards?,
doesnt accept a negative step-value.

(loop for a from 1 to 0 by -0.1 collect a)
=> throws an error, whereas

(loop for a downfrom 1 to 0 by 0.1 collect a)
=> (1 0.9 0.79999995 0.6999999 ...)

heres a version which uses #'do instead:

-------------- next part --------------
A non-text attachment was scrubbed...
Name: draw-flags.cl
Type: application/octet-stream
Size: 2596 bytes
Desc: not available
URL: <https://cm-mail.stanford.edu/pipermail/cmdist/attachments/20070321/c7f89766/attachment.obj>
-------------- next part --------------

btw, what does the loop- standard say about this?