<pre style='margin:0'>
Zero King (l2dy) pushed a commit to branch master
in repository macports-ports.

</pre>
<p><a href="https://github.com/macports/macports-ports/commit/9606b3cbbcb532f553f3208d2f611bdf547bca91">https://github.com/macports/macports-ports/commit/9606b3cbbcb532f553f3208d2f611bdf547bca91</a></p>
<pre style="white-space: pre; background: #F8F8F8"><span style='display:block; white-space:pre;color:#808000;'>commit 9606b3cbbcb532f553f3208d2f611bdf547bca91
</span>Author: Kirill A. Korinsky <kirill@korins.ky>
AuthorDate: Sat Nov 25 09:36:24 2023 +0000

<span style='display:block; white-space:pre;color:#404040;'>    cl-fastcgi: update to 20230906
</span>---
 lisp/cl-fastcgi/Portfile                           | 14 ++++----
 .../files/path-fix-type-consistency-problem.diff   | 41 ++++++++++++++++++++++
 2 files changed, 49 insertions(+), 6 deletions(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/lisp/cl-fastcgi/Portfile b/lisp/cl-fastcgi/Portfile
</span><span style='display:block; white-space:pre;color:#808080;'>index 7b919dc1786..48b1f821b82 100644
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/lisp/cl-fastcgi/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lisp/cl-fastcgi/Portfile
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4,13 +4,13 @@ PortSystem          1.0
</span> PortGroup           github 1.0
 PortGroup           common_lisp 1.0
 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-github.setup        KDr2 cl-fastcgi de8b49b26de9863996ec18db28af8ab7e8ac4e20
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-version             20210101
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-revision            1
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+github.setup        KDr2 cl-fastcgi 2a70446582bc8b9469e9d16751735da1e92d871c
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+version             20230806
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+revision            0
</span> 
<span style='display:block; white-space:pre;background:#ffe0e0;'>-checksums           rmd160  1af3cdb78c08352266d3ecf038ce81fcbe28d658 \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    sha256  e7e2d97ce97397910c94d262052755614ae5d13fc483aa7d1e4b031e1ee5bd54 \
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-                    size    4654
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+checksums           rmd160  b08829705f1d0af9935055a4513a071df768c9ce \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    sha256  ad2e617b56ea1d1c286843f36a1b06450f1b088da601397c9a33fc07168702e9 \
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+                    size    4730
</span> 
 categories-append   devel
 maintainers         {@catap korins.ky:kirill} openmaintainer
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -20,6 +20,8 @@ description         A Generic Version of SB-FastCGI, runs on mostly Common Lisp
</span> 
 long_description    {*}${description}
 
<span style='display:block; white-space:pre;background:#e0ffe0;'>+patchfiles-append   path-fix-type-consistency-problem.diff
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> depends_lib-append  port:cl-cffi \
                     port:cl-usocket \
                     port:fcgi
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/lisp/cl-fastcgi/files/path-fix-type-consistency-problem.diff b/lisp/cl-fastcgi/files/path-fix-type-consistency-problem.diff
</span>new file mode 100644
<span style='display:block; white-space:pre;color:#808080;'>index 00000000000..123fa8e3e35
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>--- /dev/null
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/lisp/cl-fastcgi/files/path-fix-type-consistency-problem.diff
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -0,0 +1,41 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+https://github.com/KDr2/cl-fastcgi/pull/7
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+diff --git cl-fastcgi-x.lisp cl-fastcgi-x.lisp
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+index 8e88676..f5b0c0c 100644
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+--- cl-fastcgi-x.lisp
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++++ cl-fastcgi-x.lisp
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+@@ -52,21 +52,19 @@
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+       ((eql stream :err)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        (setf ostr (foreign-slot-value req 'fcgx-request 'err)))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+       (t (setf ostr (foreign-slot-value req 'fcgx-request 'out))))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-    (macrolet ((cputs (type pointer)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                  `(foreign-funcall "FCGX_PutStr"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                                    ,type ,pointer
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                                    :int #+sbcl (length (sb-ext:string-to-octets content))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                                         #+ccl (ccl:string-size-in-octets content)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                                         #+clisp (length (convert-string-to-bytes content))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                                         #-(or sbcl ccl clisp) (babel:string-size-in-octets content)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                                    :pointer ostr
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                                    :int)))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-      (etypecase content
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-        ((vector (unsigned-byte 8)) (with-pointer-to-vector-data (p content)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-                                      (cputs :pointer p)))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-        ;; Let foreign-funcall try to convert any non-vector to a :string
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-        (T (cputs :string content))))))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+-
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++    (etypecase content
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++      ((vector (unsigned-byte 8))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++       (with-pointer-to-vector-data (p content)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++         (foreign-funcall "FCGX_PutStr" :pointer p :int (length content) :pointer ostr :int)))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++      ;; Let foreign-funcall try to convert any non-vector to a string.
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++      (T (foreign-funcall "FCGX_PutStr"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++                          :string content
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++                          :int #+sbcl (length (sb-ext:string-to-octets content))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++                               #+ccl (ccl:string-size-in-octets content)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++                               #+clisp (length (convert-string-to-bytes content))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++                               #-(or sbcl ccl clisp) (babel:string-size-in-octets content)
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++                          :pointer ostr
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>++                          :int)))))
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ 
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ ;;TODO : make these bufffers thread-local?
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ (defun fcgx-read (req)
</span></pre><pre style='margin:0'>

</pre>