hello cm people,<br><br>i&#39;m a long-time cmn user and just started using it with sbcl 1.0.1 - is it possible that the patch Anders suggested back in 2002 for displaying slanted, straight flags doesn&#39;t work with sbcl? i ask because i looked at the code in 
cmn2.lisp:<br><br><span>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ;; this version from AV 7-Oct-02<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (rlineto score *straight-flag-dx* (if up-stem (- *straight-flag-dy*) *straight-flag-dy*))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (rlineto score 0.0 *beam-width*)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score bx0 (+ y *beam-width*))
<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; <br>;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score (+ bx0 .3) y)<br>;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score (+ bx0 .3) (+ y .1))<br>;&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score bx0 (+ y .1))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (lineto score bx0 y)<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; (fill-in score))
<br>&nbsp;&nbsp;&nbsp; #+(or gcl sbcl)&nbsp;&nbsp;&nbsp; (do ((i 0 (1+ i))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; (y by0 (+ y incr)))<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ((&gt;= i nflags))<br>etc.<br><br>... contains that conditional stuff about gcl and sbcl<br><br>anyway, this little example:<br>
<br>(in-package :cmn)<br>(setf *straight-flag-dy* .2)<br>(cmn (curvy-flags nil)(output-file &quot;flag-test.eps&quot;)<br>(c5 e)<br>(rest e)<br>(c4 e)<br>(rest e))<br><br>shows flags that do not slant, but rather are displaced on the stem by a small amount. 
<br><br>i&#39;ll comment out the sbcl stuff on my local copy and recompile just to see what happens.<br><br>all best,<br>bill sack<br><br></span>