From 9588f60800c903b0b045c9f2ac5e7ba3d7a92d98 Mon Sep 17 00:00:00 2001 From: Manfred Bergmann Date: Thu, 18 Jun 2026 15:41:43 +0200 Subject: [PATCH] Add CL-Amiga (clamiga) port Add #+cl-amiga branches in Code/port.lisp: lock/memory-barrier stubs (threading maps onto CL-Amiga's MP package) and a make-char helper. FSet's own test suite passes 17/17 on CL-Amiga (requires misc-extensions >= 4.2.4). --- Code/port.lisp | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/Code/port.lisp b/Code/port.lisp index b580aa2..f02dcc6 100644 --- a/Code/port.lisp +++ b/Code/port.lisp @@ -185,6 +185,19 @@ (defmacro write-memory-barrier () 'nil)) +#+cl-amiga +(progn + (defun make-lock (&optional name) + (declare (ignore name)) + nil) + (defmacro with-lock ((lock &key (wait? t)) &body body) + (declare (ignore lock wait?)) + `(progn . ,body)) + (defmacro read-memory-barrier () + 'nil) + (defmacro write-memory-barrier () + 'nil)) + #+(and ecl (not threads)) (progn @@ -396,6 +409,10 @@ (defun make-char (code bits) (code-char (+ code (ash bits 8)))) +#+cl-amiga +(defun make-char (code bits) + (code-char (+ code (ash bits 8)))) + ;;; I'm one of these weird people who detests `loop' (except in its CLtL1 form). (defmacro while (pred &body body) `(do () ((not ,pred))