Update of /cvsroot/sbcl/sbcl-page
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15432
Modified Files:
news-items.lisp
Log Message:
Fix for special variables at the beginning of a line in NEWS
Index: news-items.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl-page/news-items.lisp,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- news-items.lisp 1 Sep 2004 13:10:25 -0000 1.1.1.1
+++ news-items.lisp 2 Sep 2004 00:58:19 -0000 1.2
@@ -22,7 +22,9 @@
(setf line (regex-replace-all "^(?i)changes in sbcl-([0-9a-zA-Z.]+) relative.*$"
line
"(define-news \"\\1\"")))
- (when (scan "^(?i)\\s*(\\*+)\\s*\\S.+$" line)
+ (when (and
+ (scan "^\\s*(\\*+)\\s*\\S.+$" line)
+ (not (scan "^\\s*\\*[-a-zA-Z0-9]+\\*.*$" line)))
(when need-close-string
(write-string "\"" news-o))
(let ((c (length
|