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))