<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">

<html lang="en">

<head>

<meta content="text/html; charset=US-ASCII" http-equiv="Content-Type">

<title>

GitLab

</title>

<style>img {

max-width: 100%; height: auto;

}

</style>

</head>

<body>

<div class="content">

<h3>

Raymond Toy pushed to branch rtoy-amd64-p1

at <a href="https://gitlab.common-lisp.net/cmucl/cmucl">cmucl / cmucl</a>

</h3>

<h4>

Commits:

</h4>

<ul>

<li>

<strong><a href="https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef49a0dceb16179ff3329873b8c99e5ee8d96c6b">ef49a0dc</a></strong>

<div>

<span>by Raymond Toy</span>

<i>at 2020-08-23T08:51:57-07:00</i>

</div>

<pre class="commit-message" style="white-space: pre-wrap; margin: 0;">SAP offsets should be 64 bits

Just hard-code 64 like for alpha for now.  We can fix this up later.

</pre>

</li>

</ul>

<h4>1 changed file:</h4>

<ul>

<li class="file-stats">

<a href="#07f62370eea13e3cd02d4eb4a40347ede89c6ee3">

src/code/sap.lisp

</a>

</li>

</ul>

<h4>Changes:</h4>

<li id="07f62370eea13e3cd02d4eb4a40347ede89c6ee3">

<a href="https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef49a0dceb16179ff3329873b8c99e5ee8d96c6b#07f62370eea13e3cd02d4eb4a40347ede89c6ee3"><strong>src/code/sap.lisp</strong></a>

<hr>

<table class="code white" style="font-family: monospace; font-size: 90%;" bgcolor="#fff" width="100%" cellpadding="0" cellspacing="0">

<tr class="line_holder match" id="" style="line-height: 1.6;">

<td class="diff-line-num unfold js-unfold old_line" data-linenumber="80" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="diff-line-num unfold js-unfold new_line" data-linenumber="80" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="line_content match " style="padding-left: 0.5em; padding-right: 0.5em; color: rgba(0,0,0,0.3);" bgcolor="#fafafa">@@ -80,19 +80,19 @@</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="80" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

80

</td>

<td class="diff-line-num new_line" data-linenumber="80" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

80

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC80" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="81" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

81

</td>

<td class="diff-line-num new_line" data-linenumber="81" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

81

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC81" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">int-sap</span> <span class="p">(</span><span class="nv" style="color: #008080;">int</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="82" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

82

</td>

<td class="diff-line-num new_line" data-linenumber="82" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

82

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC82" class="line" lang="common_lisp">  <span class="s" style="color: #d14;">"Converts an integer into a System Area Pointer."</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="83" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

83

</td>

<td class="diff-line-num new_line old" data-linenumber="83" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC83" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">unsigned-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">int</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="84" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="83" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

83

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC83" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">unsigned-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">int</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="84" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

84

</td>

<td class="diff-line-num new_line" data-linenumber="84" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

84

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC84" class="line" lang="common_lisp">  <span class="p">(</span><span class="nv" style="color: #008080;">int-sap</span> <span class="nv" style="color: #008080;">int</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="85" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

85

</td>

<td class="diff-line-num new_line" data-linenumber="85" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

85

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC85" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="86" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

86

</td>

<td class="diff-line-num new_line" data-linenumber="86" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

86

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC86" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">sap-ref-8</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="87" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

87

</td>

<td class="diff-line-num new_line" data-linenumber="87" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

87

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC87" class="line" lang="common_lisp">  <span class="s" style="color: #d14;">"Returns the 8-bit byte at OFFSET bytes from SAP."</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="88" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

88

</td>

<td class="diff-line-num new_line" data-linenumber="88" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

88

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC88" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="89" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

89

</td>

<td class="diff-line-num new_line old" data-linenumber="89" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC89" class="line" lang="common_lisp">      <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="90" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="89" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

89

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC89" class="line" lang="common_lisp">      <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="90" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

90

</td>

<td class="diff-line-num new_line" data-linenumber="90" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

90

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC90" class="line" lang="common_lisp">  <span class="p">(</span><span class="nv" style="color: #008080;">sap-ref-8</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="91" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

91

</td>

<td class="diff-line-num new_line" data-linenumber="91" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

91

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC91" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="92" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

92

</td>

<td class="diff-line-num new_line" data-linenumber="92" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

92

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC92" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">sap-ref-16</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="93" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

93

</td>

<td class="diff-line-num new_line" data-linenumber="93" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

93

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC93" class="line" lang="common_lisp">  <span class="s" style="color: #d14;">"Returns the 16-bit word at OFFSET bytes from SAP."</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="94" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

94

</td>

<td class="diff-line-num new_line" data-linenumber="94" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

94

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC94" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="95" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

95

</td>

<td class="diff-line-num new_line old" data-linenumber="95" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC95" class="line" lang="common_lisp">      <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">1-</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">63</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="96" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="95" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

95

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC95" class="line" lang="common_lisp">      <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">1-</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">63</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="96" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

96

</td>

<td class="diff-line-num new_line" data-linenumber="96" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

96

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC96" class="line" lang="common_lisp">  <span class="p">(</span><span class="nv" style="color: #008080;">sap-ref-16</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="97" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

97

</td>

<td class="diff-line-num new_line" data-linenumber="97" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

97

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC97" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="98" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

98

</td>

<td class="diff-line-num new_line" data-linenumber="98" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

98

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC98" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">sap-ref-32</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder match" id="" style="line-height: 1.6;">

<td class="diff-line-num unfold js-unfold old_line" data-linenumber="110" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="diff-line-num unfold js-unfold new_line" data-linenumber="110" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="line_content match " style="padding-left: 0.5em; padding-right: 0.5em; color: rgba(0,0,0,0.3);" bgcolor="#fafafa">@@ -110,7 +110,7 @@</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="110" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

110

</td>

<td class="diff-line-num new_line" data-linenumber="110" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

110

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC110" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">sap-ref-sap</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="111" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

111

</td>

<td class="diff-line-num new_line" data-linenumber="111" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

111

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC111" class="line" lang="common_lisp">  <span class="s" style="color: #d14;">"Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="112" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

112

</td>

<td class="diff-line-num new_line" data-linenumber="112" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

112

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC112" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="113" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

113

</td>

<td class="diff-line-num new_line old" data-linenumber="113" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC113" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="114" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="113" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

113

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC113" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="114" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

114

</td>

<td class="diff-line-num new_line" data-linenumber="114" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

114

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC114" class="line" lang="common_lisp">  <span class="p">(</span><span class="nv" style="color: #008080;">sap-ref-sap</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="115" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

115

</td>

<td class="diff-line-num new_line" data-linenumber="115" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

115

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC115" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="116" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

116

</td>

<td class="diff-line-num new_line" data-linenumber="116" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

116

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC116" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">sap-ref-single</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder match" id="" style="line-height: 1.6;">

<td class="diff-line-num unfold js-unfold old_line" data-linenumber="135" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="diff-line-num unfold js-unfold new_line" data-linenumber="135" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="line_content match " style="padding-left: 0.5em; padding-right: 0.5em; color: rgba(0,0,0,0.3);" bgcolor="#fafafa">@@ -135,13 +135,13 @@</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="135" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

135

</td>

<td class="diff-line-num new_line" data-linenumber="135" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

135

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC135" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">signed-sap-ref-8</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="136" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

136

</td>

<td class="diff-line-num new_line" data-linenumber="136" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

136

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC136" class="line" lang="common_lisp">  <span class="s" style="color: #d14;">"Returns the signed 8-bit byte at OFFSET bytes from SAP."</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="137" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

137

</td>

<td class="diff-line-num new_line" data-linenumber="137" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

137

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC137" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="138" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

138

</td>

<td class="diff-line-num new_line old" data-linenumber="138" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC138" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="139" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="138" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

138

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC138" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="139" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

139

</td>

<td class="diff-line-num new_line" data-linenumber="139" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

139

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC139" class="line" lang="common_lisp">  <span class="p">(</span><span class="nv" style="color: #008080;">signed-sap-ref-8</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="140" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

140

</td>

<td class="diff-line-num new_line" data-linenumber="140" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

140

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC140" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="141" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

141

</td>

<td class="diff-line-num new_line" data-linenumber="141" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

141

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC141" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">signed-sap-ref-16</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="142" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

142

</td>

<td class="diff-line-num new_line" data-linenumber="142" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

142

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC142" class="line" lang="common_lisp">  <span class="s" style="color: #d14;">"Returns the signed 16-bit word at OFFSET bytes from SAP."</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="143" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

143

</td>

<td class="diff-line-num new_line" data-linenumber="143" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

143

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC143" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="144" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

144

</td>

<td class="diff-line-num new_line old" data-linenumber="144" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC144" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">1-</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">63</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="145" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="144" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

144

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC144" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">1-</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">63</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="145" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

145

</td>

<td class="diff-line-num new_line" data-linenumber="145" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

145

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC145" class="line" lang="common_lisp">  <span class="p">(</span><span class="nv" style="color: #008080;">signed-sap-ref-16</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="146" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

146

</td>

<td class="diff-line-num new_line" data-linenumber="146" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

146

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC146" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="147" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

147

</td>

<td class="diff-line-num new_line" data-linenumber="147" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

147

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC147" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">signed-sap-ref-32</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder match" id="" style="line-height: 1.6;">

<td class="diff-line-num unfold js-unfold old_line" data-linenumber="158" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="diff-line-num unfold js-unfold new_line" data-linenumber="158" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="line_content match " style="padding-left: 0.5em; padding-right: 0.5em; color: rgba(0,0,0,0.3);" bgcolor="#fafafa">@@ -158,13 +158,13 @@</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="158" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

158

</td>

<td class="diff-line-num new_line" data-linenumber="158" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

158

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC158" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="159" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

159

</td>

<td class="diff-line-num new_line" data-linenumber="159" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

159

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC159" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">%set-sap-ref-8</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="160" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

160

</td>

<td class="diff-line-num new_line" data-linenumber="160" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

160

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC160" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="161" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

161

</td>

<td class="diff-line-num new_line old" data-linenumber="161" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC161" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="162" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="161" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

161

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC161" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="162" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

162

</td>

<td class="diff-line-num new_line" data-linenumber="162" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

162

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC162" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">unsigned-byte</span> <span class="mi" style="color: #099;">8</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="163" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

163

</td>

<td class="diff-line-num new_line" data-linenumber="163" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

163

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC163" class="line" lang="common_lisp">  <span class="p">(</span><span class="nb" style="color: #0086b3;">setf</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap-ref-8</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="164" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

164

</td>

<td class="diff-line-num new_line" data-linenumber="164" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

164

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC164" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="165" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

165

</td>

<td class="diff-line-num new_line" data-linenumber="165" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

165

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC165" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">%set-sap-ref-16</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="166" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

166

</td>

<td class="diff-line-num new_line" data-linenumber="166" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

166

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC166" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="167" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

167

</td>

<td class="diff-line-num new_line old" data-linenumber="167" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC167" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">1-</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">63</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="168" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="167" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

167

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC167" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">1-</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">63</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="168" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

168

</td>

<td class="diff-line-num new_line" data-linenumber="168" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

168

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC168" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">unsigned-byte</span> <span class="mi" style="color: #099;">16</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="169" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

169

</td>

<td class="diff-line-num new_line" data-linenumber="169" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

169

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC169" class="line" lang="common_lisp">  <span class="p">(</span><span class="nb" style="color: #0086b3;">setf</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap-ref-16</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="170" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

170

</td>

<td class="diff-line-num new_line" data-linenumber="170" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

170

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC170" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder match" id="" style="line-height: 1.6;">

<td class="diff-line-num unfold js-unfold old_line" data-linenumber="182" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="diff-line-num unfold js-unfold new_line" data-linenumber="182" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="line_content match " style="padding-left: 0.5em; padding-right: 0.5em; color: rgba(0,0,0,0.3);" bgcolor="#fafafa">@@ -182,13 +182,13 @@</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="182" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

182

</td>

<td class="diff-line-num new_line" data-linenumber="182" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

182

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC182" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="183" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

183

</td>

<td class="diff-line-num new_line" data-linenumber="183" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

183

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC183" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">%set-signed-sap-ref-8</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="184" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

184

</td>

<td class="diff-line-num new_line" data-linenumber="184" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

184

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC184" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="185" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

185

</td>

<td class="diff-line-num new_line old" data-linenumber="185" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC185" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="186" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="185" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

185

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC185" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="186" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

186

</td>

<td class="diff-line-num new_line" data-linenumber="186" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

186

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC186" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="mi" style="color: #099;">8</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="187" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

187

</td>

<td class="diff-line-num new_line" data-linenumber="187" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

187

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC187" class="line" lang="common_lisp">  <span class="p">(</span><span class="nb" style="color: #0086b3;">setf</span> <span class="p">(</span><span class="nv" style="color: #008080;">signed-sap-ref-8</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="188" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

188

</td>

<td class="diff-line-num new_line" data-linenumber="188" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

188

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC188" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="189" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

189

</td>

<td class="diff-line-num new_line" data-linenumber="189" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

189

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC189" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">%set-signed-sap-ref-16</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="190" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

190

</td>

<td class="diff-line-num new_line" data-linenumber="190" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

190

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC190" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="191" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

191

</td>

<td class="diff-line-num new_line old" data-linenumber="191" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC191" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">1-</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">63</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="192" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="191" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

191

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC191" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">1-</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">63</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="192" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

192

</td>

<td class="diff-line-num new_line" data-linenumber="192" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

192

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC192" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="mi" style="color: #099;">16</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="193" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

193

</td>

<td class="diff-line-num new_line" data-linenumber="193" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

193

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC193" class="line" lang="common_lisp">  <span class="p">(</span><span class="nb" style="color: #0086b3;">setf</span> <span class="p">(</span><span class="nv" style="color: #008080;">signed-sap-ref-16</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="194" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

194

</td>

<td class="diff-line-num new_line" data-linenumber="194" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

194

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC194" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder match" id="" style="line-height: 1.6;">

<td class="diff-line-num unfold js-unfold old_line" data-linenumber="206" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="diff-line-num unfold js-unfold new_line" data-linenumber="206" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">...</td>

<td class="line_content match " style="padding-left: 0.5em; padding-right: 0.5em; color: rgba(0,0,0,0.3);" bgcolor="#fafafa">@@ -206,7 +206,7 @@</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="206" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

206

</td>

<td class="diff-line-num new_line" data-linenumber="206" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

206

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC206" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="207" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

207

</td>

<td class="diff-line-num new_line" data-linenumber="207" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

207

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC207" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">%set-sap-ref-sap</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="208" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

208

</td>

<td class="diff-line-num new_line" data-linenumber="208" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

208

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC208" class="line" lang="common_lisp">  <span class="p">(</span><span class="k" style="font-weight: 600;">declare</span> <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="nv" style="color: #008080;">system-area-pointer</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">)</span></span>

</pre>

</td>

</tr>

<tr class="line_holder old" id="" style="line-height: 1.6;">

<td class="diff-line-num old old_line" data-linenumber="209" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

209

</td>

<td class="diff-line-num new_line old" data-linenumber="209" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #fac5cd; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#f9d7dc">

</td>

<td class="line_content old" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#fbe9eb">

<pre style="margin: 0;">-<span id="LC209" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="nv" style="color: #008080;"><span class="idiff left">alpha</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="nv" style="color: #008080;"><span class="idiff right">alpha</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder new" id="" style="line-height: 1.6;">

<td class="diff-line-num new old_line" data-linenumber="210" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

</td>

<td class="diff-line-num new new_line" data-linenumber="209" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #c7f0d2; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#ddfbe6">

209

</td>

<td class="line_content new" style="padding-left: 0.5em; padding-right: 0.5em;" bgcolor="#ecfdf0">

<pre style="margin: 0;">+<span id="LC209" class="line" lang="common_lisp">     <span class="p">(</span><span class="k" style="font-weight: 600;">type</span> <span class="p">(</span><span class="kt" style="color: #458; font-weight: 600;">signed-byte</span> <span class="o" style="font-weight: 600;">#-</span><span class="p"><span class="idiff left">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff">)</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#.</span></span><span class="nv" style="color: #008080;"><span class="idiff">vm:word-bits</span></span><span class="idiff"> </span><span class="o" style="font-weight: 600;"><span class="idiff">#+</span></span><span class="p"><span class="idiff">(</span></span><span class="nb" style="color: #0086b3;"><span class="idiff">or</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">alpha</span></span><span class="idiff"> </span><span class="nv" style="color: #008080;"><span class="idiff">amd64</span></span><span class="p"><span class="idiff right">)</span></span> <span class="mi" style="color: #099;">64</span><span class="p">)</span> <span class="nv" style="color: #008080;">offset</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="210" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

210

</td>

<td class="diff-line-num new_line" data-linenumber="210" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

210

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC210" class="line" lang="common_lisp">  <span class="p">(</span><span class="nb" style="color: #0086b3;">setf</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap-ref-sap</span> <span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span><span class="p">)</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">))</span></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="211" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

211

</td>

<td class="diff-line-num new_line" data-linenumber="211" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

211

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC211" class="line" lang="common_lisp"></span>

</pre>

</td>

</tr>

<tr class="line_holder" id="" style="line-height: 1.6;">

<td class="diff-line-num old_line" data-linenumber="212" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

212

</td>

<td class="diff-line-num new_line" data-linenumber="212" style="width: 35px; color: rgba(0,0,0,0.3); border-right-width: 1px; border-right-color: #f0f0f0; border-right-style: solid; padding: 0 5px;" align="right" bgcolor="#fafafa">

212

</td>

<td class="line_content" style="padding-left: 0.5em; padding-right: 0.5em;">

<pre style="margin: 0;"> <span id="LC212" class="line" lang="common_lisp"><span class="p">(</span><span class="nb" style="color: #0086b3;">defun</span> <span class="nv" style="color: #008080;">%set-sap-ref-single</span> <span class="p">(</span><span class="nv" style="color: #008080;">sap</span> <span class="nv" style="color: #008080;">offset</span> <span class="nv" style="color: #008080;">new-value</span><span class="p">)</span></span>

</pre>

</td>

</tr>

</table>

<br>

</li>

</div>

<div class="footer" style="margin-top: 10px;">

<p style="font-size: small; color: #777;">

—

<br>

<a href="https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef49a0dceb16179ff3329873b8c99e5ee8d96c6b">View it on GitLab</a>.

<br>

You're receiving this email because of your account on gitlab.common-lisp.net.

If you'd like to receive fewer emails, you can

adjust your notification settings.

<script type="application/ld+json">{"@context":"http://schema.org","@type":"EmailMessage","action":{"@type":"ViewAction","name":"View Commit","url":"https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/ef49a0dceb16179ff3329873b8c99e5ee8d96c6b"}}</script>

</p>

</div>

</body>

</html>