From bknr at bknr.net Mon Sep 13 15:22:31 2010 From: bknr at bknr.net (BKNR Commits) Date: Mon, 13 Sep 2010 17:22:31 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/cl Message-ID: Revision: 4604 Author: manuel URL: http://bknr.net/trac/changeset/4604 added cl-paypal as thirdparty U trunk/thirdparty/cl-gd/Makefile A trunk/thirdparty/cl-paypal/ A trunk/thirdparty/cl-paypal/.git/ A trunk/thirdparty/cl-paypal/.git/FETCH_HEAD A trunk/thirdparty/cl-paypal/.git/HEAD A trunk/thirdparty/cl-paypal/.git/ORIG_HEAD A trunk/thirdparty/cl-paypal/.git/config A trunk/thirdparty/cl-paypal/.git/description A trunk/thirdparty/cl-paypal/.git/hooks/ A trunk/thirdparty/cl-paypal/.git/hooks/applypatch-msg.sample A trunk/thirdparty/cl-paypal/.git/hooks/commit-msg.sample A trunk/thirdparty/cl-paypal/.git/hooks/post-commit.sample A trunk/thirdparty/cl-paypal/.git/hooks/post-receive.sample A trunk/thirdparty/cl-paypal/.git/hooks/post-update.sample A trunk/thirdparty/cl-paypal/.git/hooks/pre-applypatch.sample A trunk/thirdparty/cl-paypal/.git/hooks/pre-commit.sample A trunk/thirdparty/cl-paypal/.git/hooks/pre-rebase.sample A trunk/thirdparty/cl-paypal/.git/hooks/prepare-commit-msg.sample A trunk/thirdparty/cl-paypal/.git/hooks/update.sample A trunk/thirdparty/cl-paypal/.git/index A trunk/thirdparty/cl-paypal/.git/info/ A trunk/thirdparty/cl-paypal/.git/info/exclude A trunk/thirdparty/cl-paypal/.git/logs/ A trunk/thirdparty/cl-paypal/.git/logs/HEAD A trunk/thirdparty/cl-paypal/.git/logs/refs/ A trunk/thirdparty/cl-paypal/.git/logs/refs/heads/ A trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop A trunk/thirdparty/cl-paypal/.git/logs/refs/heads/master A trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/ A trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/ A trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop A trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/master A trunk/thirdparty/cl-paypal/.git/objects/ A trunk/thirdparty/cl-paypal/.git/objects/info/ A trunk/thirdparty/cl-paypal/.git/objects/pack/ A trunk/thirdparty/cl-paypal/.git/objects/pack/pack-292beccc94f53561e5d52fadd53a6305bff95943.idx A trunk/thirdparty/cl-paypal/.git/objects/pack/pack-292beccc94f53561e5d52fadd53a6305bff95943.pack A trunk/thirdparty/cl-paypal/.git/packed-refs A trunk/thirdparty/cl-paypal/.git/refs/ A trunk/thirdparty/cl-paypal/.git/refs/heads/ A trunk/thirdparty/cl-paypal/.git/refs/heads/develop A trunk/thirdparty/cl-paypal/.git/refs/heads/master A trunk/thirdparty/cl-paypal/.git/refs/remotes/ A trunk/thirdparty/cl-paypal/.git/refs/remotes/origin/ A trunk/thirdparty/cl-paypal/.git/refs/remotes/origin/HEAD A trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/ A trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop A trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/master A trunk/thirdparty/cl-paypal/.git/refs/tags/ A trunk/thirdparty/cl-paypal/DOC/ A trunk/thirdparty/cl-paypal/DOC/PP_ExpressCheckout_IntegrationGuide.pdf A trunk/thirdparty/cl-paypal/README A trunk/thirdparty/cl-paypal/cl-paypal-test.lisp A trunk/thirdparty/cl-paypal/cl-paypal.asd A trunk/thirdparty/cl-paypal/cl-paypal.lisp A trunk/thirdparty/cl-paypal/config.lisp A trunk/thirdparty/cl-paypal/package.lisp U trunk/thirdparty/closure-common/.git/FETCH_HEAD U trunk/thirdparty/closure-common/.git/ORIG_HEAD U trunk/thirdparty/closure-common/.git/index U trunk/thirdparty/closure-common/.git/logs/HEAD U trunk/thirdparty/closure-common/.git/logs/refs/heads/master U trunk/thirdparty/closure-common/.git/logs/refs/remotes/origin/master U trunk/thirdparty/closure-common/.git/refs/heads/master U trunk/thirdparty/closure-common/.git/refs/remotes/origin/master U trunk/thirdparty/closure-common/dist.sh U trunk/thirdparty/closure-common/ystream.lisp Change set too large, please see URL above From bknr at bknr.net Mon Sep 13 19:58:07 2010 From: bknr at bknr.net (BKNR Commits) Date: Mon, 13 Sep 2010 21:58:07 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/cl-gd/ Message-ID: Revision: 4605 Author: manuel URL: http://bknr.net/trac/changeset/4605 cl-gd fixes zum laufen auf 64bit openmcl, *cough* U trunk/thirdparty/cl-gd/Makefile U trunk/thirdparty/cl-gd/gd-uffi.lisp U trunk/thirdparty/cl-gd/misc.lisp Modified: trunk/thirdparty/cl-gd/Makefile =================================================================== --- trunk/thirdparty/cl-gd/Makefile 2010-09-13 15:22:30 UTC (rev 4604) +++ trunk/thirdparty/cl-gd/Makefile 2010-09-13 19:58:06 UTC (rev 4605) @@ -8,4 +8,4 @@ # this should work for Mac OS X cl-gd-glue.dylib: - gcc -arch i386 -lgd -lpng -lz -lfreetype -ljpeg -dynamiclib cl-gd-glue.c -o cl-gd-glue.dylib -I/opt/local/include -L/opt/local/lib + gcc -arch i386 -arch x86_64 -lgif -lgd -lpng -lz -lfreetype -ljpeg -dynamiclib cl-gd-glue.c -o cl-gd-glue.dylib -I/opt/local/include -L/opt/local/lib Modified: trunk/thirdparty/cl-gd/gd-uffi.lisp =================================================================== --- trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 15:22:30 UTC (rev 4604) +++ trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 19:58:06 UTC (rev 4605) @@ -35,7 +35,7 @@ (sx :int) (sy :int) (colors-total :int) - (red (:array :int #.+max-colors+)) + (red (:array :int #.+max-colors+) :offset 20) (green (:array :int #.+max-colors+)) (blue (:array :int #.+max-colors+)) (open (:array :int #.+max-colors+)) @@ -74,6 +74,12 @@ (cx2 :int) (cy2 :int)) +;; XXX evil hack +#+(and :openmcl :64-bit-target) +(defmethod cffi::foreign-type-alignment ((type uffi-array-type)) + 4) + + (def-type pixels-array (* (* :unsigned-char))) (def-type pixels-row (* :unsigned-char)) (def-type t-pixels-array (* (* :int))) Modified: trunk/thirdparty/cl-gd/misc.lisp =================================================================== --- trunk/thirdparty/cl-gd/misc.lisp 2010-09-13 15:22:30 UTC (rev 4604) +++ trunk/thirdparty/cl-gd/misc.lisp 2010-09-13 19:58:06 UTC (rev 4605) @@ -220,12 +220,12 @@ (let ((,raw-pixels (get-slot-value ,img 'gd-image 'pixels))) (declare (type pixels-array ,raw-pixels)) (dotimes (,y-var ,height) - (let ((,row (deref-array ,raw-pixels '(:array (* :unsigned-char)) ,y-var))) + (let ((,row (deref-array ,raw-pixels '(:array (* :unsigned-byte)) ,y-var))) (declare (type pixels-row ,row)) (macrolet ((do-pixels-in-row ((,x-var) &body ,inner-body) `(dotimes (,,x-var ,',width) (macrolet ((raw-pixel () - `(deref-array ,',',row '(:array :unsigned-char) ,',,x-var))) + `(deref-array ,',',row '(:array :unsigned-byte) ,',,x-var))) (locally ,@,inner-body))))) (locally From bknr at bknr.net Mon Sep 13 19:58:32 2010 From: bknr at bknr.net (BKNR Commits) Date: Mon, 13 Sep 2010 21:58:32 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/cl-gd/gd-uffi.lisp Message-ID: Revision: 4606 Author: manuel URL: http://bknr.net/trac/changeset/4606 offset fixversuch entfernen U trunk/thirdparty/cl-gd/gd-uffi.lisp Modified: trunk/thirdparty/cl-gd/gd-uffi.lisp =================================================================== --- trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 19:58:06 UTC (rev 4605) +++ trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 19:58:32 UTC (rev 4606) @@ -35,7 +35,7 @@ (sx :int) (sy :int) (colors-total :int) - (red (:array :int #.+max-colors+) :offset 20) + (red (:array :int #.+max-colors+)) (green (:array :int #.+max-colors+)) (blue (:array :int #.+max-colors+)) (open (:array :int #.+max-colors+)) From bknr at bknr.net Mon Sep 13 20:45:53 2010 From: bknr at bknr.net (BKNR Commits) Date: Mon, 13 Sep 2010 22:45:53 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/cffi/ Message-ID: Revision: 4607 Author: manuel URL: http://bknr.net/trac/changeset/4607 altes cffi entfernen D trunk/thirdparty/cffi/ From bknr at bknr.net Mon Sep 13 20:58:03 2010 From: bknr at bknr.net (BKNR Commits) Date: Mon, 13 Sep 2010 22:58:03 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/cffi/ Message-ID: Revision: 4608 Author: manuel URL: http://bknr.net/trac/changeset/4608 added cffi from git, including fixes for cl-gd A trunk/thirdparty/cffi/ A trunk/thirdparty/cffi/.git/ A trunk/thirdparty/cffi/.git/HEAD A trunk/thirdparty/cffi/.git/config A trunk/thirdparty/cffi/.git/description A trunk/thirdparty/cffi/.git/hooks/ A trunk/thirdparty/cffi/.git/hooks/applypatch-msg.sample A trunk/thirdparty/cffi/.git/hooks/commit-msg.sample A trunk/thirdparty/cffi/.git/hooks/post-commit.sample A trunk/thirdparty/cffi/.git/hooks/post-receive.sample A trunk/thirdparty/cffi/.git/hooks/post-update.sample A trunk/thirdparty/cffi/.git/hooks/pre-applypatch.sample A trunk/thirdparty/cffi/.git/hooks/pre-commit.sample A trunk/thirdparty/cffi/.git/hooks/pre-rebase.sample A trunk/thirdparty/cffi/.git/hooks/prepare-commit-msg.sample A trunk/thirdparty/cffi/.git/hooks/update.sample A trunk/thirdparty/cffi/.git/index A trunk/thirdparty/cffi/.git/info/ A trunk/thirdparty/cffi/.git/info/exclude A trunk/thirdparty/cffi/.git/logs/ A trunk/thirdparty/cffi/.git/logs/HEAD A trunk/thirdparty/cffi/.git/logs/refs/ A trunk/thirdparty/cffi/.git/logs/refs/heads/ A trunk/thirdparty/cffi/.git/logs/refs/heads/develop A trunk/thirdparty/cffi/.git/logs/refs/heads/master A trunk/thirdparty/cffi/.git/logs/refs/remotes/ A trunk/thirdparty/cffi/.git/logs/refs/remotes/common-lisp/ A trunk/thirdparty/cffi/.git/logs/refs/remotes/common-lisp/HEAD A trunk/thirdparty/cffi/.git/logs/refs/remotes/common-lisp/fsbv A trunk/thirdparty/cffi/.git/logs/refs/remotes/common-lisp/master A trunk/thirdparty/cffi/.git/logs/refs/remotes/origin/ A trunk/thirdparty/cffi/.git/logs/refs/remotes/origin/develop A trunk/thirdparty/cffi/.git/logs/refs/remotes/origin/master A trunk/thirdparty/cffi/.git/objects/ A trunk/thirdparty/cffi/.git/objects/06/ A trunk/thirdparty/cffi/.git/objects/06/1a6aef2a578d47d06a74f1c43b90b5b41f6a56 A trunk/thirdparty/cffi/.git/objects/30/ A trunk/thirdparty/cffi/.git/objects/30/abf1bf39d576c0432707287a229e8e9cf9f10b A trunk/thirdparty/cffi/.git/objects/41/ A trunk/thirdparty/cffi/.git/objects/41/0b2d077ce56c8639cd13f57ea322af9937b0a1 A trunk/thirdparty/cffi/.git/objects/4c/ A trunk/thirdparty/cffi/.git/objects/4c/52cf41278c5cf16c18f8b5e50335b351a0eeb4 A trunk/thirdparty/cffi/.git/objects/4f/ A trunk/thirdparty/cffi/.git/objects/4f/340c17045aefdcc005f5ae31d52aaebf7f7dcd A trunk/thirdparty/cffi/.git/objects/96/ A trunk/thirdparty/cffi/.git/objects/96/d86ece3271df17e2542caf02fd32a193711d51 A trunk/thirdparty/cffi/.git/objects/a1/ A trunk/thirdparty/cffi/.git/objects/a1/133dc47b4eeeaf92058c8d36ba9e5eec66d222 A trunk/thirdparty/cffi/.git/objects/d1/ A trunk/thirdparty/cffi/.git/objects/d1/194c80a10b0bd5686b60811c5b4956d2cf729e A trunk/thirdparty/cffi/.git/objects/f3/ A trunk/thirdparty/cffi/.git/objects/f3/d270ac18c0ccac96fb1772dee53b21098af790 A trunk/thirdparty/cffi/.git/objects/info/ A trunk/thirdparty/cffi/.git/objects/pack/ A trunk/thirdparty/cffi/.git/objects/pack/pack-1de7386080a7c3ddb59530d2b7592cbaad17ac25.idx A trunk/thirdparty/cffi/.git/objects/pack/pack-1de7386080a7c3ddb59530d2b7592cbaad17ac25.pack A trunk/thirdparty/cffi/.git/packed-refs A trunk/thirdparty/cffi/.git/refs/ A trunk/thirdparty/cffi/.git/refs/heads/ A trunk/thirdparty/cffi/.git/refs/heads/develop A trunk/thirdparty/cffi/.git/refs/heads/master A trunk/thirdparty/cffi/.git/refs/remotes/ A trunk/thirdparty/cffi/.git/refs/remotes/common-lisp/ A trunk/thirdparty/cffi/.git/refs/remotes/common-lisp/HEAD A trunk/thirdparty/cffi/.git/refs/remotes/common-lisp/fsbv A trunk/thirdparty/cffi/.git/refs/remotes/common-lisp/master A trunk/thirdparty/cffi/.git/refs/remotes/origin/ A trunk/thirdparty/cffi/.git/refs/remotes/origin/develop A trunk/thirdparty/cffi/.git/refs/remotes/origin/master A trunk/thirdparty/cffi/.git/refs/tags/ A trunk/thirdparty/cffi/.gitignore A trunk/thirdparty/cffi/COPYRIGHT A trunk/thirdparty/cffi/HEADER A trunk/thirdparty/cffi/Makefile A trunk/thirdparty/cffi/README A trunk/thirdparty/cffi/TODO A trunk/thirdparty/cffi/cffi-examples.asd A trunk/thirdparty/cffi/cffi-grovel.asd A trunk/thirdparty/cffi/cffi-tests.asd A trunk/thirdparty/cffi/cffi-uffi-compat.asd A trunk/thirdparty/cffi/cffi.asd A trunk/thirdparty/cffi/doc/ A trunk/thirdparty/cffi/doc/Makefile A trunk/thirdparty/cffi/doc/allegro-internals.txt A trunk/thirdparty/cffi/doc/cffi-manual.texinfo A trunk/thirdparty/cffi/doc/cffi-sys-spec.texinfo A trunk/thirdparty/cffi/doc/colorize-lisp-examples.lisp A trunk/thirdparty/cffi/doc/gendocs.sh A trunk/thirdparty/cffi/doc/gendocs_template A trunk/thirdparty/cffi/doc/mem-vector.txt A trunk/thirdparty/cffi/doc/shareable-vectors.txt A trunk/thirdparty/cffi/doc/style.css A trunk/thirdparty/cffi/examples/ A trunk/thirdparty/cffi/examples/examples.lisp A trunk/thirdparty/cffi/examples/gethostname.lisp A trunk/thirdparty/cffi/examples/gettimeofday.lisp A trunk/thirdparty/cffi/examples/mapping.lisp A trunk/thirdparty/cffi/examples/run-examples.lisp A trunk/thirdparty/cffi/examples/translator-test.lisp A trunk/thirdparty/cffi/grovel/ A trunk/thirdparty/cffi/grovel/asdf.lisp A trunk/thirdparty/cffi/grovel/common.h A trunk/thirdparty/cffi/grovel/grovel.lisp A trunk/thirdparty/cffi/grovel/invoke.lisp A trunk/thirdparty/cffi/grovel/package.lisp A trunk/thirdparty/cffi/scripts/ A trunk/thirdparty/cffi/scripts/release.sh A trunk/thirdparty/cffi/src/ A trunk/thirdparty/cffi/src/cffi-abcl.lisp A trunk/thirdparty/cffi/src/cffi-allegro.lisp A trunk/thirdparty/cffi/src/cffi-clisp.lisp A trunk/thirdparty/cffi/src/cffi-cmucl.lisp A trunk/thirdparty/cffi/src/cffi-corman.lisp A trunk/thirdparty/cffi/src/cffi-ecl.lisp A trunk/thirdparty/cffi/src/cffi-gcl.lisp A trunk/thirdparty/cffi/src/cffi-lispworks.lisp A trunk/thirdparty/cffi/src/cffi-openmcl.lisp A trunk/thirdparty/cffi/src/cffi-sbcl.lisp A trunk/thirdparty/cffi/src/cffi-scl.lisp A trunk/thirdparty/cffi/src/early-types.lisp A trunk/thirdparty/cffi/src/enum.lisp A trunk/thirdparty/cffi/src/features.lisp A trunk/thirdparty/cffi/src/foreign-vars.lisp A trunk/thirdparty/cffi/src/functions.lisp A trunk/thirdparty/cffi/src/libraries.lisp A trunk/thirdparty/cffi/src/package.lisp A trunk/thirdparty/cffi/src/strings.lisp A trunk/thirdparty/cffi/src/types.lisp A trunk/thirdparty/cffi/src/utils.lisp A trunk/thirdparty/cffi/tests/ A trunk/thirdparty/cffi/tests/GNUmakefile A trunk/thirdparty/cffi/tests/Makefile A trunk/thirdparty/cffi/tests/bindings.lisp A trunk/thirdparty/cffi/tests/callbacks.lisp A trunk/thirdparty/cffi/tests/compile.bat A trunk/thirdparty/cffi/tests/defcfun.lisp A trunk/thirdparty/cffi/tests/enum.lisp A trunk/thirdparty/cffi/tests/foreign-globals.lisp A trunk/thirdparty/cffi/tests/funcall.lisp A trunk/thirdparty/cffi/tests/libtest.c A trunk/thirdparty/cffi/tests/libtest2.c A trunk/thirdparty/cffi/tests/memory.lisp A trunk/thirdparty/cffi/tests/misc-types.lisp A trunk/thirdparty/cffi/tests/misc.lisp A trunk/thirdparty/cffi/tests/package.lisp A trunk/thirdparty/cffi/tests/random-tester.lisp A trunk/thirdparty/cffi/tests/run-tests.lisp A trunk/thirdparty/cffi/tests/strings.lisp A trunk/thirdparty/cffi/tests/struct.lisp A trunk/thirdparty/cffi/tests/union.lisp A trunk/thirdparty/cffi/uffi-compat/ A trunk/thirdparty/cffi/uffi-compat/uffi-compat.dx64fsl A trunk/thirdparty/cffi/uffi-compat/uffi-compat.lisp A trunk/thirdparty/cffi/uffi-compat/uffi.asd Change set too large, please see URL above From bknr at bknr.net Mon Sep 13 21:06:22 2010 From: bknr at bknr.net (BKNR Commits) Date: Mon, 13 Sep 2010 23:06:22 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/cl-gd/gd-uffi.lisp Message-ID: Revision: 4609 Author: manuel URL: http://bknr.net/trac/changeset/4609 remove ugly hack U trunk/thirdparty/cl-gd/gd-uffi.lisp Modified: trunk/thirdparty/cl-gd/gd-uffi.lisp =================================================================== --- trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 20:58:03 UTC (rev 4608) +++ trunk/thirdparty/cl-gd/gd-uffi.lisp 2010-09-13 21:06:22 UTC (rev 4609) @@ -74,12 +74,6 @@ (cx2 :int) (cy2 :int)) -;; XXX evil hack -#+(and :openmcl :64-bit-target) -(defmethod cffi::foreign-type-alignment ((type uffi-array-type)) - 4) - - (def-type pixels-array (* (* :unsigned-char))) (def-type pixels-row (* :unsigned-char)) (def-type t-pixels-array (* (* :int))) From bknr at bknr.net Tue Sep 14 09:29:35 2010 From: bknr at bknr.net (BKNR Commits) Date: Tue, 14 Sep 2010 11:29:35 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/uffi-1.6.0/ Message-ID: Revision: 4610 Author: manuel URL: http://bknr.net/trac/changeset/4610 delete uffi 1.6.0 D trunk/thirdparty/uffi-1.6.0/ From bknr at bknr.net Tue Sep 14 09:30:56 2010 From: bknr at bknr.net (BKNR Commits) Date: Tue, 14 Sep 2010 11:30:56 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/uffi/ Message-ID: Revision: 4611 Author: manuel URL: http://bknr.net/trac/changeset/4611 add new uffi from git A trunk/thirdparty/uffi/ A trunk/thirdparty/uffi/.git/ A trunk/thirdparty/uffi/.git/HEAD A trunk/thirdparty/uffi/.git/config A trunk/thirdparty/uffi/.git/description A trunk/thirdparty/uffi/.git/hooks/ A trunk/thirdparty/uffi/.git/hooks/applypatch-msg.sample A trunk/thirdparty/uffi/.git/hooks/commit-msg.sample A trunk/thirdparty/uffi/.git/hooks/post-commit.sample A trunk/thirdparty/uffi/.git/hooks/post-receive.sample A trunk/thirdparty/uffi/.git/hooks/post-update.sample A trunk/thirdparty/uffi/.git/hooks/pre-applypatch.sample A trunk/thirdparty/uffi/.git/hooks/pre-commit.sample A trunk/thirdparty/uffi/.git/hooks/pre-rebase.sample A trunk/thirdparty/uffi/.git/hooks/prepare-commit-msg.sample A trunk/thirdparty/uffi/.git/hooks/update.sample A trunk/thirdparty/uffi/.git/index A trunk/thirdparty/uffi/.git/info/ A trunk/thirdparty/uffi/.git/info/exclude A trunk/thirdparty/uffi/.git/logs/ A trunk/thirdparty/uffi/.git/logs/HEAD A trunk/thirdparty/uffi/.git/logs/refs/ A trunk/thirdparty/uffi/.git/logs/refs/heads/ A trunk/thirdparty/uffi/.git/logs/refs/heads/develop A trunk/thirdparty/uffi/.git/logs/refs/heads/master A trunk/thirdparty/uffi/.git/objects/ A trunk/thirdparty/uffi/.git/objects/info/ A trunk/thirdparty/uffi/.git/objects/pack/ A trunk/thirdparty/uffi/.git/objects/pack/pack-806cdea90524e457d9cba16b78457b9b8d4c7e3f.idx A trunk/thirdparty/uffi/.git/objects/pack/pack-806cdea90524e457d9cba16b78457b9b8d4c7e3f.pack A trunk/thirdparty/uffi/.git/packed-refs A trunk/thirdparty/uffi/.git/refs/ A trunk/thirdparty/uffi/.git/refs/heads/ A trunk/thirdparty/uffi/.git/refs/heads/develop A trunk/thirdparty/uffi/.git/refs/heads/master A trunk/thirdparty/uffi/.git/refs/remotes/ A trunk/thirdparty/uffi/.git/refs/remotes/b9/ A trunk/thirdparty/uffi/.git/refs/remotes/b9/HEAD A trunk/thirdparty/uffi/.git/refs/tags/ A trunk/thirdparty/uffi/.gitignore A trunk/thirdparty/uffi/AUTHORS A trunk/thirdparty/uffi/ChangeLog A trunk/thirdparty/uffi/INSTALL A trunk/thirdparty/uffi/LICENSE A trunk/thirdparty/uffi/Makefile A trunk/thirdparty/uffi/Makefile.common A trunk/thirdparty/uffi/NEWS A trunk/thirdparty/uffi/README A trunk/thirdparty/uffi/TODO A trunk/thirdparty/uffi/benchmarks/ A trunk/thirdparty/uffi/benchmarks/.gitignore A trunk/thirdparty/uffi/benchmarks/Makefile A trunk/thirdparty/uffi/benchmarks/allocation.lisp A trunk/thirdparty/uffi/debian/ A trunk/thirdparty/uffi/debian/.gitignore A trunk/thirdparty/uffi/debian/README.Debian A trunk/thirdparty/uffi/debian/changelog A trunk/thirdparty/uffi/debian/cl-uffi.doc-base A trunk/thirdparty/uffi/debian/compat A trunk/thirdparty/uffi/debian/control A trunk/thirdparty/uffi/debian/copyright A trunk/thirdparty/uffi/debian/cvsbp-prepare.sh A trunk/thirdparty/uffi/debian/docs A trunk/thirdparty/uffi/debian/make-upstream.sh A trunk/thirdparty/uffi/debian/rules A trunk/thirdparty/uffi/debian/source/ A trunk/thirdparty/uffi/debian/source/format A trunk/thirdparty/uffi/debian/upload.sh A trunk/thirdparty/uffi/debian/watch A trunk/thirdparty/uffi/doc/ A trunk/thirdparty/uffi/doc/.gitignore A trunk/thirdparty/uffi/doc/COPYING.GFDL A trunk/thirdparty/uffi/doc/Makefile A trunk/thirdparty/uffi/doc/appendix.xml A trunk/thirdparty/uffi/doc/bookinfo.xml A trunk/thirdparty/uffi/doc/catalog-darwin.xml A trunk/thirdparty/uffi/doc/catalog-debian.xml A trunk/thirdparty/uffi/doc/catalog-mandrake.xml A trunk/thirdparty/uffi/doc/catalog-suse.xml A trunk/thirdparty/uffi/doc/catalog-suse90.xml A trunk/thirdparty/uffi/doc/catalog-suse91.xml A trunk/thirdparty/uffi/doc/catalog-ubuntu.xml A trunk/thirdparty/uffi/doc/entities.inc A trunk/thirdparty/uffi/doc/fo.xsl A trunk/thirdparty/uffi/doc/glossary.xml A trunk/thirdparty/uffi/doc/html.tar.gz A trunk/thirdparty/uffi/doc/html.xsl A trunk/thirdparty/uffi/doc/html_chunk.xsl A trunk/thirdparty/uffi/doc/intro.xml A trunk/thirdparty/uffi/doc/notes.xml A trunk/thirdparty/uffi/doc/preface.xml A trunk/thirdparty/uffi/doc/ref_aggregate.xml A trunk/thirdparty/uffi/doc/ref_declare.xml A trunk/thirdparty/uffi/doc/ref_func_libr.xml A trunk/thirdparty/uffi/doc/ref_object.xml A trunk/thirdparty/uffi/doc/ref_primitive.xml A trunk/thirdparty/uffi/doc/ref_string.xml A trunk/thirdparty/uffi/doc/schemas.xml A trunk/thirdparty/uffi/doc/uffi.pdf A trunk/thirdparty/uffi/doc/uffi.xml A trunk/thirdparty/uffi/doc/xinclude.mod A trunk/thirdparty/uffi/examples/ A trunk/thirdparty/uffi/examples/.gitignore A trunk/thirdparty/uffi/examples/Makefile A trunk/thirdparty/uffi/examples/Makefile.msvc A trunk/thirdparty/uffi/examples/acl-compat-tester.lisp A trunk/thirdparty/uffi/examples/arrays.lisp A trunk/thirdparty/uffi/examples/atoifl.lisp A trunk/thirdparty/uffi/examples/c-test-fns.c A trunk/thirdparty/uffi/examples/c-test-fns.lisp A trunk/thirdparty/uffi/examples/compress.lisp A trunk/thirdparty/uffi/examples/file-socket.lisp A trunk/thirdparty/uffi/examples/getenv.lisp A trunk/thirdparty/uffi/examples/gethostname.lisp A trunk/thirdparty/uffi/examples/getshells.lisp A trunk/thirdparty/uffi/examples/gettime.lisp A trunk/thirdparty/uffi/examples/run-examples.lisp A trunk/thirdparty/uffi/examples/strtol.lisp A trunk/thirdparty/uffi/examples/test-examples.lisp A trunk/thirdparty/uffi/examples/union.lisp A trunk/thirdparty/uffi/src/ A trunk/thirdparty/uffi/src/.gitignore A trunk/thirdparty/uffi/src/Makefile A trunk/thirdparty/uffi/src/aggregates.lisp A trunk/thirdparty/uffi/src/corman/ A trunk/thirdparty/uffi/src/corman/corman-notes.txt A trunk/thirdparty/uffi/src/corman/getenv-ccl.lisp A trunk/thirdparty/uffi/src/functions.lisp A trunk/thirdparty/uffi/src/i18n.lisp A trunk/thirdparty/uffi/src/libraries.lisp A trunk/thirdparty/uffi/src/objects.lisp A trunk/thirdparty/uffi/src/os.lisp A trunk/thirdparty/uffi/src/package.lisp A trunk/thirdparty/uffi/src/primitives.lisp A trunk/thirdparty/uffi/src/readmacros-mcl.lisp A trunk/thirdparty/uffi/src/strings.lisp A trunk/thirdparty/uffi/tests/ A trunk/thirdparty/uffi/tests/.gitignore A trunk/thirdparty/uffi/tests/Makefile A trunk/thirdparty/uffi/tests/Makefile.msvc A trunk/thirdparty/uffi/tests/arrays.lisp A trunk/thirdparty/uffi/tests/atoifl.lisp A trunk/thirdparty/uffi/tests/casts.lisp A trunk/thirdparty/uffi/tests/compress.lisp A trunk/thirdparty/uffi/tests/foreign-loader.lisp A trunk/thirdparty/uffi/tests/foreign-var.lisp A trunk/thirdparty/uffi/tests/getenv.lisp A trunk/thirdparty/uffi/tests/gethostname.lisp A trunk/thirdparty/uffi/tests/i18n.lisp A trunk/thirdparty/uffi/tests/make.sh A trunk/thirdparty/uffi/tests/objects.lisp A trunk/thirdparty/uffi/tests/package.lisp A trunk/thirdparty/uffi/tests/rt.lisp A trunk/thirdparty/uffi/tests/strtol.lisp A trunk/thirdparty/uffi/tests/structs.lisp A trunk/thirdparty/uffi/tests/time.lisp A trunk/thirdparty/uffi/tests/uffi-c-test-lib.lisp A trunk/thirdparty/uffi/tests/uffi-c-test.c A trunk/thirdparty/uffi/tests/uffi-c-test.dylib A trunk/thirdparty/uffi/tests/union.lisp A trunk/thirdparty/uffi/tests/z.dylib A trunk/thirdparty/uffi/uffi-tests.asd A trunk/thirdparty/uffi/uffi.asd Change set too large, please see URL above From bknr at bknr.net Thu Sep 16 20:03:54 2010 From: bknr at bknr.net (BKNR Commits) Date: Thu, 16 Sep 2010 22:03:54 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/cl-paypal/ Message-ID: Revision: 4612 Author: manuel URL: http://bknr.net/trac/changeset/4612 update cl-paypal U trunk/thirdparty/cl-paypal/.git/FETCH_HEAD U trunk/thirdparty/cl-paypal/.git/config U trunk/thirdparty/cl-paypal/.git/index U trunk/thirdparty/cl-paypal/.git/logs/HEAD U trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop U trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop A trunk/thirdparty/cl-paypal/.git/objects/01/ A trunk/thirdparty/cl-paypal/.git/objects/01/4ae43b19ca8c12dfe54ede2e82ea17bd2937e9 A trunk/thirdparty/cl-paypal/.git/objects/04/ A trunk/thirdparty/cl-paypal/.git/objects/04/55a5a85b13284c3bb0d6c7576183e0f2f17951 A trunk/thirdparty/cl-paypal/.git/objects/09/ A trunk/thirdparty/cl-paypal/.git/objects/09/d8a07cd56070f899e46edf79e714981f527ce2 A trunk/thirdparty/cl-paypal/.git/objects/24/ A trunk/thirdparty/cl-paypal/.git/objects/24/0ccede6f1b2b422e970bd2c7ed1792aff757b3 A trunk/thirdparty/cl-paypal/.git/objects/25/ A trunk/thirdparty/cl-paypal/.git/objects/25/87865953d153953e5bf601b044cc97bdcf811e A trunk/thirdparty/cl-paypal/.git/objects/44/ A trunk/thirdparty/cl-paypal/.git/objects/44/78f716d94f5dc59d04f9f62ec3b2aeb1169b25 A trunk/thirdparty/cl-paypal/.git/objects/4e/ A trunk/thirdparty/cl-paypal/.git/objects/4e/0b6c60c05ab89c7001f9acc404819f413cb09f A trunk/thirdparty/cl-paypal/.git/objects/51/ A trunk/thirdparty/cl-paypal/.git/objects/51/defe1b2ebaee0e0710017b19c6818e692545f4 A trunk/thirdparty/cl-paypal/.git/objects/55/ A trunk/thirdparty/cl-paypal/.git/objects/55/dd658a3827288259e0a967f217cc3b67065262 A trunk/thirdparty/cl-paypal/.git/objects/5f/ A trunk/thirdparty/cl-paypal/.git/objects/5f/37e58c476ba929e50933e55a333141e1cd114d A trunk/thirdparty/cl-paypal/.git/objects/67/ A trunk/thirdparty/cl-paypal/.git/objects/67/af5a27e15c035a74f26b157657fdaa7a4d65c2 A trunk/thirdparty/cl-paypal/.git/objects/6b/ A trunk/thirdparty/cl-paypal/.git/objects/6b/ddc89a7a42e3a67a9bb915f89d3225c588a381 A trunk/thirdparty/cl-paypal/.git/objects/7f/ A trunk/thirdparty/cl-paypal/.git/objects/7f/1d6daa2bddd891225cca488fd1aff6737681cf A trunk/thirdparty/cl-paypal/.git/objects/7f/9652310daff4e11955d2d8f17281684773418d A trunk/thirdparty/cl-paypal/.git/objects/90/ A trunk/thirdparty/cl-paypal/.git/objects/90/ec22bee124705a9164f46a994cad1890bd92b5 A trunk/thirdparty/cl-paypal/.git/objects/98/ A trunk/thirdparty/cl-paypal/.git/objects/98/fc0087b8ef92c9fc00f76c53e72622b7724b5e A trunk/thirdparty/cl-paypal/.git/objects/9b/ A trunk/thirdparty/cl-paypal/.git/objects/9b/979913e521737c20de62b018d5cf27e3669677 A trunk/thirdparty/cl-paypal/.git/objects/c2/ A trunk/thirdparty/cl-paypal/.git/objects/c2/0018201a18656d158045890eddb52837c2f157 A trunk/thirdparty/cl-paypal/.git/objects/c4/ A trunk/thirdparty/cl-paypal/.git/objects/c4/26e95985485909a1167aaad04f07640fc10840 A trunk/thirdparty/cl-paypal/.git/objects/dc/ A trunk/thirdparty/cl-paypal/.git/objects/dc/72325bd48ff5dda592ab88b43641557222ab0a A trunk/thirdparty/cl-paypal/.git/objects/e2/ A trunk/thirdparty/cl-paypal/.git/objects/e2/ab3169d4a137f70c34779a764e523618120b43 A trunk/thirdparty/cl-paypal/.git/objects/ed/ A trunk/thirdparty/cl-paypal/.git/objects/ed/44b9694f69c3f4bbde5d6d5a5bd4b16ddc9de4 A trunk/thirdparty/cl-paypal/.git/objects/f0/ A trunk/thirdparty/cl-paypal/.git/objects/f0/1f64981f2de889caf5127e8f21166c4c1ef164 U trunk/thirdparty/cl-paypal/.git/refs/heads/develop U trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop A trunk/thirdparty/cl-paypal/.gitignore U trunk/thirdparty/cl-paypal/cl-paypal-test.lisp U trunk/thirdparty/cl-paypal/cl-paypal.lisp U trunk/thirdparty/cl-paypal/config.lisp U trunk/thirdparty/cl-paypal/package.lisp Change set too large, please see URL above From bknr at bknr.net Fri Sep 17 14:31:09 2010 From: bknr at bknr.net (BKNR Commits) Date: Fri, 17 Sep 2010 16:31:09 +0200 Subject: [bknr-cvs] manuel changed trunk/thirdparty/cl-paypal/ Message-ID: Revision: 4613 Author: manuel URL: http://bknr.net/trac/changeset/4613 updated cl-paypal U trunk/thirdparty/cl-paypal/.git/index U trunk/thirdparty/cl-paypal/.git/logs/HEAD U trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop U trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop A trunk/thirdparty/cl-paypal/.git/objects/13/ A trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290 A trunk/thirdparty/cl-paypal/.git/objects/3a/ A trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f A trunk/thirdparty/cl-paypal/.git/objects/b2/ A trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988 U trunk/thirdparty/cl-paypal/.git/refs/heads/develop U trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop U trunk/thirdparty/cl-paypal/cl-paypal.lisp Modified: trunk/thirdparty/cl-paypal/.git/index =================================================================== (Binary files differ) Modified: trunk/thirdparty/cl-paypal/.git/logs/HEAD =================================================================== --- trunk/thirdparty/cl-paypal/.git/logs/HEAD 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/logs/HEAD 2010-09-17 14:31:09 UTC (rev 4613) @@ -6,3 +6,4 @@ 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl 1284654667 +0200 commit: Added helper functions to handle running transactions f01f64981f2de889caf5127e8f21166c4c1ef164 7f1d6daa2bddd891225cca488fd1aff6737681cf Manuel Odendahl 1284667389 +0200 commit: Adapt to VERSION 63.0 7f1d6daa2bddd891225cca488fd1aff6737681cf 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl 1284667395 +0200 commit: Run test server on localhost +6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl 1284729628 +0200 commit: Parse answer of 63.0 requests Modified: trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop =================================================================== --- trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/logs/refs/heads/develop 2010-09-17 14:31:09 UTC (rev 4613) @@ -5,3 +5,4 @@ 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl 1284654667 +0200 commit: Added helper functions to handle running transactions f01f64981f2de889caf5127e8f21166c4c1ef164 7f1d6daa2bddd891225cca488fd1aff6737681cf Manuel Odendahl 1284667389 +0200 commit: Adapt to VERSION 63.0 7f1d6daa2bddd891225cca488fd1aff6737681cf 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl 1284667395 +0200 commit: Run test server on localhost +6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl 1284729628 +0200 commit: Parse answer of 63.0 requests Modified: trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop =================================================================== --- trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/logs/refs/remotes/writable/develop 2010-09-17 14:31:09 UTC (rev 4613) @@ -3,3 +3,4 @@ 98fc0087b8ef92c9fc00f76c53e72622b7724b5e 09d8a07cd56070f899e46edf79e714981f527ce2 Manuel Odendahl 1284540047 +0200 update by push 09d8a07cd56070f899e46edf79e714981f527ce2 f01f64981f2de889caf5127e8f21166c4c1ef164 Manuel Odendahl 1284654694 +0200 update by push f01f64981f2de889caf5127e8f21166c4c1ef164 6bddc89a7a42e3a67a9bb915f89d3225c588a381 Manuel Odendahl 1284667406 +0200 update by push +6bddc89a7a42e3a67a9bb915f89d3225c588a381 130c568d3db006611c3f633f04b6b51ef959b290 Manuel Odendahl 1284729642 +0200 update by push Added: trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290 =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cl-paypal/.git/objects/13/0c568d3db006611c3f633f04b6b51ef959b290 ___________________________________________________________________ Added: svn:mime-type + application/octet-stream Added: trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f =================================================================== --- trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f (rev 0) +++ trunk/thirdparty/cl-paypal/.git/objects/3a/d4612e40058844afafc7c28b6d86e9e4745c8f 2010-09-17 14:31:09 UTC (rev 4613) @@ -0,0 +1,20 @@ +x?Z[o?????+L#sUS???h6p!R\??Jv??h?YrVK?K????^????3???l?? ???????w?????????=?C??I-?ky??<-p}W?b??gj??*I?2?u^???JT?T???k?/D?:?0G??!?z??W?y?????x?:? ????a?p84??T?,??2???n+????>>:?i??8?????qsCaR??R0{x>?P"??O??K?F-{e??L????M?d??!'\?4S??``??:?=u5?}??y???*"?R?????n?~o?e>"?}b?G??h? bkY??-????F`???+???X?UW?+?eU?y???r?v??e?W? L??Z???a???*? +n9??m??c???&???????}i=?{???????9b??wLevd?Y;Sm +?????PlX??Vw??3?|?4???kP;? ????D~?{l? +aC??`??G2]?m???? ???d????j?F??X(?T'?????oz?HQmT??`???\bg??vW(??/B}A"W?8???@???"8?T?? +4 I??x????V?^W??9?z???????*?ogo????J$?? +???Z?X??4?? ? ?Hv?F??6T??jj??ba?ad?j?5s?]?:??u?????ki:>??C???:O$??u?S???nn^W?????r?&??Zj?P8??"k??F %????~???|??u$??>:????????H8??????15M56e&0?p?,??7??,kv???\????zQI???D?'+?!???t????3??`kX?_8???e?7QVKt?e???????Jc[???p? ???T???aN?i??K ?hxpo,?t???~?M??.;?0???F??u???L?4???<=???_@?Jtm#*?9? ?`&?y???-?? ????b??????^???????oN??vUuE)????43]??T(x?A???)??Lm?Q?&??[/???v????]????n?vs??&??=?ay?K?????Y????l???z????)?N?????i}!]??d*]???O0?'9??????T?8? |Z??eS??L?F6?x???:Lly^K???}????G'???+?`M+? ?wD?i+???Lk????P?1[?2e8???DRaK?M:?-I???b??E???J6&??#?Q???K?Y?78l???c?u8??3????[>,????S$??????fC???Z?V?S+??(??\3?Fx??????]?B?[????$???r?D??+y??24?|??TL??5q5?MP??????'7j???O?:{?~ ,????A????.?m<> 3??X???zF6??Na??&c5p???,4??????F??*-?????Pwp?Y??zP?tpkN1??.m?????)N?J?JG#???|G?o??- ? +????8H??D' ????????X??C??!?h??O}">??(3?d?yg? +???G??1??x??????@???????W? ??.??=?W??GI? 1?????&0??1?8 N?????a=?????5?)???w(???S?k? ?e?Du \ No newline at end of file Added: trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988 =================================================================== (Binary files differ) Property changes on: trunk/thirdparty/cl-paypal/.git/objects/b2/c22f4f042e5f95dc9d3ff9c4da5e36c966c988 ___________________________________________________________________ Added: svn:mime-type + application/octet-stream Modified: trunk/thirdparty/cl-paypal/.git/refs/heads/develop =================================================================== --- trunk/thirdparty/cl-paypal/.git/refs/heads/develop 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/refs/heads/develop 2010-09-17 14:31:09 UTC (rev 4613) @@ -1 +1 @@ -6bddc89a7a42e3a67a9bb915f89d3225c588a381 +130c568d3db006611c3f633f04b6b51ef959b290 Modified: trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop =================================================================== --- trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/.git/refs/remotes/writable/develop 2010-09-17 14:31:09 UTC (rev 4613) @@ -1 +1 @@ -6bddc89a7a42e3a67a9bb915f89d3225c588a381 +130c568d3db006611c3f633f04b6b51ef959b290 Modified: trunk/thirdparty/cl-paypal/cl-paypal.lisp =================================================================== --- trunk/thirdparty/cl-paypal/cl-paypal.lisp 2010-09-16 20:03:53 UTC (rev 4612) +++ trunk/thirdparty/cl-paypal/cl-paypal.lisp 2010-09-17 14:31:09 UTC (rev 4613) @@ -28,6 +28,8 @@ (destructuring-bind (parameter-string value) (cl-ppcre:split "=" entry :limit 2) (setf parameter-string (cl-ppcre:regex-replace "PAYMENTREQUEST_0_" parameter-string "")) + (setf parameter-string + (cl-ppcre:regex-replace "PAYMENTINFO_0_" parameter-string "")) (multiple-value-bind (match registers) (cl-ppcre:scan-to-strings "^L_(.*?)([0-9]+)$" parameter-string) (if match (let* ((parameter (intern (aref registers 0) :keyword)) @@ -156,9 +158,10 @@ (token (getf res :token))) (register-transaction token amt currencycode ip) (values - (format nil "https://~A/webscr?cmd=_express-checkout&token=~A" + (format nil "https://~A/webscr?cmd=_express-checkout&token=~A&useraction=~A" hostname - (hunchentoot:url-encode token)) + (hunchentoot:url-encode token) + useraction) res))) (defun get-express-checkout-info (token) From bknr at bknr.net Tue Sep 28 16:16:39 2010 From: bknr at bknr.net (BKNR Commits) Date: Tue, 28 Sep 2010 18:16:39 +0200 Subject: [bknr-cvs] edi changed trunk/thirdparty/drakma/ Message-ID: Revision: 4614 Author: edi URL: http://bknr.net/trac/changeset/4614 Don't funcall keywords U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/request.lisp Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2010-09-17 14:31:09 UTC (rev 4613) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2010-09-28 16:16:38 UTC (rev 4614) @@ -1,3 +1,5 @@ +Don't funcall symbols that aren't FBOUNDP (Far? Rideau) + Version 1.2.3 2010-08-05 Fix UPDATE-COOKIES (Vsevolod Dyomkin) Modified: trunk/thirdparty/drakma/request.lisp =================================================================== --- trunk/thirdparty/drakma/request.lisp 2010-09-17 14:31:09 UTC (rev 4613) +++ trunk/thirdparty/drakma/request.lisp 2010-09-28 16:16:38 UTC (rev 4614) @@ -570,7 +570,9 @@ (write-header "Connection" "close")) (loop for (name . value) in additional-headers do (write-header name "~A" - (cond ((or (functionp value) (symbolp value)) + (cond ((or (functionp value) + (and (symbolp value) + (fboundp value))) (funcall value)) (t value)))) (when content From bknr at bknr.net Thu Sep 30 23:59:12 2010 From: bknr at bknr.net (BKNR Commits) Date: Fri, 01 Oct 2010 01:59:12 +0200 Subject: [bknr-cvs] edi changed trunk/thirdparty/hunchentoot/ Message-ID: Revision: 4615 Author: edi URL: http://bknr.net/trac/changeset/4615 Handle clients which send "Expect: 100-continue" twice U trunk/thirdparty/hunchentoot/CHANGELOG U trunk/thirdparty/hunchentoot/acceptor.lisp U trunk/thirdparty/hunchentoot/headers.lisp Modified: trunk/thirdparty/hunchentoot/CHANGELOG =================================================================== --- trunk/thirdparty/hunchentoot/CHANGELOG 2010-09-28 16:16:38 UTC (rev 4614) +++ trunk/thirdparty/hunchentoot/CHANGELOG 2010-09-30 23:59:11 UTC (rev 4615) @@ -1,3 +1,6 @@ +Made sure "100 Continue" is returned even if the client sends "Expect: 100-continue" twice (reported by Gordon Sims) +Fixed typo in code which interprets transfer encodings + Version 1.1.1 2010-08-24 Exported WITHIN-REQUEST-P (Far? Rideau) Modified: trunk/thirdparty/hunchentoot/acceptor.lisp =================================================================== --- trunk/thirdparty/hunchentoot/acceptor.lisp 2010-09-28 16:16:38 UTC (rev 4614) +++ trunk/thirdparty/hunchentoot/acceptor.lisp 2010-09-30 23:59:11 UTC (rev 4615) @@ -318,7 +318,7 @@ (transfer-encodings (cdr (assoc* :transfer-encoding headers-in)))) (when transfer-encodings (setq transfer-encodings - (split "\\s*,\\*" transfer-encodings)) + (split "\\s*,\\s*" transfer-encodings)) (when (member "chunked" transfer-encodings :test #'equalp) (cond ((acceptor-input-chunking-p *acceptor*) ;; turn chunking on before we read the request body Modified: trunk/thirdparty/hunchentoot/headers.lisp =================================================================== --- trunk/thirdparty/hunchentoot/headers.lisp 2010-09-28 16:16:38 UTC (rev 4614) +++ trunk/thirdparty/hunchentoot/headers.lisp 2010-09-30 23:59:11 UTC (rev 4615) @@ -256,18 +256,21 @@ (maybe-write-to-header-stream first-line) (let ((headers (and protocol (read-http-headers stream *header-stream*)))) (unless protocol (setq protocol "HTTP/0.9")) - (when (equalp (cdr (assoc :expect headers :test #'eq)) "100-continue") - ;; handle 'Expect: 100-continue' header - (let ((continue-line - (format nil "HTTP/1.1 ~D ~A" - +http-continue+ - (reason-phrase +http-continue+)))) - (write-sequence (map 'list #'char-code continue-line) stream) - (write-sequence +crlf+ stream) - (write-sequence +crlf+ stream) - (force-output stream) - (maybe-write-to-header-stream continue-line) - (maybe-write-to-header-stream ""))) + ;; maybe handle 'Expect: 100-continue' header + (when-let (expectations (cdr (assoc* :expect headers))) + (when (member "100-continue" (split "\\s*,\\s*" expectations) :test #'equalp) + ;; according to 14.20 in the RFC - we should actually + ;; check if we have to respond with 417 here + (let ((continue-line + (format nil "HTTP/1.1 ~D ~A" + +http-continue+ + (reason-phrase +http-continue+)))) + (write-sequence (map 'list #'char-code continue-line) stream) + (write-sequence +crlf+ stream) + (write-sequence +crlf+ stream) + (force-output stream) + (maybe-write-to-header-stream continue-line) + (maybe-write-to-header-stream "")))) (values headers (as-keyword method) url-string