Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv9719
Modified Files: medium.lisp Log Message: Fixed missing check for dashes part of line-style in LINE-STYLE-EQUALP. Date: Tue Sep 20 22:35:59 2005 Author: rgoldman
Index: mcclim/medium.lisp diff -u mcclim/medium.lisp:1.54 mcclim/medium.lisp:1.55 --- mcclim/medium.lisp:1.54 Tue Jan 25 00:03:41 2005 +++ mcclim/medium.lisp Tue Sep 20 22:35:59 2005 @@ -585,7 +585,7 @@ (eql (line-style-thickness style1) (line-style-thickness style2)) (eql (line-style-joint-shape style1) (line-style-joint-shape style2)) (eql (line-style-cap-shape style1) (line-style-cap-shape style2)) - (eql (line-style-thickness style1) (line-style-thickness style2)))) + (eql (line-style-dashes style1) (line-style-dashes style2)))) ;;; Misc ops