diff --git a/CHANGELOG b/CHANGELOG index 788f563..76ad68a 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -1,3 +1,12 @@ +Version 2.0.2 +2009-09-17 +Fixed typo in chartest.lisp (caught by Peter Seibel) +Appease CCL (thanks to Hans Hübner) + +Version 2.0.1 +2008-09-02 +Fixed faulty declaration (caught by Brent Fulgham) + Version 2.0.0 2008-07-24 Added named properties (\p{foo}) diff --git a/api.lisp b/api.lisp index b0aba9a..3de391a 100644 --- a/api.lisp +++ b/api.lisp @@ -1,9 +1,9 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/api.lisp,v 1.84 2008/07/06 18:12:04 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/api.lisp,v 1.85 2009/09/17 19:17:30 edi Exp $ ;;; The external API for creating and using scanners. -;;; Copyright (c) 2002-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2002-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions diff --git a/charmap.lisp b/charmap.lisp index b5f4085..844594a 100644 --- a/charmap.lisp +++ b/charmap.lisp @@ -1,9 +1,9 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/charmap.lisp,v 1.18 2008/07/22 23:54:59 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/charmap.lisp,v 1.19 2009/09/17 19:17:30 edi Exp $ ;;; An optimized representation of sets of characters. -;;; Copyright (c) 2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2008-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions diff --git a/charset.lisp b/charset.lisp index f852071..4343291 100755 --- a/charset.lisp +++ b/charset.lisp @@ -1,10 +1,10 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/charset.lisp,v 1.9 2008/07/23 00:47:58 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/charset.lisp,v 1.10 2009/09/17 19:17:30 edi Exp $ ;;; A specialized set implementation for characters by Nikodemus Siivola. ;;; Copyright (c) 2008, Nikodemus Siivola. All rights reserved. -;;; Copyright (c) 2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2008-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions diff --git a/chartest.lisp b/chartest.lisp index 9455520..b302c1f 100644 --- a/chartest.lisp +++ b/chartest.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/chartest.lisp,v 1.3 2008/07/23 00:47:58 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/chartest.lisp,v 1.5 2009/09/17 19:17:30 edi Exp $ -;;; Copyright (c) 2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2008-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -88,7 +88,7 @@ which contains either the set or its complement." (not (in-charset-p char charset))))))) ((:hash-table :hash-table*) (let ((hash-table (create-hash-table-from-test-function test-function start end))) - (cond ((or (eq kind :charset) + (cond ((or (eq kind :hash-table) (<= (hash-table-count hash-table) (ceiling (- end start) 2))) (lambda (char) (gethash char hash-table))) diff --git a/cl-ppcre-unicode.asd b/cl-ppcre-unicode.asd index ff9d898..0fcadc4 100644 --- a/cl-ppcre-unicode.asd +++ b/cl-ppcre-unicode.asd @@ -1,9 +1,9 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre-unicode.asd,v 1.14 2008/07/22 14:19:44 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre-unicode.asd,v 1.15 2009/09/17 19:17:30 edi Exp $ ;;; This ASDF system definition was kindly provided by Marco Baringer. -;;; Copyright (c) 2002-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2002-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions diff --git a/cl-ppcre-unicode/packages.lisp b/cl-ppcre-unicode/packages.lisp index 22b797c..6c9bb7b 100644 --- a/cl-ppcre-unicode/packages.lisp +++ b/cl-ppcre-unicode/packages.lisp @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre-unicode/packages.lisp,v 1.2 2008/07/22 13:58:13 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre-unicode/packages.lisp,v 1.3 2009/09/17 19:17:34 edi Exp $ -;;; Copyright (c) 2002-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2002-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions diff --git a/cl-ppcre.asd b/cl-ppcre.asd index 0b4cb17..0e1e688 100644 --- a/cl-ppcre.asd +++ b/cl-ppcre.asd @@ -1,9 +1,9 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre.asd,v 1.45 2008/07/23 02:14:06 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre.asd,v 1.48 2009/09/17 19:17:30 edi Exp $ ;;; This ASDF system definition was kindly provided by Marco Baringer. -;;; Copyright (c) 2002-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2002-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -37,7 +37,7 @@ (in-package :cl-ppcre-asd) (defsystem :cl-ppcre - :version "2.0.0" + :version "2.0.2" :serial t :components ((:file "packages") (:file "specials") diff --git a/closures.lisp b/closures.lisp index 73d8976..a275078 100644 --- a/closures.lisp +++ b/closures.lisp @@ -1,10 +1,10 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/closures.lisp,v 1.44 2008/07/22 22:38:05 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/closures.lisp,v 1.45 2009/09/17 19:17:30 edi Exp $ ;;; Here we create the closures which together build the final ;;; scanner. -;;; Copyright (c) 2002-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2002-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions diff --git a/convert.lisp b/convert.lisp index 695e05c..3fc967d 100644 --- a/convert.lisp +++ b/convert.lisp @@ -1,11 +1,11 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/convert.lisp,v 1.54 2008/07/23 02:14:06 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/convert.lisp,v 1.57 2009/09/17 19:17:31 edi Exp $ ;;; Here the parse tree is converted into its internal representation ;;; using REGEX objects. At the same time some optimizations are ;;; already applied. -;;; Copyright (c) 2002-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2002-2009, Dr. Edmund Weitz. All rights reserved. ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions @@ -184,7 +184,7 @@ The arguments to this function correspond to the REPETITION slots of the same name." (declare #.*standard-optimize-settings*) (declare (fixnum minimum) - ((or fixnum null) maximum)) + (type (or fixnum null) maximum)) ;; note the usage of COPY-REGEX here; we can't use the same REGEX ;; object in both REPETITIONS because they will have different ;; offsets @@ -325,7 +325,7 @@ it. Will also (:documentation "Helper function for CONVERT-AUX which converts parse trees which are conses and dispatches on TOKEN which is the first element of the parse tree.") - (:method (token (parse-tree t) &key) + (:method ((token t) parse-tree &key) (signal-syntax-error "Unknown token ~A in parse-tree." token))) (defmethod convert-compound-parse-tree ((token (eql :sequence)) parse-tree &key) diff --git a/doc/index.html b/doc/index.html index fbe47f6..5108afa 100644 --- a/doc/index.html +++ b/doc/index.html @@ -151,7 +151,7 @@ href="http://weitz.de/regex-coach/">The Regex Coach. CL-PPCRE together with this documentation can be downloaded from http://weitz.de/files/cl-ppcre.tar.gz. The -current version is 2.0.0. +current version is 2.0.2.
CL-PPCRE comes with a system definition for ASDF and you compile and @@ -2208,7 +2208,7 @@ me her PowerBook to test early versions of CL-PPCRE with MCL and OpenMCL.
-$Header: /usr/local/cvsrep/cl-ppcre/doc/index.html,v 1.197 2008/07/23 23:45:18 edi Exp $ +$Header: /usr/local/cvsrep/cl-ppcre/doc/index.html,v 1.199 2009/09/17 19:13:00 edi Exp $