From c345c39f80e9607d1ddff612db79b3e28a5fad93 Mon Sep 17 00:00:00 2001
From: Sergey Fedorov <barracuda@macos-powerpc.org>
Date: Tue, 12 Nov 2024 23:45:46 +0800
Subject: [PATCH] common_lisp PG: add option to increase dynamic space

Useful for SBCL on 32-bit platforms.
See: https://github.com/sharplispers/ironclad/issues/80
---
 _resources/port1.0/group/common_lisp-1.0.tcl | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/_resources/port1.0/group/common_lisp-1.0.tcl b/_resources/port1.0/group/common_lisp-1.0.tcl
index 27fc75467ce80..3828165ee77ea 100644
--- a/_resources/port1.0/group/common_lisp-1.0.tcl
+++ b/_resources/port1.0/group/common_lisp-1.0.tcl
@@ -50,6 +50,12 @@ default common_lisp.build_run   yes
 options common_lisp.systems
 default common_lisp.systems     {*.asd}
 
+# This option may be needed for some ports on 32-bit systems.
+# https://github.com/sharplispers/ironclad/issues/80
+# It does not affect 64-bit builds, regardless of its value.
+options common_lisp.large_heap
+default common_lisp.large_heap  no
+
 categories-append               lisp
 
 use_configure                   no
@@ -204,10 +210,14 @@ proc common_lisp::asdf_operate {op name build_system_path} {
 }
 
 proc common_lisp::sbcl_asdf_operate {op name build_system_path} {
-    global prefix
+    global prefix build_arch
     ui_info "Execute asdf:${op} at ${name} by SBCL"
 
-    common_lisp::run "${prefix}/bin/sbcl --no-sysinit --no-userinit --non-interactive" "--eval" ${op} ${name} ${build_system_path}
+    if {[option common_lisp.large_heap] && (${build_arch} in [list i386 ppc])} {
+        common_lisp::run "${prefix}/bin/sbcl --dynamic-space-size 1500 --no-sysinit --no-userinit --non-interactive" "--eval" ${op} ${name} ${build_system_path}
+    } else {
+        common_lisp::run "${prefix}/bin/sbcl --no-sysinit --no-userinit --non-interactive" "--eval" ${op} ${name} ${build_system_path}
+    }
 }
 
 proc common_lisp::ecl_asdf_operate {op name build_system_path} {