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