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