<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><a href="https://github.com/Clozure/ccl/issues/36" class="">https://github.com/Clozure/ccl/issues/36</a><div class=""><br class=""></div><div class=""><br class=""></div><div class=""><br class=""></div><div class=""><br class=""><div><blockquote type="cite" class=""><div class="">On Apr 12, 2017, at 2:30 AM, Nicolas Hafner <<a href="mailto:shinmera@tymoon.eu" class="">shinmera@tymoon.eu</a>> wrote:</div><br class="Apple-interchange-newline"><div class="">
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" class="">
<div text="#000000" bgcolor="#FFFFFF" class=""><p class="">This case can be further reduced to the following, which does not
require the library:</p><div class=""> <br class="webkit-block-placeholder"></div>
<tt class="">(defstruct vec<br class="">
(x 0.0 :type single-float)<br class="">
(y 0.0 :type single-float))<br class="">
<br class="">
(let ((vec (make-vec)))<br class="">
(psetf (vec-x vec) 5.0<br class="">
(vec-y vec) 5.0))</tt><br class="">
<br class="">
The specific trigger combination seems to be psetf with typed
structure slots.<br class="">
<br class="">
<div class="moz-cite-prefix">On 12/04/17 11:20, gzip4 wrote:<br class="">
</div>
<blockquote cite="mid:CAK0Se9nK29nYwW2Q3izJ2o=tfNoh3nye3eu_QiWwCcR7zmmjkw@mail.gmail.com" type="cite" class="">
<div dir="ltr" class="">
<div class=""><span style="font-family:arial,helvetica,sans-serif" class="">Hello,
All!<br class="">
<br class="">
</span></div>
<div class=""><span style="font-family:arial,helvetica,sans-serif" class="">To
reproduce the issue:<br class="">
</span></div>
<div class=""><span style="font-family:arial,helvetica,sans-serif" class=""><br class="">
<br class="">
</span><span style="font-family:monospace,monospace" class="">(lisp-implementation-version)<br class="">
"Version 1.11-r16635 (WindowsX8632)"<br class="">
<br class="">
(ql:quickload '3d-vectors)<br class="">
<br class="">
(let ((vec (3d-vectors::vec 5 0 0)))<br class="">
(psetf (3d-vectors::%vx3 vec) 5.0<br class="">
(3d-vectors::%vy3 vec) 5.0))</span>
<div class=""><br class="">
</div>
<div class="">Signal error:<br class="">
The value 5.0 is not of the expected type STRUCTURE.<br class="">
[Condition of type TYPE-ERROR]<br class="">
<br class="">
</div>
<div class="">The problem seems to be related to <code class="">psetf</code>.
If you remove one of the set pairs, it works fine. If you
use <code class="">setf</code>, it also works fine.<br class="">
<br class="">
</div>
<div class="">64 bit versions do not have such an issue, LinuxARM32
also passes.<br class="">
</div>
<div class=""><br class="">
-- <br class="">
<div class="gmail_signature">gzip4</div>
</div>
</div>
</div>
</blockquote>
</div></div></blockquote></div><br class=""></div></body></html>