diff --git a/code/alieneval.lisp b/code/alieneval.lisp index 65df8933e3ed723f4dfcf81475e3cc07c97e4b82..ea65b6510119366796eb38bbb37bec3d3a03b038 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."