From 290a95844c1f8cc2ccb51ff351e42765b3f737b0 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 13 Mar 1990 11:56:10 +0000
Subject: [PATCH] Forgot to have the stub function for sap-ref-sap do anything.
  Oops.

---
 code/alieneval.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index 65df8933e..ea65b6510 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -84,7 +84,8 @@
   (sap-ref-32 sap offset))
 
 (defun sap-ref-sap (sap offset)
-  "Returns the 32-bit system-area-pointer at OFFSET words from SAP.")
+  "Returns the 32-bit system-area-pointer at OFFSET words from SAP."
+  (sap-ref-sap sap offset))
 
 (defun signed-sap-ref-8 (sap offset)
   "Returns the signed 8-bit byte at Offset bytes from SAP."
-- 
GitLab