diff --git a/ChangeLog.n b/ChangeLog.n index 5604e5cfd64a316af179ece7e873265f3c24287e..773d2566bda401fb935d4f9884b040a166538326 100644 --- a/ChangeLog.n +++ b/ChangeLog.n @@ -3,6 +3,11 @@ don't forget to change the version in utils/packages.lisp if you do anything user visible. ******************************************************************************* +2009-09-10 Andreas Fuchs <afuchs@franz.com> + + * tk/font.lisp: Fix (obvious, in retrospect) printer error in warning about missing + charsets. + 2009-09-09 Andreas Fuchs <afuchs@franz.com> * tk/xm-defs.lisp: Add XmOUTPUT_ALL constant diff --git a/tk/font.lisp b/tk/font.lisp index 9584acda35af2564ce08715e3151f590f76778f4..4f5dafbd4683c46817f5d1d2aaa1614b1ecf87e9 100644 --- a/tk/font.lisp +++ b/tk/font.lisp @@ -189,7 +189,7 @@ (created-for :initarg :created-for :accessor charsets-missing-from-fontset-created)) (:report (lambda (c stream) (format stream - "Couldn't find usable fonts for char sets~:{ ~A,~}" + "Couldn't find usable fonts for char set ~A" (charsets-missing-from-fontset-charsets c))))) (defmethod initialize-instance :after ((fs font-set) &key