From bknr at bknr.net Thu Oct 8 19:56:54 2009 From: bknr at bknr.net (BKNR Commits) Date: Thu, 08 Oct 2009 21:56:54 +0200 Subject: [bknr-cvs] hans changed trunk/thirdparty/slime/ Message-ID: Revision: 4457 Author: hans URL: http://bknr.net/trac/changeset/4457 update from upstream U trunk/thirdparty/slime/CVS/Entries D trunk/thirdparty/slime/CVS/Template U trunk/thirdparty/slime/ChangeLog U trunk/thirdparty/slime/HACKING U trunk/thirdparty/slime/contrib/CVS/Entries D trunk/thirdparty/slime/contrib/CVS/Template U trunk/thirdparty/slime/contrib/ChangeLog U trunk/thirdparty/slime/contrib/bridge.el U trunk/thirdparty/slime/contrib/inferior-slime.el U trunk/thirdparty/slime/contrib/slime-asdf.el U trunk/thirdparty/slime/contrib/slime-autodoc.el U trunk/thirdparty/slime/contrib/slime-c-p-c.el U trunk/thirdparty/slime/contrib/slime-compiler-notes-tree.el U trunk/thirdparty/slime/contrib/slime-enclosing-context.el U trunk/thirdparty/slime/contrib/slime-fancy.el U trunk/thirdparty/slime/contrib/slime-fontifying-fu.el U trunk/thirdparty/slime/contrib/slime-fuzzy.el A trunk/thirdparty/slime/contrib/slime-indentation-fu.el U trunk/thirdparty/slime/contrib/slime-package-fu.el U trunk/thirdparty/slime/contrib/slime-parse.el U trunk/thirdparty/slime/contrib/slime-presentations.el U trunk/thirdparty/slime/contrib/slime-references.el U trunk/thirdparty/slime/contrib/slime-repl.el A trunk/thirdparty/slime/contrib/slime-sprof.el U trunk/thirdparty/slime/contrib/slime-typeout-frame.el U trunk/thirdparty/slime/contrib/slime-xref-browser.el U trunk/thirdparty/slime/contrib/swank-arglists.lisp U trunk/thirdparty/slime/contrib/swank-fancy-inspector.lisp U trunk/thirdparty/slime/contrib/swank-fuzzy.lisp U trunk/thirdparty/slime/contrib/swank-goo.goo A trunk/thirdparty/slime/contrib/swank-ikarus.ss A trunk/thirdparty/slime/contrib/swank-indentation-fu.lisp U trunk/thirdparty/slime/contrib/swank-jolt.k U trunk/thirdparty/slime/contrib/swank-kawa.scm A trunk/thirdparty/slime/contrib/swank-larceny.scm U trunk/thirdparty/slime/contrib/swank-mit-scheme.scm A trunk/thirdparty/slime/contrib/swank-r6rs.scm U trunk/thirdparty/slime/contrib/swank-sbcl-exts.lisp A trunk/thirdparty/slime/contrib/swank-sprof.lisp A trunk/thirdparty/slime/contrib/swank.rb U trunk/thirdparty/slime/doc/CVS/Entries D trunk/thirdparty/slime/doc/CVS/Template U trunk/thirdparty/slime/doc/Makefile U trunk/thirdparty/slime/doc/slime.texi U trunk/thirdparty/slime/hyperspec.el U trunk/thirdparty/slime/slime-autoloads.el U trunk/thirdparty/slime/slime.el U trunk/thirdparty/slime/swank-abcl.lisp U trunk/thirdparty/slime/swank-allegro.lisp U trunk/thirdparty/slime/swank-backend.lisp A trunk/thirdparty/slime/swank-ccl.lisp U trunk/thirdparty/slime/swank-clisp.lisp U trunk/thirdparty/slime/swank-cmucl.lisp U trunk/thirdparty/slime/swank-corman.lisp U trunk/thirdparty/slime/swank-ecl.lisp U trunk/thirdparty/slime/swank-lispworks.lisp U trunk/thirdparty/slime/swank-loader.lisp U trunk/thirdparty/slime/swank-openmcl.lisp U trunk/thirdparty/slime/swank-sbcl.lisp U trunk/thirdparty/slime/swank-scl.lisp U trunk/thirdparty/slime/swank-source-file-cache.lisp U trunk/thirdparty/slime/swank-source-path-parser.lisp U trunk/thirdparty/slime/swank.asd U trunk/thirdparty/slime/swank.lisp Change set too large, please see URL above From bknr at bknr.net Wed Oct 14 21:45:49 2009 From: bknr at bknr.net (BKNR Commits) Date: Wed, 14 Oct 2009 23:45:49 +0200 Subject: [bknr-cvs] edi changed trunk/thirdparty/hunchentoot/ Message-ID: Revision: 4458 Author: edi URL: http://bknr.net/trac/changeset/4458 Apply LW6 patches from Nico U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/lispworks.lisp Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2009-10-08 19:56:54 UTC (rev 4457) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2009-10-14 21:45:48 UTC (rev 4458) @@ -1,3 +1,5 @@ +Prepare for LispWorks 6 (Nico de Jager) +Fix reading of post parameters (Peter Seibel) Fix STOP by supplying the :READY-ONLY keyword to USOCKET:WAIT-FOR-INPUT Enable SSL key passwords for Lisps other than LW (Vsevolod) Modified: trunk/thirdparty/hunchentoot/lispworks.lisp =================================================================== --- trunk/thirdparty/hunchentoot/lispworks.lisp 2009-10-08 19:56:54 UTC (rev 4457) +++ trunk/thirdparty/hunchentoot/lispworks.lisp 2009-10-14 21:45:48 UTC (rev 4458) @@ -90,14 +90,14 @@ (defun make-socket-stream (socket acceptor) "Returns a stream for the socket SOCKET. The ACCEPTOR argument is used to set the timeouts." - #-:lispworks5 + #-(or :lispworks5 :lispworks6) (when (acceptor-write-timeout acceptor) (parameter-error "You need LispWorks 5 or higher for write timeouts.")) (make-instance 'comm:socket-stream :socket socket :direction :io :read-timeout (acceptor-read-timeout acceptor) - #+:lispworks5 #+:lispworks5 + #+(or :lispworks5 :lispworks6) #+(or :lispworks5 :lispworks6) :write-timeout (acceptor-write-timeout acceptor) :element-type 'octet)) From bknr at bknr.net Wed Oct 14 21:51:47 2009 From: bknr at bknr.net (BKNR Commits) Date: Wed, 14 Oct 2009 23:51:47 +0200 Subject: [bknr-cvs] edi changed trunk/thirdparty/hunchentoot/ Message-ID: Revision: 4459 Author: edi URL: http://bknr.net/trac/changeset/4459 Typos U trunk/thirdparty/hunchentoot/easy-handlers.lisp U trunk/thirdparty/hunchentoot/specials.lisp Modified: trunk/thirdparty/hunchentoot/easy-handlers.lisp =================================================================== --- trunk/thirdparty/hunchentoot/easy-handlers.lisp 2009-10-14 21:45:48 UTC (rev 4458) +++ trunk/thirdparty/hunchentoot/easy-handlers.lisp 2009-10-14 21:51:47 UTC (rev 4459) @@ -184,7 +184,7 @@ ACCEPTOR-NAMES \(which is evaluated) can be a list of symbols which means that the handler will be returned by DISPATCH-EASY-HANDLERS in -acceptor which have one of these names \(see ACCEPTOR-NAME). +acceptors which have one of these names \(see ACCEPTOR-NAME). ACCEPTOR-NAMES can also be the symbol T which means that the handler will be returned by DISPATCH-EASY-HANDLERS in every acceptor. Modified: trunk/thirdparty/hunchentoot/specials.lisp =================================================================== --- trunk/thirdparty/hunchentoot/specials.lisp 2009-10-14 21:45:48 UTC (rev 4458) +++ trunk/thirdparty/hunchentoot/specials.lisp 2009-10-14 21:51:47 UTC (rev 4459) @@ -270,7 +270,7 @@ DEFAULT-DISPATCHER.") (defvar *easy-handler-alist* nil - "An alist of \(URI server-names function) lists defined by + "An alist of \(URI acceptor-names function) lists defined by DEFINE-EASY-HANDLER.") (defvar *http-error-handler* nil From bknr at bknr.net Wed Oct 28 06:28:35 2009 From: bknr at bknr.net (BKNR Commits) Date: Wed, 28 Oct 2009 07:28:35 +0100 Subject: [bknr-cvs] hans changed trunk/thirdparty/hunchentoot/request.lisp Message-ID: Revision: 4460 Author: hans URL: http://bknr.net/trac/changeset/4460 Pass REQUEST from MAYBE-READ-POST-PARAMETERS to RAW-POST-DATA, patch supplied by Desmond O. Chang. U trunk/thirdparty/hunchentoot/request.lisp Modified: trunk/thirdparty/hunchentoot/request.lisp =================================================================== --- trunk/thirdparty/hunchentoot/request.lisp 2009-10-14 21:51:47 UTC (rev 4459) +++ trunk/thirdparty/hunchentoot/request.lisp 2009-10-28 06:28:34 UTC (rev 4460) @@ -313,7 +313,7 @@ (cond ((and (string-equal type "application") (string-equal subtype "x-www-form-urlencoded")) (form-url-encoded-list-to-alist - (split "&" (raw-post-data :external-format +latin-1+)) + (split "&" (raw-post-data :request request :external-format +latin-1+)) external-format)) ((and (string-equal type "multipart") (string-equal subtype "form-data")) From bknr at bknr.net Thu Oct 29 15:00:45 2009 From: bknr at bknr.net (BKNR Commits) Date: Thu, 29 Oct 2009 16:00:45 +0100 Subject: [bknr-cvs] edi changed trunk/thirdparty/cl-ppcre/ Message-ID: Revision: 4461 Author: edi URL: http://bknr.net/trac/changeset/4461 Update to 2.0.3 U trunk/thirdparty/cl-ppcre/CHANGELOG U trunk/thirdparty/cl-ppcre/cl-ppcre.asd U trunk/thirdparty/cl-ppcre/doc/index.html U trunk/thirdparty/cl-ppcre/regex-class.lisp U trunk/thirdparty/cl-ppcre/specials.lisp U trunk/thirdparty/cl-ppcre/util.lisp Modified: trunk/thirdparty/cl-ppcre/CHANGELOG =================================================================== --- trunk/thirdparty/cl-ppcre/CHANGELOG 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/CHANGELOG 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,3 +1,7 @@ +Version 2.0.3 +2009-10-28 +Use LW:SIMPLE-TEXT-STRING throughout for LispWorks + Version 2.0.2 2009-09-17 Fixed typo in chartest.lisp (caught by Peter Seibel) Modified: trunk/thirdparty/cl-ppcre/cl-ppcre.asd =================================================================== --- trunk/thirdparty/cl-ppcre/cl-ppcre.asd 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/cl-ppcre.asd 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre.asd,v 1.48 2009/09/17 19:17:30 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/cl-ppcre.asd,v 1.49 2009/10/28 07:36:15 edi Exp $ ;;; This ASDF system definition was kindly provided by Marco Baringer. @@ -37,7 +37,7 @@ (in-package :cl-ppcre-asd) (defsystem :cl-ppcre - :version "2.0.2" + :version "2.0.3" :serial t :components ((:file "packages") (:file "specials") Modified: trunk/thirdparty/cl-ppcre/doc/index.html =================================================================== --- trunk/thirdparty/cl-ppcre/doc/index.html 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/doc/index.html 2009-10-29 15:00:44 UTC (rev 4461) @@ -151,7 +151,7 @@ CL-PPCRE together with this documentation can be downloaded from http://weitz.de/files/cl-ppcre.tar.gz. The -current version is 2.0.2. +current version is 2.0.3.

CL-PPCRE comes with a system definition for ASDF and you compile and @@ -2208,7 +2208,7 @@ OpenMCL.

-$Header: /usr/local/cvsrep/cl-ppcre/doc/index.html,v 1.199 2009/09/17 19:13:00 edi Exp $ +$Header: /usr/local/cvsrep/cl-ppcre/doc/index.html,v 1.200 2009/10/28 07:36:31 edi Exp $

BACK TO MY HOMEPAGE Modified: trunk/thirdparty/cl-ppcre/regex-class.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/regex-class.lisp 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/regex-class.lisp 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/regex-class.lisp,v 1.43 2009/09/17 19:17:31 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/regex-class.lisp,v 1.44 2009/10/28 07:36:15 edi Exp $ ;;; This file defines the REGEX class. REGEX objects are used to ;;; represent the (transformed) parse trees internally @@ -248,7 +248,12 @@ (declare (ignore init-args)) "Automatically computes the length of a STR after initialization." (let ((str-slot (slot-value str 'str))) - (unless (typep str-slot 'simple-string) - (setf (slot-value str 'str) (coerce str-slot 'simple-string)))) + (unless (typep str-slot + #-:lispworks 'simple-string + #+:lispworks 'lw:simple-text-string) + (setf (slot-value str 'str) + (coerce str-slot + #-:lispworks 'simple-string + #+:lispworks 'lw:simple-text-string)))) (setf (len str) (length (str str)))) Modified: trunk/thirdparty/cl-ppcre/specials.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/specials.lisp 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/specials.lisp 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/specials.lisp,v 1.42 2009/09/17 19:17:32 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/specials.lisp,v 1.43 2009/10/28 07:36:15 edi Exp $ ;;; globally declared special variables @@ -65,6 +65,9 @@ (defvar *string* "" "The string which is currently scanned by SCAN. Will always be coerced to a SIMPLE-STRING.") +#+:lispworks +(declaim (lw:simple-text-string *string*)) +#-:lispworks (declaim (simple-string *string*)) (defvar *start-pos* 0 Modified: trunk/thirdparty/cl-ppcre/util.lisp =================================================================== --- trunk/thirdparty/cl-ppcre/util.lisp 2009-10-28 06:28:34 UTC (rev 4460) +++ trunk/thirdparty/cl-ppcre/util.lisp 2009-10-29 15:00:44 UTC (rev 4461) @@ -1,5 +1,5 @@ ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- -;;; $Header: /usr/local/cvsrep/cl-ppcre/util.lisp,v 1.47 2009/09/17 19:17:32 edi Exp $ +;;; $Header: /usr/local/cvsrep/cl-ppcre/util.lisp,v 1.48 2009/10/28 07:36:15 edi Exp $ ;;; Utility functions and constants dealing with the character sets we ;;; use to encode character classes @@ -137,10 +137,15 @@ "Coerces STRING to a simple STRING unless it already is one." (with-unique-names (=string=) `(let ((,=string= ,string)) - (cond ((simple-string-p ,=string=) + (cond (#+:lispworks + (lw:simple-text-string-p ,=string=) + #-:lispworks + (simple-string-p ,=string=) ,=string=) (t - (coerce ,=string= 'simple-string)))))) + (coerce ,=string= + #+:lispworks 'lw:simple-text-string + #-:lispworks 'simple-string)))))) (declaim (inline nsubseq)) (defun nsubseq (sequence start &optional (end (length sequence))) @@ -171,7 +176,9 @@ (dolist (string string-list) #-:genera (declare (string string)) (incf total-size (length string))) - (let ((result-string (make-sequence 'simple-string total-size)) + (let ((result-string (make-sequence #-:lispworks 'simple-string + #+:lispworks 'lw:simple-text-string + total-size)) (curr-pos 0)) (declare (fixnum curr-pos)) (dolist (string string-list) From bknr at bknr.net Thu Oct 29 15:01:32 2009 From: bknr at bknr.net (BKNR Commits) Date: Thu, 29 Oct 2009 16:01:32 +0100 Subject: [bknr-cvs] edi changed tags/thirdparty/cl-ppcre-2.0.3/ Message-ID: Revision: 4462 Author: edi URL: http://bknr.net/trac/changeset/4462 Tag cl-ppcre 2.0.3 A tags/thirdparty/cl-ppcre-2.0.3/