From d936a7febfbd6410bd0f0dac0890673c17d72095 Mon Sep 17 00:00:00 2001 From: iska Date: Fri, 8 May 2026 14:33:21 +0500 Subject: [PATCH 1/2] Mezzano is 64-bit --- compiler/cross-boot.lisp | 2 +- system/cold-start.lisp | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/cross-boot.lisp b/compiler/cross-boot.lisp index 59cee20ba..050f9fc40 100644 --- a/compiler/cross-boot.lisp +++ b/compiler/cross-boot.lisp @@ -266,7 +266,7 @@ (alexandria:define-constant sys.int::lambda-list-keywords '(&allow-other-keys &aux &body &environment &key &optional &rest &whole sys.int::&closure) :test 'equal) -(defvar sys.int::*features* '(:unicode :little-endian :mezzano :ieee-floating-point :ansi-cl :common-lisp)) +(defvar sys.int::*features* '(:unicode :little-endian :mezzano :ieee-floating-point :ansi-cl :common-lisp :64-bit)) ;; Replicated from system/package.lisp. Needed to define packages in package.lisp (in-package :mezzano.internals) diff --git a/system/cold-start.lisp b/system/cold-start.lisp index b4ca09747..42dfdd258 100644 --- a/system/cold-start.lisp +++ b/system/cold-start.lisp @@ -266,7 +266,8 @@ structures to exist, and for memory to be allocated, but not much beyond that." :mezzano :ieee-floating-point :ansi-cl - :common-lisp) + :common-lisp + :64-bit) *macroexpand-hook* 'funcall most-positive-fixnum #.(- (expt 2 (- 64 +n-fixnum-bits+ 1)) 1) most-negative-fixnum #.(- (expt 2 (- 64 +n-fixnum-bits+ 1))) From 1d61bf2c7322986ad8f5d3fe16559ebc308f1e75 Mon Sep 17 00:00:00 2001 From: iska Date: Sun, 17 May 2026 16:19:38 +0500 Subject: [PATCH 2/2] indent --- system/cold-start.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/system/cold-start.lisp b/system/cold-start.lisp index 42dfdd258..78200c974 100644 --- a/system/cold-start.lisp +++ b/system/cold-start.lisp @@ -267,7 +267,7 @@ structures to exist, and for memory to be allocated, but not much beyond that." :ieee-floating-point :ansi-cl :common-lisp - :64-bit) + :64-bit) *macroexpand-hook* 'funcall most-positive-fixnum #.(- (expt 2 (- 64 +n-fixnum-bits+ 1)) 1) most-negative-fixnum #.(- (expt 2 (- 64 +n-fixnum-bits+ 1)))