<div dir="ltr"><div><br></div><br><div style>By the way how can I replicate this myself for testing? </div><div style><br></div><div style>For testing of specific systems, just temporarily replace the asdf in my implementation with ASDF 2.31.4, then proceed with quicklisp as usual? </div>
<div style><br></div><div style>For trying cl-test-grid with a cutting edge ASDF what is the recommended approach? </div><div style><br></div><div style><br></div><div style><br></div></div><div class="gmail_extra"><br><br>
<div class="gmail_quote">On Thu, Feb 28, 2013 at 8:46 PM, Dave Cooper <span dir="ltr"><<a href="mailto:david.cooper@genworks.com" target="_blank">david.cooper@genworks.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr"><br><div class="gmail_extra"><div class="gmail_quote"><div class="im"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

ACL shows new problem with portableaserve and via it with all genworks-gdl systems.<br>
The error: No defined method for ASDF/ACTION:PERFORM oncompiling #<ORIGINAL-ASERVE "aserve" "dummy"><br></blockquote><div><br></div></div><div>This is a hack in aserve.asd to allow   </div><div>

<br></div><div>   (asdf:load-system :aserve)</div><div><br></div><div>to bring in the original aserve (via require) in the case of #+allegro. </div><div><br></div><div>There are some defclass'es and defmethod'd in the middle of the .asd file to enable this. Maybe this doesn't work so well with ASDF3? Or maybe they just need some (eval-when (...) ...)  around them (at the risk of mental health issues)? Here is what the stuff looks like:</div>

<div><br></div><div><div>#+allegro</div><div>(defclass original-aserve (asdf:component)</div><div>  ((loaded :initform nil :accessor loaded)))</div><div><br></div><div>#+allegro</div><div>(defmethod asdf:source-file-type ((c original-aserve) (s module)) "dummy")</div>

<div><br></div><div>#+allegro</div><div>(defmethod asdf:perform ((op asdf:load-op) (c original-aserve))</div><div>  #+common-lisp-controller (c-l-c:original-require 'aserve)</div><div>  #-common-lisp-controller (require 'aserve)</div>

<div>  (setf (loaded c) t))</div><div><br></div><div>#+allegro</div><div>(defmethod asdf:operation-done-p ((op asdf:load-op) (c original-aserve))</div><div>  (loaded c))</div><div><br></div><div>#+allegro</div><div>(defmethod asdf:operation-done-p ((op asdf:compile-op) (c original-aserve))</div>

<div>  t)</div><div><br></div><div>#+allegro</div><div>(defsystem aserve</div><div>    :components ((:original-aserve "dummy")))</div><span class="HOEnZb"><font color="#888888"><div><br></div><div><br></div><div>
<br></div><div><br></div></font></span></div><span class="HOEnZb"><font color="#888888"><div>
-- <br></div></font></span></div><div class="im">My Best,<br><br>Dave Cooper, Genworks Support<br><a href="mailto:david.cooper@genworks.com" target="_blank">david.cooper@genworks.com</a>, <a href="http://dave.genworks.com" target="_blank">dave.genworks.com</a>(skype)<br>
USA: <a href="tel:248-327-3253" value="+12483273253" target="_blank">248-327-3253</a>(o), <a href="tel:1-248-330-2979" value="+12483302979" target="_blank">1-248-330-2979</a>(mobile)<br>
UK: 0191 645 1699<br>
</div></div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>My Best,<br><br>Dave Cooper, Genworks Support<br><a href="mailto:david.cooper@genworks.com">david.cooper@genworks.com</a>, <a href="http://dave.genworks.com">dave.genworks.com</a>(skype)<br>
USA: 248-327-3253(o), 1-248-330-2979(mobile)<br>UK: 0191 645 1699<br>
</div>