From 944f53fb00794f4bc96700dd14df1e88b6cd5623 Mon Sep 17 00:00:00 2001
From: Christophe Rhodes <csr21@cantab.net>
Date: Thu, 17 Nov 2022 22:29:26 +0000
Subject: [PATCH] Fix build on arm64 with clisp as host

Make sure the offset constants are defined while compiling vm.lisp.
---
 src/compiler/arm64/vm.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/compiler/arm64/vm.lisp b/src/compiler/arm64/vm.lisp
index ae6d7c7fa..2a151be58 100644
--- a/src/compiler/arm64/vm.lisp
+++ b/src/compiler/arm64/vm.lisp
@@ -23,7 +23,8 @@
 (macrolet ((defreg (name offset)
              (let ((offset-sym (symbolicate name "-OFFSET")))
                `(progn
-                  (defconstant ,offset-sym ,offset)
+                  (eval-when (:compile-toplevel :load-toplevel :execute)
+                    (defconstant ,offset-sym ,offset))
                   (setf (svref *register-names* ,offset-sym) ,(symbol-name name)))))
 
            (defregset (name &rest regs)
-- 
2.30.2

out/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff'>refs</a><a class='active' href='/guix/log/etc/guix-install.sh'>log</a><a href='/guix/tree/etc/guix-install.sh?id=0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff'>tree</a><a href='/guix/commit/etc/guix-install.sh?id=0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff'>commit</a><a href='/guix/diff/etc/guix-install.sh?id=0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/etc/guix-install.sh'>
<input type='hidden' name='id' value='0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff'>root</a>/<a href='/guix/log/etc?id=0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff'>etc</a>/<a href='/guix/log/etc/guix-install.sh?id=0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff'>guix-install.sh</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/etc/guix-install.sh?id=0c0fdae4ab6480fcb34bc907a2e2a419d3c4a3ff&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-11-07 20:09:59 +0100'>2021-11-07</span></td><td><a href='/guix/commit/etc/guix-install.sh?id=071f4e3db39cebf1623d9b7437b0d39dde3d219a'>guix-install.sh: Undo some bugs introduced by shellcheck.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/guix-install.sh: Unquote all file names containing ~root.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2021-09-29 16:56:40 +0200'>2021-09-29</span></td><td><a href='/guix/commit/etc/guix-install.sh?id=e4ed0b3969ddbe44347c468c96ccfa057b2dd256'>guix-install.sh: Don't swallow wget errors.</a><span class='msg-avail'>...<span class='msg-tooltip'>Using ‘-q’ suppresses *all* stderr output, including errors.

* etc/guix-install.sh (chk_gpg_keyring, guix_get_bin_list, guix_get_bin):
Substitute ‘--no-verbose’ for ‘-q’.

Reported by Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>