September 2009 - bknr-cvs@common-lisp.net

[bknr-cvs] edi changed tags/thirdparty/cl-fad-0.6.3/
by BKNR Commits 30 Sep '09

30 Sep '09

Revision: 4456 Author: edi URL: http://bknr.net/trac/changeset/4456 Tag cl-fad 0.6.3 A tags/thirdparty/cl-fad-0.6.3/

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-fad/
by BKNR Commits 30 Sep '09

30 Sep '09

Revision: 4455 Author: edi URL: http://bknr.net/trac/changeset/4455 Update to 0.6.3 U trunk/thirdparty/cl-fad/CHANGELOG U trunk/thirdparty/cl-fad/cl-fad.asd U trunk/thirdparty/cl-fad/corman.lisp U trunk/thirdparty/cl-fad/doc/index.html U trunk/thirdparty/cl-fad/fad.lisp U trunk/thirdparty/cl-fad/load.lisp U trunk/thirdparty/cl-fad/openmcl.lisp U trunk/thirdparty/cl-fad/packages.lisp U trunk/thirdparty/cl-fad/test.lisp Modified: trunk/thirdparty/cl-fad/CHANGELOG =================================================================== --- trunk/thirdparty/cl-fad/CHANGELOG 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/CHANGELOG 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,3 +1,7 @@ +Version 0.6.3 +2009-09-30 +Removed dependency on :SB-EXECUTABLE (thanks to Attila Lendvai and Tobias Rittweiler) + Version 0.6.2 2008-03-12 Never version of OpenMCL have %RMDIR (thanks to Dmitri Hrapof) Modified: trunk/thirdparty/cl-fad/cl-fad.asd =================================================================== --- trunk/thirdparty/cl-fad/cl-fad.asd 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/cl-fad.asd 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/cl-fad.asd,v 1.19 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/cl-fad.asd,v 1.21 2009/09/30 14:23:09 edi Exp $ -;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-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 @@ -28,13 +28,12 @@ ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #+:allegro (cl:require :osi) -#+:sbcl (cl:require :sb-executable) -#+:sbcl (cl:require :sb-posix) (asdf:defsystem #:cl-fad - :version "0.6.2" - :serial t - :components ((:file "packages") - #+:cormanlisp (:file "corman") - #+:openmcl (:file "openmcl") - (:file "fad"))) + :version "0.6.3" + :serial t + :components ((:file "packages") + #+:cormanlisp (:file "corman") + #+:openmcl (:file "openmcl") + (:file "fad")) + :depends-on (#+sbcl :sb-posix)) Modified: trunk/thirdparty/cl-fad/corman.lisp =================================================================== --- trunk/thirdparty/cl-fad/corman.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/corman.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/corman.lisp,v 1.4 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/corman.lisp,v 1.5 2009/09/30 14:23:09 edi Exp $ -;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-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 Modified: trunk/thirdparty/cl-fad/doc/index.html =================================================================== --- trunk/thirdparty/cl-fad/doc/index.html 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/doc/index.html 2009-09-30 14:33:59 UTC (rev 4455) @@ -73,7 +73,7 @@ CL-FAD together with this documentation can be downloaded from <a href="http://weitz.de/files/cl-fad.tar.gz">http://weitz.de/files/cl-fad.tar.gz</a>. The -current version is 0.6.2. +current version is 0.6.3. CL-FAD comes with simple system definitions for <a href="http://www.cliki.net/mk-defsystem">MK:DEFSYSTEM</a> and <a @@ -235,7 +235,7 @@ patches for OpenMCL, ECL, ABCL, MCL, and Scieneer CL. -$Header: /usr/local/cvsrep/cl-fad/doc/index.html,v 1.32 2008/03/12 00:10:45 edi Exp $ +$Header: /usr/local/cvsrep/cl-fad/doc/index.html,v 1.33 2009/09/30 14:23:12 edi Exp $ <a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a> </body> Modified: trunk/thirdparty/cl-fad/fad.lisp =================================================================== --- trunk/thirdparty/cl-fad/fad.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/fad.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,8 +1,8 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-FAD; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/fad.lisp,v 1.33 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/fad.lisp,v 1.35 2009/09/30 14:23:10 edi Exp $ ;;; Copyright (c) 2004, Peter Seibel. All rights reserved. -;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-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 @@ -205,9 +205,8 @@ (error "IF-DOES-NOT-EXIST must be one of :ERROR or :IGNORE.")))) (values))) -#-:sbcl (defvar *stream-buffer-size* 8192) -#-:sbcl + (defun copy-stream (from to &optional (checkp t)) "Copies into TO \(a stream) from FROM \(also a stream) until the end of FROM is reached, in blocks of *stream-buffer-size*. The streams @@ -219,22 +218,13 @@ (let ((buf (make-array *stream-buffer-size* :element-type (stream-element-type from)))) (loop - (let ((pos #-(or :clisp :cmu) (read-sequence buf from) - #+:clisp (ext:read-byte-sequence buf from :no-hang nil) - #+:cmu (sys:read-n-bytes from buf 0 *stream-buffer-size* nil))) - (when (zerop pos) (return)) - (write-sequence buf to :end pos)))) + (let ((pos #-(or :clisp :cmu) (read-sequence buf from) + #+:clisp (ext:read-byte-sequence buf from :no-hang nil) + #+:cmu (sys:read-n-bytes from buf 0 *stream-buffer-size* nil))) + (when (zerop pos) (return)) + (write-sequence buf to :end pos)))) (values)) -#+:sbcl -(declaim (inline copy-stream)) -#+:sbcl -(defun copy-stream (from to) - "Copies into TO \(a stream) from FROM \(also a stream) until the end -of FROM is reached. The streams should have the same element type." - (sb-executable:copy-stream from to) - (values)) - (defun copy-file (from to &key overwrite) "Copies the file designated by the non-wild pathname designator FROM to the file designated by the non-wild pathname designator TO. If Modified: trunk/thirdparty/cl-fad/load.lisp =================================================================== --- trunk/thirdparty/cl-fad/load.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/load.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/load.lisp,v 1.8 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/load.lisp,v 1.9 2009/09/30 14:23:10 edi Exp $ -;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-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 Modified: trunk/thirdparty/cl-fad/openmcl.lisp =================================================================== --- trunk/thirdparty/cl-fad/openmcl.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/openmcl.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CCL; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/openmcl.lisp,v 1.5 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/openmcl.lisp,v 1.6 2009/09/30 14:23:10 edi Exp $ -;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-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 Modified: trunk/thirdparty/cl-fad/packages.lisp =================================================================== --- trunk/thirdparty/cl-fad/packages.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/packages.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/packages.lisp,v 1.11 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/packages.lisp,v 1.12 2009/09/30 14:23:10 edi Exp $ -;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-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 Modified: trunk/thirdparty/cl-fad/test.lisp =================================================================== --- trunk/thirdparty/cl-fad/test.lisp 2009-09-17 19:30:58 UTC (rev 4454) +++ trunk/thirdparty/cl-fad/test.lisp 2009-09-30 14:33:59 UTC (rev 4455) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-FAD-TEST; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-fad/test.lisp,v 1.11 2008/03/12 00:10:43 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-fad/test.lisp,v 1.12 2009/09/30 14:23:10 edi Exp $ -;;; Copyright (c) 2004-2008, Dr. Edmund Weitz. All rights reserved. +;;; Copyright (c) 2004-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

1 0

[bknr-cvs] edi changed tags/thirdparty/cl-ppcre-2.0.2/
by BKNR Commits 17 Sep '09

17 Sep '09

Revision: 4454 Author: edi URL: http://bknr.net/trac/changeset/4454 Tag cl-ppcre 2.0.2 A tags/thirdparty/cl-ppcre-2.0.2/

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-ppcre/
by BKNR Commits 17 Sep '09

17 Sep '09

Revision: 4453 Author: edi URL: http://bknr.net/trac/changeset/4453 Update to 2.0.2 U trunk/thirdparty/cl-ppcre/CHANGELOG U trunk/thirdparty/cl-ppcre/api.lisp U trunk/thirdparty/cl-ppcre/charmap.lisp U trunk/thirdparty/cl-ppcre/charset.lisp U trunk/thirdparty/cl-ppcre/chartest.lisp U trunk/thirdparty/cl-ppcre/cl-ppcre-unicode/packages.lisp U trunk/thirdparty/cl-ppcre/cl-ppcre-unicode.asd U trunk/thirdparty/cl-ppcre/cl-ppcre.asd U trunk/thirdparty/cl-ppcre/closures.lisp U trunk/thirdparty/cl-ppcre/convert.lisp U trunk/thirdparty/cl-ppcre/doc/index.html U trunk/thirdparty/cl-ppcre/errors.lisp U trunk/thirdparty/cl-ppcre/lexer.lisp U trunk/thirdparty/cl-ppcre/optimize.lisp U trunk/thirdparty/cl-ppcre/packages.lisp U trunk/thirdparty/cl-ppcre/parser.lisp U trunk/thirdparty/cl-ppcre/regex-class-util.lisp U trunk/thirdparty/cl-ppcre/regex-class.lisp U trunk/thirdparty/cl-ppcre/repetition-closures.lisp U trunk/thirdparty/cl-ppcre/scanner.lisp U trunk/thirdparty/cl-ppcre/specials.lisp U trunk/thirdparty/cl-ppcre/test/packages.lisp U trunk/thirdparty/cl-ppcre/test/perl-tests.lisp U trunk/thirdparty/cl-ppcre/test/tests.lisp U trunk/thirdparty/cl-ppcre/util.lisp Modified: trunk/thirdparty/cl-ppcre/CHANGELOG =================================================================== --- trunk/thirdparty/cl-ppcre/CHANGELOG 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/CHANGELOG 2009-09-17 19:26:54 UTC (rev 4453) @@ -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}) Modified: trunk/thirdparty/cl-ppcre/api.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/api.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/api.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -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 Modified: trunk/thirdparty/cl-ppcre/charmap.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/charmap.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/charmap.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -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 Modified: trunk/thirdparty/cl-ppcre/charset.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/charset.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/charset.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -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 Modified: trunk/thirdparty/cl-ppcre/chartest.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/chartest.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/chartest.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -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 @@ (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))) Modified: trunk/thirdparty/cl-ppcre/cl-ppcre-unicode/packages.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/cl-ppcre-unicode/packages.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/cl-ppcre-unicode/packages.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -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 Modified: trunk/thirdparty/cl-ppcre/cl-ppcre-unicode.asd =================================================================== --- trunk/thirdparty/cl-ppcre/cl-ppcre-unicode.asd 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/cl-ppcre-unicode.asd 2009-09-17 19:26:54 UTC (rev 4453) @@ -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 Modified: trunk/thirdparty/cl-ppcre/cl-ppcre.asd =================================================================== --- trunk/thirdparty/cl-ppcre/cl-ppcre.asd 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/cl-ppcre.asd 2009-09-17 19:26:54 UTC (rev 4453) @@ -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") Modified: trunk/thirdparty/cl-ppcre/closures.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/closures.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/closures.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -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 Modified: trunk/thirdparty/cl-ppcre/convert.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/convert.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/convert.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -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 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 @@ (: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) Modified: trunk/thirdparty/cl-ppcre/doc/index.html =================================================================== --- trunk/thirdparty/cl-ppcre/doc/index.html 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/doc/index.html 2009-09-17 19:26:54 UTC (rev 4453) @@ -151,7 +151,7 @@ CL-PPCRE together with this documentation can be downloaded from <a href="http://weitz.de/files/cl-ppcre.tar.gz">http://weitz.de/files/cl-ppcre.tar.gz</a>. The -current version is 2.0.0. +current version is 2.0.2. CL-PPCRE comes with a system definition for <a href="http://www.cliki.net/asdf">ASDF</a> and you compile and @@ -2208,7 +2208,7 @@ 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 $ <a href="http://weitz.de/index.html">BACK TO MY HOMEPAGE</a> </body> Modified: trunk/thirdparty/cl-ppcre/errors.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/errors.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/errors.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/errors.lisp,v 1.21 2008/07/06 18:12:04 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/errors.lisp,v 1.22 2009/09/17 19:17:31 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 Modified: trunk/thirdparty/cl-ppcre/lexer.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/lexer.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/lexer.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/lexer.lisp,v 1.34 2008/07/06 22:36:30 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/lexer.lisp,v 1.35 2009/09/17 19:17:31 edi Exp $ ;;; The lexer's responsibility is to convert the regex string into a ;;; sequence of tokens which are in turn consumed by the parser. @@ -9,7 +9,7 @@ ;;; has opened so far. (The latter is necessary for interpreting ;;; strings like "\\10" correctly.) -;;; 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 Modified: trunk/thirdparty/cl-ppcre/optimize.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/optimize.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/optimize.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,10 +1,10 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/optimize.lisp,v 1.35 2008/07/06 18:12:04 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/optimize.lisp,v 1.36 2009/09/17 19:17:31 edi Exp $ ;;; This file contains optimizations which can be applied to converted ;;; parse trees. -;;; 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 Modified: trunk/thirdparty/cl-ppcre/packages.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/packages.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/packages.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/packages.lisp,v 1.38 2008/07/22 23:54:59 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/packages.lisp,v 1.39 2009/09/17 19:17:31 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 Modified: trunk/thirdparty/cl-ppcre/parser.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/parser.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/parser.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/parser.lisp,v 1.30 2008/07/06 18:12:05 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/parser.lisp,v 1.31 2009/09/17 19:17:31 edi Exp $ ;;; The parser will - with the help of the lexer - parse a regex ;;; string and convert it into a "parse tree" (see docs for details @@ -7,7 +7,7 @@ ;;; return illegal parse trees. It is assumed that the conversion ;;; process later on will track them down. -;;; 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 Modified: trunk/thirdparty/cl-ppcre/regex-class-util.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/regex-class-util.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/regex-class-util.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,9 +1,9 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/regex-class-util.lisp,v 1.8 2008/07/22 22:38:05 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/regex-class-util.lisp,v 1.9 2009/09/17 19:17:31 edi Exp $ ;;; This file contains some utility methods for REGEX objects. -;;; 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 Modified: trunk/thirdparty/cl-ppcre/regex-class.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/regex-class.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/regex-class.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,10 +1,10 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/regex-class.lisp,v 1.42 2008/07/22 22:38:05 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/regex-class.lisp,v 1.43 2009/09/17 19:17:31 edi Exp $ ;;; This file defines the REGEX class. REGEX objects are used to ;;; represent the (transformed) parse trees internally -;;; 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 Modified: trunk/thirdparty/cl-ppcre/repetition-closures.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/repetition-closures.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/repetition-closures.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/repetition-closures.lisp,v 1.33 2008/07/06 18:12:05 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/repetition-closures.lisp,v 1.34 2009/09/17 19:17:31 edi Exp $ ;;; This is actually a part of closures.lisp which we put into a ;;; separate file because it is rather complex. We only deal with @@ -7,7 +7,7 @@ ;;; rather crazy micro-optimizations which were introduced to be as ;;; competitive with Perl as possible in tight loops. -;;; 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 Modified: trunk/thirdparty/cl-ppcre/scanner.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/scanner.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/scanner.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,10 +1,10 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/scanner.lisp,v 1.35 2008/07/23 22:25:15 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/scanner.lisp,v 1.36 2009/09/17 19:17:31 edi Exp $ ;;; Here the scanner for the actual regex as well as utility scanners ;;; for the constant start and end strings are created. -;;; 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 Modified: trunk/thirdparty/cl-ppcre/specials.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/specials.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/specials.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,9 +1,9 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/specials.lisp,v 1.41 2008/07/23 22:25:15 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/specials.lisp,v 1.42 2009/09/17 19:17:32 edi Exp $ ;;; globally declared special variables -;;; 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 Modified: trunk/thirdparty/cl-ppcre/test/packages.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/test/packages.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/test/packages.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,7 +1,7 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/test/packages.lisp,v 1.3 2008/07/22 12:58:52 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/test/packages.lisp,v 1.4 2009/09/17 19:17:36 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 Modified: trunk/thirdparty/cl-ppcre/test/perl-tests.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/test/perl-tests.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/test/perl-tests.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,12 +1,12 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE-TEST; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/test/perl-tests.lisp,v 1.7 2008/07/22 23:02:04 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/test/perl-tests.lisp,v 1.8 2009/09/17 19:17:36 edi Exp $ ;;; The tests in this file test CL-PPCRE against testdata generated by ;;; the Perl program `perltest.pl' from the input file `testinput' in ;;; order to check compatibility with Perl and correctness of the ;;; regex engine. -;;; 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 Modified: trunk/thirdparty/cl-ppcre/test/tests.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/test/tests.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/test/tests.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,12 +1,12 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE-TEST; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/test/tests.lisp,v 1.12 2008/07/23 00:48:00 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/test/tests.lisp,v 1.13 2009/09/17 19:17:36 edi Exp $ ;;; The tests in this file test CL-PPCRE against testdata generated by ;;; the Perl program `perltest.pl' from the input file `testinput' in ;;; order to check compatibility with Perl and correctness of the ;;; regex engine. -;;; 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 Modified: trunk/thirdparty/cl-ppcre/util.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/util.lisp 2009-09-17 07:08:19 UTC (rev 4452) +++ trunk/thirdparty/cl-ppcre/util.lisp 2009-09-17 19:26:54 UTC (rev 4453) @@ -1,10 +1,10 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/util.lisp,v 1.46 2008/07/06 18:12:05 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/util.lisp,v 1.47 2009/09/17 19:17:32 edi Exp $ ;;; Utility functions and constants dealing with the character sets we ;;; use to encode character classes -;;; 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

1 0

[bknr-cvs] hans changed trunk/thirdparty/usocket/
by BKNR Commits 17 Sep '09

17 Sep '09

Revision: 4452 Author: hans URL: http://bknr.net/trac/changeset/4452 adapt to what i committed upstream U trunk/thirdparty/usocket/backend/openmcl.lisp U trunk/thirdparty/usocket/condition.lisp Modified: trunk/thirdparty/usocket/backend/openmcl.lisp =================================================================== --- trunk/thirdparty/usocket/backend/openmcl.lisp 2009-09-17 07:01:40 UTC (rev 4451) +++ trunk/thirdparty/usocket/backend/openmcl.lisp 2009-09-17 07:08:19 UTC (rev 4452) @@ -64,7 +64,7 @@ (ccl:input-timeout (error 'timeout-error :socket socket)) (ccl:communication-deadline-expired - (error 'deadline-error :socket socket)) + (error 'deadline-timeout-error :socket socket)) (ccl::socket-creation-error #| ugh! |# (raise-error-from-id (ccl::socket-creation-error-identifier condition) socket condition)))) Modified: trunk/thirdparty/usocket/condition.lisp =================================================================== --- trunk/thirdparty/usocket/condition.lisp 2009-09-17 07:01:40 UTC (rev 4451) +++ trunk/thirdparty/usocket/condition.lisp 2009-09-17 07:08:19 UTC (rev 4452) @@ -111,7 +111,7 @@ host-unreachable-error shutdown-error timeout-error - #+openmcl deadline-error + deadline-timeout-error invalid-socket-error invalid-socket-stream-error) (socket-error))

1 0

[bknr-cvs] hans changed trunk/thirdparty/usocket/
by BKNR Commits 17 Sep '09

17 Sep '09

Revision: 4451 Author: hans URL: http://bknr.net/trac/changeset/4451 Update from upstream r498 Fix condition instanciation in openmcl port U trunk/thirdparty/usocket/backend/openmcl.lisp U trunk/thirdparty/usocket/backend/sbcl.lisp U trunk/thirdparty/usocket/condition.lisp U trunk/thirdparty/usocket/usocket.lisp Modified: trunk/thirdparty/usocket/backend/openmcl.lisp =================================================================== --- trunk/thirdparty/usocket/backend/openmcl.lisp 2009-09-02 08:24:18 UTC (rev 4450) +++ trunk/thirdparty/usocket/backend/openmcl.lisp 2009-09-17 07:01:40 UTC (rev 4451) @@ -62,9 +62,9 @@ (raise-error-from-id (openmcl-socket:socket-error-identifier condition) socket condition)) (ccl:input-timeout - (error 'timeout-error :socket socket :real-error condition)) + (error 'timeout-error :socket socket)) (ccl:communication-deadline-expired - (error 'deadline-error :socket socket :real-error condition)) + (error 'deadline-error :socket socket)) (ccl::socket-creation-error #| ugh! |# (raise-error-from-id (ccl::socket-creation-error-identifier condition) socket condition)))) Modified: trunk/thirdparty/usocket/backend/sbcl.lisp =================================================================== --- trunk/thirdparty/usocket/backend/sbcl.lisp 2009-09-02 08:24:18 UTC (rev 4450) +++ trunk/thirdparty/usocket/backend/sbcl.lisp 2009-09-17 07:01:40 UTC (rev 4451) @@ -68,7 +68,7 @@ (defun fdset-alloc () (ffi:c-inline () () :pointer-void - "cl_alloc_atomic(sizeof(fd_set))" :one-liner t)) + "ecl_alloc_atomic(sizeof(fd_set))" :one-liner t)) (defun fdset-zero (fdset) (ffi:c-inline (fdset) (:pointer-void) :void @@ -96,7 +96,7 @@ (defun get-host-name () (ffi:c-inline () () :object - "{ char *buf = cl_alloc_atomic(257); + "{ char *buf = ecl_alloc_atomic(257); if (gethostname(buf,256) == 0) @(return) = make_simple_base_string(buf); @@ -174,6 +174,8 @@ . socket-type-not-supported-error) (sb-bsd-sockets:network-unreachable-error . network-unreachable-error) (sb-bsd-sockets:operation-timeout-error . timeout-error) + #-ecl + (sb-sys:io-timeout . timeout-error) (sb-bsd-sockets:socket-error . ,#'map-socket-error) ;; Nameservice errors: mapped to unknown-error Modified: trunk/thirdparty/usocket/condition.lisp =================================================================== --- trunk/thirdparty/usocket/condition.lisp 2009-09-02 08:24:18 UTC (rev 4450) +++ trunk/thirdparty/usocket/condition.lisp 2009-09-17 07:01:40 UTC (rev 4451) @@ -111,6 +111,7 @@ host-unreachable-error shutdown-error timeout-error + #+openmcl deadline-error invalid-socket-error invalid-socket-stream-error) (socket-error)) Modified: trunk/thirdparty/usocket/usocket.lisp =================================================================== --- trunk/thirdparty/usocket/usocket.lisp 2009-09-02 08:24:18 UTC (rev 4450) +++ trunk/thirdparty/usocket/usocket.lisp 2009-09-17 07:01:40 UTC (rev 4451) @@ -351,6 +351,13 @@ (push (parse-integer element) new-list)) new-list)) +(defun ip-address-string-p (string) + "Return a true value if the given string could be an IP address." + (every (lambda (char) + (or (digit-char-p char) + (eql char #\.))) + string)) + (defun hbo-to-dotted-quad (integer) "Host-byte-order integer to dotted-quad string conversion utility." (let ((first (ldb (byte 8 24) integer)) @@ -438,7 +445,7 @@ "Translate a host specification (vector quad, dotted quad or domain name) to a vector quad." (etypecase host - (string (let* ((ip (ignore-errors + (string (let* ((ip (when (ip-address-string-p host) (dotted-quad-to-vector-quad host)))) (if (and ip (= 4 (length ip))) ;; valid IP dotted quad? @@ -451,7 +458,7 @@ (defun host-to-hbo (host) (etypecase host - (string (let ((ip (ignore-errors + (string (let ((ip (when (ip-address-string-p host) (dotted-quad-to-vector-quad host)))) (if (and ip (= 4 (length ip))) (host-byte-order ip)

1 0

[bknr-cvs] edi changed trunk/thirdparty/documentation-template/CHANGELOG.txt
by BKNR Commits 02 Sep '09

02 Sep '09

Revision: 4450 Author: edi URL: http://bknr.net/trac/changeset/4450 ... U trunk/thirdparty/documentation-template/CHANGELOG.txt Modified: trunk/thirdparty/documentation-template/CHANGELOG.txt =================================================================== --- trunk/thirdparty/documentation-template/CHANGELOG.txt 2009-09-02 08:23:43 UTC (rev 4449) +++ trunk/thirdparty/documentation-template/CHANGELOG.txt 2009-09-02 08:24:18 UTC (rev 4450) @@ -1,3 +1,5 @@ +Adapt to newer SBCL versions (thanks to Tobias Rittweiler) + Version 0.4.1 2008-05-29 Require SB-INTROSPECT for SBCL

1 0

[bknr-cvs] edi changed trunk/thirdparty/documentation-template/util.lisp
by BKNR Commits 02 Sep '09

02 Sep '09

Revision: 4449 Author: edi URL: http://bknr.net/trac/changeset/4449 Adapt to new SBCL version - Tobias Rittweiler U trunk/thirdparty/documentation-template/util.lisp Modified: trunk/thirdparty/documentation-template/util.lisp =================================================================== --- trunk/thirdparty/documentation-template/util.lisp 2009-08-27 10:08:27 UTC (rev 4448) +++ trunk/thirdparty/documentation-template/util.lisp 2009-09-02 08:23:43 UTC (rev 4449) @@ -29,19 +29,31 @@ (in-package :documentation-template) +(eval-when (:compile-toplevel :load-toplevel :execute) + (defun with-symbol (name package) + "Generate a form suitable for testing with #+." + (if (find-symbol (string name) (string package)) + '(:and) + '(:or)))) + ;;; For the purpose of this file, an "entry" is a list of four or five ;;; symbols - a name, a keyword for the kind of the entry, a lambda ;;; list (for functions and macros), a documentation string, and ;;; optionally a list of specializers -#+(or :sbcl :allegro) +#+:sbcl (defun function-lambda-list (function) "Returns the lambda list of the function designator FUNCTION." - #+:sbcl - (sb-introspect:function-arglist function) - #+:allegro + #+#.(documentation-template::with-symbol 'function-lambda-list :sb-introspect) + (sb-introspect:function-lambda-list function) + #-#.(documentation-template::with-symbol 'function-lambda-list :sb-introspect) + (sb-introspect:function-arglist function)) + +#+allegro +(defun function-lambda-list (function) + "Returns the lambda list of the function designator FUNCTION." (excl:arglist function)) - + (defun symbol-constant-p (symbol) "Returns true if SYMBOL is a constant." #+:lispworks (sys:symbol-constant-p symbol)

1 0