February 2009 - bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/acceptor.lisp
by BKNR Commits 20 Feb '09

20 Feb '09

Revision: 4303 Author: hans URL: http://bknr.net/trac/changeset/4303 Make HUNCHENTOOT:STOP work again. U trunk/thirdparty/hunchentoot/acceptor.lisp Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2009-02-20 07:26:37 UTC (rev 4302) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2009-02-20 11:05:20 UTC (rev 4303) @@ -114,7 +114,8 @@ matter what kind of taskmaster you are using this will always be a new process different from the one where START was called.") #-:lispworks - (listen-socket :accessor acceptor-listen-socket + (listen-socket :initform nil + :accessor acceptor-listen-socket :documentation "The socket listening for incoming connections.") (acceptor-shutdown-p :initform nil @@ -249,6 +250,8 @@ (shutdown (acceptor-taskmaster acceptor)) #-:lispworks (usocket:socket-close (acceptor-listen-socket acceptor)) + #-:lispworks + (setf (acceptor-listen-socket acceptor) nil) acceptor) (defmethod initialize-connection-stream ((acceptor acceptor) stream) @@ -347,6 +350,8 @@ #-:lispworks (defmethod start-listening ((acceptor acceptor)) + (when (acceptor-listen-socket acceptor) + (hunchentoot-error "acceptor ~A is already listening" acceptor)) (setf (acceptor-listen-socket acceptor) (usocket:socket-listen (or (acceptor-address acceptor) usocket:*wildcard-host*) @@ -361,7 +366,7 @@ (loop (when (acceptor-shutdown-p acceptor) (return)) - (when (usocket:wait-for-input listener :timeout +new-connection-wait-time+) + (when (usocket:wait-for-input listener :ready-only t :timeout +new-connection-wait-time+) (handler-case (when-let (client-connection (usocket:socket-accept listener)) (set-timeouts client-connection

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/
by BKNR Commits 20 Feb '09

20 Feb '09

Revision: 4302 Author: edi URL: http://bknr.net/trac/changeset/4302 SSL key passwords for the rest U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/doc/index.xml U trunk/thirdparty/hunchentoot/ssl.lisp Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2009-02-19 14:18:41 UTC (rev 4301) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2009-02-20 07:26:37 UTC (rev 4302) @@ -1,3 +1,5 @@ +Enable SSL key passwords for Lisps other than LW (Vsevolod) + Version 1.0.0 2009-02-19 Complete architectural redesign (together with Hans Hübner) Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2009-02-19 14:18:41 UTC (rev 4301) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2009-02-20 07:26:37 UTC (rev 4302) @@ -353,10 +353,10 @@ required initargs, <code>:SSL-CERTIFICATE-FILE</code> and <code>:SSL-PRIVATEKEY-FILE</code>, for pathname designators denoting the certificate file and the key file in PEM format. On LispWorks, you can have both in one file in which case -the second initarg is optional. On LispWorks, you can also use the -<code>:SSL-PRIVATEKEY-PASSWORD</code> initarg to provide a password (as a string) -for the key file (or <code>NIL</code>, the default, for no password). On other -Lisps, the key file must not be password-protected. +the second initarg is optional. You can also use the +<code>:SSL-PRIVATEKEY-PASSWORD</code> initarg to provide a password +(as a string) for the key file (or <code>NIL</code>, the default, for +no password). <p> The default port for <clix:ref>SSL-ACCEPTOR</clix:ref> instances is 443 instead of 80 </p> Modified: trunk/thirdparty/hunchentoot/ssl.lisp =================================================================== --- trunk/thirdparty/hunchentoot/ssl.lisp 2009-02-19 14:18:41 UTC (rev 4301) +++ trunk/thirdparty/hunchentoot/ssl.lisp 2009-02-20 07:26:37 UTC (rev 4302) @@ -39,7 +39,6 @@ :documentation "A pathname designator for a private key file in PEM format, or \(only on LispWorks) NIL if the certificate file contains the private key.") - #+:lispworks (ssl-privatekey-password :initform nil :initarg :ssl-privatekey-password :reader acceptor-ssl-privatekey-password @@ -52,10 +51,9 @@ required initargs, :SSL-CERTIFICATE-FILE and :SSL-PRIVATEKEY-FILE, for pathname designators denoting the certificate file and the key file in PEM format. On LispWorks, you can have both in one file in which case -the second initarg is optional. On LispWorks, you can also use the +the second initarg is optional. You can also use the :SSL-PRIVATEKEY-PASSWORD initarg to provide a password \(as a string) -for the key file \(or NIL, the default, for no password). On other -Lisps, the key file must not be password-protected. +for the key file \(or NIL, the default, for no password). The default port for SSL-ACCEPTOR instances is 443 instead of 80")) @@ -85,11 +83,12 @@ (call-next-method acceptor (cl+ssl:make-ssl-server-stream stream :certificate (acceptor-ssl-certificate-file acceptor) - :key (acceptor-ssl-privatekey-file acceptor)))) + :key (acceptor-ssl-privatekey-file acceptor) + :password (acceptor-ssl-privatekey-password acceptor)))) ;; LispWorks implementation -#+lispworks +#+:lispworks (defun make-ssl-server-stream (socket-stream &key certificate-file privatekey-file privatekey-password) "Given the acceptor socket stream SOCKET-STREAM attaches SSL to the stream using the certificate file CERTIFICATE-FILE and the private key

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/doc/index.xml
by BKNR Commits 19 Feb '09

19 Feb '09

Revision: 4301 Author: edi URL: http://bknr.net/trac/changeset/4301 Minimal change for parsing U trunk/thirdparty/hunchentoot/doc/index.xml Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2009-02-19 10:34:09 UTC (rev 4300) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2009-02-19 14:18:41 UTC (rev 4301) @@ -2,8 +2,7 @@ <?xml-stylesheet type="text/xsl" href="clixdoc.xsl" ?> <clix:documentation xmlns='http://www.w3.org/1999/xhtml' xmlns:clix='http://bknr.net/clixdoc'> - <clix:title>HUNCHENTOOT - The Common Lisp web server formerly known as TBNL - </clix:title> + <clix:title>HUNCHENTOOT - The Common Lisp web server formerly known as TBNL</clix:title> <clix:short-description> A fully-featured web server written in Common Lisp offering things like HTTP/1.1 chunking, persistent connections, and SSL. Includes

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/doc/index.xml
by BKNR Commits 19 Feb '09

19 Feb '09

Revision: 4300 Author: edi URL: http://bknr.net/trac/changeset/4300 Fix dependency U trunk/thirdparty/hunchentoot/doc/index.xml Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2009-02-19 02:12:21 UTC (rev 4299) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2009-02-19 10:34:09 UTC (rev 4300) @@ -95,7 +95,7 @@ </li> <li> and my own <a href="http://weitz.de/flexi-streams/">FLEXI-STREAMS</a> (0.12.0 or higher), - <a href="http://weitz.de/chunga/">Chunga</a> (0.5.0 or + <a href="http://weitz.de/chunga/">Chunga</a> (1.0.0 or higher), and <a href="http://weitz.de/cl-ppcre/"> CL-PPCRE</a> (plus <a href="http://weitz.de/cl-who/">CL-WHO</a> for the <a href="#start">example code</a> and <a href="http://weitz.de/drakma/">Drakma</a> for the <a href="#testing">tests</a>.).

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/doc/
by BKNR Commits 19 Feb '09

19 Feb '09

Revision: 4299 Author: edi URL: http://bknr.net/trac/changeset/4299 Cosmetic surgery U trunk/thirdparty/hunchentoot/doc/clixdoc.xsl U trunk/thirdparty/hunchentoot/doc/index.xml Modified: trunk/thirdparty/hunchentoot/doc/clixdoc.xsl =================================================================== --- trunk/thirdparty/hunchentoot/doc/clixdoc.xsl 2009-02-19 01:30:14 UTC (rev 4298) +++ trunk/thirdparty/hunchentoot/doc/clixdoc.xsl 2009-02-19 02:12:21 UTC (rev 4299) @@ -398,6 +398,13 @@ <xsl:otherwise>Reader</xsl:otherwise> </xsl:choose> </xsl:when> + <xsl:when test="name() = 'clix:listed-reader'"> + <xsl:choose> + <xsl:when test="@generic = 'true'">Generic reader</xsl:when> + <xsl:when test="@specialized = 'true'">Specialized reader</xsl:when> + <xsl:otherwise>Reader</xsl:otherwise> + </xsl:choose> + </xsl:when> <xsl:when test="name() = 'clix:readers'"> <xsl:choose> <xsl:when test="@generic = 'true'">Generic readers</xsl:when> @@ -419,6 +426,13 @@ <xsl:otherwise>Writer</xsl:otherwise> </xsl:choose> </xsl:when> + <xsl:when test="name() = 'clix:listed-accessor'"> + <xsl:choose> + <xsl:when test="@generic = 'true'">Generic accessor</xsl:when> + <xsl:when test="@specialized = 'true'">Specialized accessor</xsl:when> + <xsl:otherwise>Accessor</xsl:otherwise> + </xsl:choose> + </xsl:when> <xsl:when test="name() = 'clix:accessor'"> <xsl:choose> <xsl:when test="@generic = 'true'">Generic accessor</xsl:when> Modified: trunk/thirdparty/hunchentoot/doc/index.xml =================================================================== --- trunk/thirdparty/hunchentoot/doc/index.xml 2009-02-19 01:30:14 UTC (rev 4298) +++ trunk/thirdparty/hunchentoot/doc/index.xml 2009-02-19 02:12:21 UTC (rev 4299) @@ -390,49 +390,49 @@ </clix:special-variable> <clix:readers generic='true'> - <clix:listed-reader name='acceptor-address'> + <clix:listed-reader generic='true' name='acceptor-address'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>address </clix:returns> </clix:listed-reader> - <clix:listed-reader name='acceptor-port'> + <clix:listed-reader generic='true' name='acceptor-port'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>port </clix:returns> </clix:listed-reader> - <clix:listed-reader name='acceptor-read-timeout'> + <clix:listed-reader generic='true' name='acceptor-read-timeout'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>read-timeout </clix:returns> </clix:listed-reader> - <clix:listed-reader name='acceptor-ssl-certificate-file'> + <clix:listed-reader generic='true' name='acceptor-ssl-certificate-file'> <clix:lambda-list>ssl-acceptor </clix:lambda-list> <clix:returns>ssl-certificate-file </clix:returns> </clix:listed-reader> - <clix:listed-reader name='acceptor-ssl-privatekey-file'> + <clix:listed-reader generic='true' name='acceptor-ssl-privatekey-file'> <clix:lambda-list>ssl-acceptor </clix:lambda-list> <clix:returns>ssl-privatekey-file </clix:returns> </clix:listed-reader> - <clix:listed-reader name='acceptor-ssl-privatekey-password'> + <clix:listed-reader generic='true' name='acceptor-ssl-privatekey-password'> <clix:lambda-list>ssl-acceptor </clix:lambda-list> <clix:returns>ssl-privatekey-password </clix:returns> </clix:listed-reader> - <clix:listed-reader name='acceptor-write-timeout'> + <clix:listed-reader generic='true' name='acceptor-write-timeout'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>write-timeout @@ -449,63 +449,63 @@ </clix:readers> <clix:accessors generic='true'> - <clix:listed-accessor name='acceptor-access-logger'> + <clix:listed-accessor generic='true' name='acceptor-access-logger'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>access-logger </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='acceptor-request-dispatcher'> + <clix:listed-accessor generic='true' name='acceptor-request-dispatcher'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>request-dispatcher </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='acceptor-input-chunking-p'> + <clix:listed-accessor generic='true' name='acceptor-input-chunking-p'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>input-chunking-p </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='acceptor-message-logger'> + <clix:listed-accessor generic='true' name='acceptor-message-logger'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>message-logger </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='acceptor-name'> + <clix:listed-accessor generic='true' name='acceptor-name'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>name </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='acceptor-output-chunking-p'> + <clix:listed-accessor generic='true' name='acceptor-output-chunking-p'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>output-chunking-p </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='acceptor-persistent-connections-p'> + <clix:listed-accessor generic='true' name='acceptor-persistent-connections-p'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>persistent-connections-p </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='acceptor-reply-class'> + <clix:listed-accessor generic='true' name='acceptor-reply-class'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>reply-class </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='acceptor-request-class'> + <clix:listed-accessor generic='true' name='acceptor-request-class'> <clix:lambda-list>acceptor </clix:lambda-list> <clix:returns>request-class @@ -1588,21 +1588,21 @@ <clix:readers generic='true'> - <clix:listed-reader name='cookies-in'> + <clix:listed-reader generic='true' name='cookies-in'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>cookies </clix:returns> </clix:listed-reader> - <clix:listed-reader name='get-parameters'> + <clix:listed-reader generic='true' name='get-parameters'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>get-parameters </clix:returns> </clix:listed-reader> - <clix:listed-reader name='header-in'> + <clix:listed-reader generic='true' name='header-in'> <clix:lambda-list>name request </clix:lambda-list> <clix:returns>result @@ -1611,70 +1611,70 @@ </clix:description> </clix:listed-reader> - <clix:listed-reader name='headers-in'> + <clix:listed-reader generic='true' name='headers-in'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>headers </clix:returns> </clix:listed-reader> - <clix:listed-reader name='post-parameters'> + <clix:listed-reader generic='true' name='post-parameters'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>post-parameters </clix:returns> </clix:listed-reader> - <clix:listed-reader name='query-string'> + <clix:listed-reader generic='true' name='query-string'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>query-string </clix:returns> </clix:listed-reader> - <clix:listed-reader name='remote-addr'> + <clix:listed-reader generic='true' name='remote-addr'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>address </clix:returns> </clix:listed-reader> - <clix:listed-reader name='remote-port'> + <clix:listed-reader generic='true' name='remote-port'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>port </clix:returns> </clix:listed-reader> - <clix:listed-reader name='request-acceptor'> + <clix:listed-reader generic='true' name='request-acceptor'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>acceptor </clix:returns> </clix:listed-reader> - <clix:listed-reader name='request-method'> + <clix:listed-reader generic='true' name='request-method'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>method </clix:returns> </clix:listed-reader> - <clix:listed-reader name='request-uri'> + <clix:listed-reader generic='true' name='request-uri'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>uri </clix:returns> </clix:listed-reader> - <clix:listed-reader name='server-protocol'> + <clix:listed-reader generic='true' name='server-protocol'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>protocol </clix:returns> </clix:listed-reader> - <clix:listed-reader name='script-name'> + <clix:listed-reader generic='true' name='script-name'> <clix:lambda-list>request </clix:lambda-list> <clix:returns>result @@ -1919,21 +1919,21 @@ </clix:constants> <clix:readers generic='true'> - <clix:listed-reader name='content-length'> + <clix:listed-reader generic='true' name='content-length'> <clix:lambda-list>reply </clix:lambda-list> <clix:returns>content-length </clix:returns> </clix:listed-reader> - <clix:listed-reader name='content-type'> + <clix:listed-reader generic='true' name='content-type'> <clix:lambda-list>reply </clix:lambda-list> <clix:returns>content-type </clix:returns> </clix:listed-reader> - <clix:listed-reader name='headers-out'> + <clix:listed-reader generic='true' name='headers-out'> <clix:lambda-list>reply </clix:lambda-list> <clix:returns>headers-out @@ -1951,21 +1951,21 @@ </clix:readers> <clix:accessors generic='true'> - <clix:listed-accessor name='cookies-out'> + <clix:listed-accessor generic='true' name='cookies-out'> <clix:lambda-list>reply </clix:lambda-list> <clix:returns>result </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='return-code'> + <clix:listed-accessor generic='true' name='return-code'> <clix:lambda-list>reply </clix:lambda-list> <clix:returns>result </clix:returns> </clix:listed-accessor> - <clix:listed-accessor name='reply-external-format'> + <clix:listed-accessor generic='true' name='reply-external-format'> <clix:lambda-list>reply </clix:lambda-list> <clix:returns>result

1 0

[bknr-cvs] edi changed tags/thirdparty/hunchentoot-1.0.0/
by BKNR Commits 19 Feb '09

19 Feb '09

Revision: 4298 Author: edi URL: http://bknr.net/trac/changeset/4298 Tag again A tags/thirdparty/hunchentoot-1.0.0/ Copied: tags/thirdparty/hunchentoot-1.0.0 (from rev 4297, trunk/thirdparty/hunchentoot)

1 0

[bknr-cvs] edi changed tags/thirdparty/hunchentoot-1.0.0/
by BKNR Commits 19 Feb '09

19 Feb '09

Revision: 4297 Author: edi URL: http://bknr.net/trac/changeset/4297 Revert D tags/thirdparty/hunchentoot-1.0.0/

1 0

[bknr-cvs] edi changed trunk/thirdparty/hunchentoot/doc/check-doc.lisp
by BKNR Commits 19 Feb '09

19 Feb '09

Revision: 4296 Author: edi URL: http://bknr.net/trac/changeset/4296 Not for release D trunk/thirdparty/hunchentoot/doc/check-doc.lisp Deleted: trunk/thirdparty/hunchentoot/doc/check-doc.lisp =================================================================== --- trunk/thirdparty/hunchentoot/doc/check-doc.lisp 2009-02-19 01:20:33 UTC (rev 4295) +++ trunk/thirdparty/hunchentoot/doc/check-doc.lisp 2009-02-19 01:29:37 UTC (rev 4296) @@ -1,129 +0,0 @@ - -(defun do-documented-names% (thunk) - (labels ((find-documentation (node) - (when (listp node) - (let* ((symbol-type (cxml-xmls:node-name node)) - (symbol-name (cadr (assoc "name" (cxml-xmls:node-attrs node) :test #'equal))) - (symbol-name (and symbol-name (string-upcase symbol-name)))) - (when (find symbol-type '("function" "reader" "accessor" "constant" "special-variable" "symbol") - :test #'equal) - (funcall thunk symbol-name symbol-type node)) - (mapc #'find-documentation (cxml-xmls:node-children node)))))) - (find-documentation (cxml:parse-file "index.xml" (cxml-xmls:make-xmls-builder)))) - nil) - -(defmacro do-documented-names ((symbol-name-var - &optional - (symbol-type-var (gensym) symbol-type-var-p) - (node-var (gensym) node-var-p)) - &body body) - `(do-documented-names% (lambda (,symbol-name-var ,symbol-type-var ,node-var) - (declare (ignorable - ,(unless symbol-type-var-p - `,symbol-type-var) - ,(unless node-var-p - `,node-var))) - (block nil - ,@body)))) - -(defun documented-names () - "Returns a list of strings, the symbols that are documented in index.xml" - (let (names) - (do-documented-names (symbol-name) - (pushnew symbol-name names :test #'string-equal)) - names)) - -(defun arglist-from-xml-lambda-list (nodes) - (format nil "(~:@(~A~))" - (string-trim " " - (apply #'concatenate 'string - (mapcar (lambda (node) - (cond - ((stringp node) (cl-ppcre:regex-replace-all "[ \\r\\n]+" node " ")) - ((equal "lkw" (cxml-xmls:node-name node)) - (format nil "&~A" (car (cxml-xmls:node-children node)))) - (t - (error "unexpected node ~A in lambda-list documentation")))) - nodes))))) - -(defun cleanup-arglist (arglist) - "Remove &rest argument from the given lambda list if there are -arguments following the &rest argument." - (do ((rest arglist (cdr rest)) - result) - ((null rest) (nreverse result)) - (if (and (eq (car rest) '&rest) - (cddr rest)) - (setf rest (cdr rest)) - (push (car rest) result)))) - -(defun check-function-argument-documentation () - (do-documented-names (symbol-name symbol-type node) - (when (find symbol-type '("function" "reader" "accessor") :test #'equal) - (handler-case - (fdefinition (find-symbol symbol-name :hunchentoot)) - (error (e) - (declare (ignore e)) - (return))) - (let* ((real-arglist (cleanup-arglist (swank::arglist (find-symbol symbol-name :hunchentoot)))) - (real-arglist-string (princ-to-string - (or real-arglist - "()"))) - (documented-arglist-string (arglist-from-xml-lambda-list - (cxml-xmls:node-children - (find-if (lambda (node) - (and (listp node) - (equal "lambda-list" (cxml-xmls:node-name node)))) - (cxml-xmls:node-children node)))))) - (when (and (= 1 (length real-arglist)) - (cl-ppcre:scan "(\\S+)" documented-arglist-string)) - ;; For single-argument functions, do not report argument - ;; name mismatches as the real argument name is often - ;; generated by the compiler in reader/writer/accessor slot - ;; options. - (return)) - (unless (equal real-arglist-string documented-arglist-string) - (format t "documented arglist for ~A ~A~% ~A~%deviates from real arglist~% ~A~%~%" - symbol-type symbol-name documented-arglist-string real-arglist-string)))))) - -(defun node-text (node) - (let (strings) - (labels ((recurse (node) - (if (stringp node) - (push node strings) - (mapc #'recurse (cxml-xmls:node-children node))))) - (recurse node) - (apply #'concatenate 'string (nreverse strings))))) - -(defun clean-string (string) - (string-trim " " (cl-ppcre:regex-replace-all "[\\r\\n]+\\s*" string " "))) - -(defun dump-docstring-and-description () - (do-documented-names (symbol-name symbol-type node) - (when (find symbol-type '("function" "accessor") :test #'equal) - (let ((docstring (clean-string (documentation (find-symbol symbol-name :hunchentoot) 'function))) - (documentation-string (clean-string - (node-text (find "description" (remove-if-not #'listp (cxml-xmls:node-children node)) - :key #'cxml-xmls:node-name :test #'equal))))) - (format t "----~%~A:~%~A~%~%~A~%~%" symbol-name - docstring - documentation-string))))) - -(defun exported-names () - "Return list of strings, the symbols that are exported from the Hunchentoot package" - (let (names) - (do-external-symbols (symbol :hunchentoot) - (pushnew (symbol-name symbol) names)) - names)) - -(defun check-doc () - (format t "---------------------~%") - (let* ((documented (documented-names)) - (exported (exported-names)) - (not-exported (sort (set-difference documented exported :test #'equal) #'string-lessp)) - (not-documented (sort (set-difference exported documented :test #'equal) #'string-lessp))) - (when not-exported - (format t "Documented, but not exported: ~{~& ~A~}~%~%" not-exported)) - (when not-documented - (format t "Exported, but not documented: ~{~& ~A~}~%~%" not-documented))) - (check-function-argument-documentation)) \ No newline at end of file

1 0

[bknr-cvs] edi changed tags/thirdparty/chunga-1.0.0/
by BKNR Commits 19 Feb '09

19 Feb '09

Revision: 4295 Author: edi URL: http://bknr.net/trac/changeset/4295 Tag release of Chunga 1.0.0 A tags/thirdparty/chunga-1.0.0/ Copied: tags/thirdparty/chunga-1.0.0 (from rev 4294, trunk/thirdparty/chunga)

1 0

[bknr-cvs] edi changed tags/thirdparty/drakma-1.0.0/
by BKNR Commits 19 Feb '09

19 Feb '09

Revision: 4294 Author: edi URL: http://bknr.net/trac/changeset/4294 Tag release of Drakma 1.0.0 A tags/thirdparty/drakma-1.0.0/ Copied: tags/thirdparty/drakma-1.0.0 (from rev 4293, trunk/thirdparty/drakma)

1 0