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

[bknr-cvs] hans changed trunk/thirdparty/cxml/
by BKNR Commits 04 Apr '09

04 Apr '09

Revision: 4348 Author: hans URL: http://bknr.net/trac/changeset/4348 update from upstream git U trunk/thirdparty/cxml/.git/FETCH_HEAD U trunk/thirdparty/cxml/.git/ORIG_HEAD U trunk/thirdparty/cxml/.git/index U trunk/thirdparty/cxml/.git/logs/HEAD U trunk/thirdparty/cxml/.git/logs/refs/heads/master U trunk/thirdparty/cxml/.git/logs/refs/remotes/origin/master A trunk/thirdparty/cxml/.git/objects/09/ A trunk/thirdparty/cxml/.git/objects/09/517509993736ba3df618d71959b129fabd6075 A trunk/thirdparty/cxml/.git/objects/0e/ A trunk/thirdparty/cxml/.git/objects/0e/1d625eba0b746f5c8edb037a8d4f51b2bba009 A trunk/thirdparty/cxml/.git/objects/20/ A trunk/thirdparty/cxml/.git/objects/20/e0fae0cc03d903e98b6226dc0e0ef82c8bb258 A trunk/thirdparty/cxml/.git/objects/22/ A trunk/thirdparty/cxml/.git/objects/22/9a2beb2c750b3d656a4f4bb450c78ebd2bd34b A trunk/thirdparty/cxml/.git/objects/2e/ A trunk/thirdparty/cxml/.git/objects/2e/f537eacdd6bc613f481b0a40b90684ee782584 A trunk/thirdparty/cxml/.git/objects/3a/ A trunk/thirdparty/cxml/.git/objects/3a/ada6fb894b77e8dce75b7aa7facfcdfd1f412f A trunk/thirdparty/cxml/.git/objects/40/ A trunk/thirdparty/cxml/.git/objects/40/1d6e4e5d82ef880a02aed1f9226aa6dbc565c8 A trunk/thirdparty/cxml/.git/objects/5d/ A trunk/thirdparty/cxml/.git/objects/5d/7f1c584022db2af2ec87e3e1bdb4a45e606ace A trunk/thirdparty/cxml/.git/objects/6e/ A trunk/thirdparty/cxml/.git/objects/6e/95da48180c8d7de9b573527d909414b46bb552 A trunk/thirdparty/cxml/.git/objects/70/ A trunk/thirdparty/cxml/.git/objects/70/e5c620b001c26a6b5fb62ba449a794478c04ca A trunk/thirdparty/cxml/.git/objects/8c/ A trunk/thirdparty/cxml/.git/objects/8c/04aad807abd6fe5b0c4c060236477effc8695e A trunk/thirdparty/cxml/.git/objects/90/ A trunk/thirdparty/cxml/.git/objects/90/563f795cad15cb6d0d77f0e9be14049456c2f0 A trunk/thirdparty/cxml/.git/objects/95/ A trunk/thirdparty/cxml/.git/objects/95/921fc068d651fd7f2c2415216554d0d1c40393 A trunk/thirdparty/cxml/.git/objects/95/da5ddd6dd84d329f333004fe2040872f6104e2 A trunk/thirdparty/cxml/.git/objects/97/ A trunk/thirdparty/cxml/.git/objects/97/65bce865038d0a68ee19c29b1f95d3d272cdfe A trunk/thirdparty/cxml/.git/objects/a0/ A trunk/thirdparty/cxml/.git/objects/a0/bf29fd0c9a68fc71c16403a7fdfe350fdfbe55 A trunk/thirdparty/cxml/.git/objects/bf/ A trunk/thirdparty/cxml/.git/objects/bf/341888d68485e47a5a87d4041bf75a1023cebd A trunk/thirdparty/cxml/.git/objects/ee/ A trunk/thirdparty/cxml/.git/objects/ee/d185b3481bfbc8e6add2509715dcc7c0f4edc0 U trunk/thirdparty/cxml/.git/refs/heads/master U trunk/thirdparty/cxml/.git/refs/remotes/origin/master U trunk/thirdparty/cxml/cxml.asd U trunk/thirdparty/cxml/dist.sh U trunk/thirdparty/cxml/doc/GNUmakefile U trunk/thirdparty/cxml/doc/html.xsl U trunk/thirdparty/cxml/doc/index.xml U trunk/thirdparty/cxml/klacks/klacks.lisp A trunk/thirdparty/cxml/xml/atdoc-configuration.lisp U trunk/thirdparty/cxml/xml/sax-proxy.lisp U trunk/thirdparty/cxml/xml/unparse.lisp U trunk/thirdparty/cxml/xml/xml-parse.lisp U trunk/thirdparty/cxml/xml/xmlns-normalizer.lisp Change set too large, please see URL above

1 0

[bknr-cvs] hans changed trunk/thirdparty/hunchentoot/mime-types.lisp
by BKNR Commits 04 Apr '09

04 Apr '09

Revision: 4347 Author: hans URL: http://bknr.net/trac/changeset/4347 add javascript mime type U trunk/thirdparty/hunchentoot/mime-types.lisp Modified: trunk/thirdparty/hunchentoot/mime-types.lisp =================================================================== --- trunk/thirdparty/hunchentoot/mime-types.lisp 2009-04-01 15:21:11 UTC (rev 4346) +++ trunk/thirdparty/hunchentoot/mime-types.lisp 2009-04-04 13:00:09 UTC (rev 4347) @@ -313,6 +313,7 @@ ("text/x-dsrc" "d") ("text/x-haskell" "hs") ("text/x-java" "java") + ("text/javascript" "js") ("text/x-literate-haskell" "lhs") ("text/x-moc" "moc") ("text/x-pascal" "pp" "as")

1 0

[bknr-cvs] hans changed trunk/thirdparty/cl-smtp/attachments.lisp
by BKNR Commits 01 Apr '09

01 Apr '09

Revision: 4346 Author: hans URL: http://bknr.net/trac/changeset/4346 Somewhat obscure fix for sending attachments in certain firewalled environment. Supplied by Russ Tyndall. U trunk/thirdparty/cl-smtp/attachments.lisp Modified: trunk/thirdparty/cl-smtp/attachments.lisp =================================================================== --- trunk/thirdparty/cl-smtp/attachments.lisp 2009-04-01 13:48:56 UTC (rev 4345) +++ trunk/thirdparty/cl-smtp/attachments.lisp 2009-04-01 15:21:11 UTC (rev 4346) @@ -76,7 +76,7 @@ :boundary boundary :content-type (format nil "~a;~%~tname=\"~a\"" (lookup-mime-type name) name) :content-transfer-encoding "base64" - :content-disposition (format nil "attachment; filename=\"~a\"" name))) + :content-disposition (format nil "inline; filename=\"~a\"" name))) (defun send-end-marker (sock boundary) ;; Note the -- at beginning and end of boundary is required @@ -91,12 +91,12 @@ (defun base64-encode-file (file-in sock &key (buffer-size 256) ;; in KB - (wrap-at-column 70)) + (wrap-at-column 72)) "Encodes the file contents given by file-in, which can be of any form appropriate to with-open-file, and write the base-64 encoded version to sock, which is a socket. Buffer-size, given in KB, controls how much of the file is processed and written to the socket at one time. A buffer-size of 0, processes the file all at once, regardless of its size. One will have to weigh the speed vs, memory consuption risks when chosing which way is best. -Wrap-at-column controls where the encode string is divided for line breaks." +Wrap-at-column controls where the encode string is divided for line breaks." (when (probe-file file-in) ;;-- open filein --------- (with-open-file (strm-in file-in

1 0

[bknr-cvs] hans changed trunk/thirdparty/cl-ftp/
by BKNR Commits 01 Apr '09

01 Apr '09

Revision: 4345 Author: hans URL: http://bknr.net/trac/changeset/4345 add cl-ftp converted to use usocket A trunk/thirdparty/cl-ftp/ A trunk/thirdparty/cl-ftp/LICENSE A trunk/thirdparty/cl-ftp/api.lml A trunk/thirdparty/cl-ftp/ftp.asd A trunk/thirdparty/cl-ftp/ftp.lisp A trunk/thirdparty/cl-ftp/makedocs.sh A trunk/thirdparty/cl-ftp/simple-client.lisp Change set too large, please see URL above

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-who/CHANGELOG
by BKNR Commits 26 Mar '09

26 Mar '09

Revision: 4344 Author: edi URL: http://bknr.net/trac/changeset/4344 Update ChangeLog U trunk/thirdparty/cl-who/CHANGELOG Modified: trunk/thirdparty/cl-who/CHANGELOG =================================================================== --- trunk/thirdparty/cl-who/CHANGELOG 2009-03-26 19:04:54 UTC (rev 4343) +++ trunk/thirdparty/cl-who/CHANGELOG 2009-03-26 19:05:30 UTC (rev 4344) @@ -5,6 +5,7 @@ todo: repla s-h-texp with walk in docs Removed deprecated ESCAPE-STRING-ISO-8859 function Removed SHOW-HTML-EXPANSION +Bugfixes (thanks to Slawek Zak) Version 0.11.1 2008-03-28

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-who/who.lisp
by BKNR Commits 26 Mar '09

26 Mar '09

Revision: 4343 Author: edi URL: http://bknr.net/trac/changeset/4343 Patch from Slawek Zak U trunk/thirdparty/cl-who/who.lisp Modified: trunk/thirdparty/cl-who/who.lisp =================================================================== --- trunk/thirdparty/cl-who/who.lisp 2009-03-23 14:36:59 UTC (rev 4342) +++ trunk/thirdparty/cl-who/who.lisp 2009-03-26 19:04:54 UTC (rev 4343) @@ -174,7 +174,7 @@ "Transforms an HTML tree into an intermediate format - mainly a flattened list of strings. Utility function used by TREE-TO-COMMANDS-AUX." (loop for element in tree - when (or (keywordp element) + if (or (keywordp element) (and (listp element) (keywordp (first element))) (and (listp element) @@ -182,8 +182,11 @@ (keywordp (first (first element))))) ;; the syntax for a tag - process it nconc (process-tag element #'tree-to-template) + ;; list - insert as sexp + else if (consp element) + collect `(let ((*indent* ,*indent*)) ,element) + ;; something else - insert verbatim else - ;; something else - insert verbatim collect element)) (defun string-list-to-string (string-list)

1 0

None
by BKNR Commits 13 Mar '09

13 Mar '09

1 0

[bknr-cvs] hans changed trunk/projects/bos/queries.lisp
by BKNR Commits 11 Mar '09

11 Mar '09

Revision: 4338 Author: hans URL: http://bknr.net/trac/changeset/4338 explain in sql U trunk/projects/bos/queries.lisp Modified: trunk/projects/bos/queries.lisp =================================================================== --- trunk/projects/bos/queries.lisp 2009-03-11 09:24:57 UTC (rev 4337) +++ trunk/projects/bos/queries.lisp 2009-03-11 09:27:42 UTC (rev 4338) @@ -1,6 +1,10 @@ ;; ad-hoc queries that were useful ;; contracts processed by gitte + +;; almost like +;; select year, sum(contract-price) from contract where contract-paidp like "gitte" group by year(contract-date) + (loop for year from 2007 upto 2009 do (format t "~A: ~A~%" year

1 0

[bknr-cvs] hans changed trunk/projects/bos/queries.lisp
by BKNR Commits 11 Mar '09

11 Mar '09

Revision: 4337 Author: hans URL: http://bknr.net/trac/changeset/4337 queries scratchpad A trunk/projects/bos/queries.lisp Added: trunk/projects/bos/queries.lisp =================================================================== --- trunk/projects/bos/queries.lisp (rev 0) +++ trunk/projects/bos/queries.lisp 2009-03-11 09:24:57 UTC (rev 4337) @@ -0,0 +1,15 @@ +;; ad-hoc queries that were useful + +;; contracts processed by gitte +(loop for year from 2007 upto 2009 + do (format t "~A: ~A~%" + year + (reduce #'+ + (remove-if-not + (lambda (contract) + (and (= year (nth-value 5 (decode-universal-time (contract-date contract)))) + (cl-ppcre:scan "gitte" (if (stringp (contract-paidp contract)) + (contract-paidp contract) + "")))) + (class-instances 'contract)) + :key #'contract-price)))

1 0

[bknr-cvs] edi changed trunk/thirdparty/cl-who/
by BKNR Commits 09 Mar '09

09 Mar '09

Revision: 4336 Author: edi URL: http://bknr.net/trac/changeset/4336 Dev version U trunk/thirdparty/cl-who/CHANGELOG U trunk/thirdparty/cl-who/cl-who.asd U trunk/thirdparty/cl-who/doc/index.html U trunk/thirdparty/cl-who/packages.lisp U trunk/thirdparty/cl-who/specials.lisp A trunk/thirdparty/cl-who/test/ A trunk/thirdparty/cl-who/test/packages.lisp A trunk/thirdparty/cl-who/test/simple A trunk/thirdparty/cl-who/test/tests.lisp A trunk/thirdparty/cl-who/util.lisp U trunk/thirdparty/cl-who/who.lisp Change set too large, please see URL above

1 0