Description: <short summary of the patch>
 TODO: Put a short summary on the line above and replace this paragraph
 with a longer explanation of this change. Complete the meta-information
 with other relevant fields (see below for details). To make it easier, the
 information below has been extracted from the changelog. Adjust it or drop
 it.
 .
 gcl27 (2.7.0-2) unstable; urgency=medium
 .
   * Version_2_7_0pre4
Author: Camm Maguire <camm@debian.org>

---
The information above should follow the Patch Tagging Guidelines, please
checkout https://dep.debian.net/deps/dep3/ to learn about the format. Here
are templates for supplementary fields that you might want to add:

Origin: (upstream|backport|vendor|other), (<patch-url>|commit:<commit-id>)
Bug: <upstream-bugtracker-url>
Bug-Debian: https://bugs.debian.org/<bugnumber>
Bug-Ubuntu: https://launchpad.net/bugs/<bugnumber>
Forwarded: (no|not-needed|<patch-forwarded-url>)
Applied-Upstream: <version>, (<commit-url>|commit:<commid-id>)
Reviewed-By: <name and email of someone who approved/reviewed the patch>
Last-Update: 2023-12-20

--- gcl27-2.7.0.orig/ansi-tests/gclload.lsp
+++ gcl27-2.7.0/ansi-tests/gclload.lsp
@@ -15,6 +15,8 @@
   (assert (not (string-equal type "lsp")))
   (mapc #'delete-file files))
 
+#+(and gcl x86_64)(si::set-log-maxpage-bound 30)
+
 (load "gclload1.lsp")
 (load "gclload2.lsp")
 
--- gcl27-2.7.0.orig/git.tag
+++ gcl27-2.7.0/git.tag
@@ -1,2 +1,2 @@
-"Version_2_7_0pre2"
+"Version_2_7_0pre4"
 
--- gcl27-2.7.0.orig/makefile
+++ gcl27-2.7.0/makefile
@@ -98,7 +98,8 @@ $(PORTDIR)/saved_pre_gcl: $(HDIR)cmpincl
 	rm -f o/cmpinclude.h ; cp h/cmpinclude.h o
 #	(cd $(ODIR); $(MAKE) all)
 	cd $(@D) && $(MAKE) $(@F)
-	cd $(@D) && echo '(time (let ((*features* (cons :pre-gcl *features*)))(load "boot.lisp")))' | ./$(@F)
+	cd $(@D) && echo '(time (let ((*features* (cons :pre-gcl *features*)))(load "boot.lisp")(si::save-system "$(@F)_temp")))' | ./$(@F)
+	[ "$(X_LIBS)" == "" ] || (cd xgcl-2 && $(MAKE) LISP=$$(pwd)/../$(@)_temp)
 #	cd $(ODIR) && rm -f boot.h && echo "#define LISP_BOOT" > boot.h && $(MAKE) all
 	cd $(@D) && $(MAKE) saved_gcl && mv saved_gcl $(@F)
 	touch $< $@
@@ -112,7 +113,6 @@ $(PORTDIR)/saved_gcl1: $(PORTDIR)/saved_
 	cd $(@D) && $(MAKE) saved_gcl && mv saved_gcl $(@F)
 
 $(PORTDIR)/saved_gcl: $(PORTDIR)/saved_gcl1 $(HDIR)cmpinclude.h
-	[ "$(X_LIBS)" == "" ] || (cd xgcl-2 && $(MAKE) LISP=../$<)
 	cd $(@D) && echo '(time (load "boot.lisp"))' | ./$(<F) && $(MAKE) $(@F)
 	echo '(si::do-recomp)' | $@ && cd $(@D) && $(MAKE) $(@F)
 
--- gcl27-2.7.0.orig/xgcl-2/makefile
+++ gcl27-2.7.0/xgcl-2/makefile
@@ -2,7 +2,7 @@
 
 all: objects docs
 
-LISP?=../unixport/saved_gcl
+LISP?=$(shell echo $$(pwd)/../unixport/saved_gcl)
 APPEND=../xbin/append
 
 objects: $(shell ls -1 *.c *.o) #$(LISP)
@@ -25,7 +25,7 @@ docs: dwdoc/dwdoccontents.html #dwdoc.pd
 dwdoc/dwdoccontents.html: $(LISP)
 	mkdir -p $(@D) && \
 	cd $(@D) && \
-	echo '(load "../sysdef.lisp")(in-package :xlib)(defmacro while (test &rest forms) `(loop (unless ,test (return)) ,@forms))(load "../gcl_tohtml.lsp")(load "../gcl_index.lsp")(tohtml "../dwdoc.tex" "dwdoc")(with-open-file (s "dwdoccontents.html" :direction :output) (let ((*standard-output* s)) (xlib::makecont "../dwdoc.tex" 1 "dwdoc")))(with-open-file (s "dwdocindex.html" :direction :output) (let ((*standard-output* s)) (xlib::printindex indexdata "dwdoc")))' | ../$<
+	echo '(load "../sysdef.lisp")(in-package :xlib)(defmacro while (test &rest forms) `(loop (unless ,test (return)) ,@forms))(load "../gcl_tohtml.lsp")(load "../gcl_index.lsp")(tohtml "../dwdoc.tex" "dwdoc")(with-open-file (s "dwdoccontents.html" :direction :output) (let ((*standard-output* s)) (xlib::makecont "../dwdoc.tex" 1 "dwdoc")))(with-open-file (s "dwdocindex.html" :direction :output) (let ((*standard-output* s)) (xlib::printindex indexdata "dwdoc")))' | $<
 
 dwdoc.pdf: dwdoc.tex
 	pdflatex $<
