Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv12716 Modified Files: bordered-output.lisp Log Message: Added some valid default values for line styles in borders. --- /project/mcclim/cvsroot/mcclim/bordered-output.lisp 2007/02/05 03:16:55 1.15 +++ /project/mcclim/cvsroot/mcclim/bordered-output.lisp 2007/03/12 17:36:52 1.16 @@ -175,9 +175,9 @@ `(or line-style (merge-line-styles (make-line-style - :unit line-unit - :thickness line-thickness - :cap-shape line-cap-shape + :unit (or line-unit :point) + :thickness (or line-thickness 1) + :cap-shape (or line-cap-shape :butt) :dashes line-dashes) (medium-line-style stream))))