<div dir="ltr"><div><br></div><br><div class="gmail_extra"><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><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></div></div></blockquote><div><br></div><div><br></div>

<div>By the way, what is this "oncompiling" operation you speak of? </div><div><br></div><div style>I'm not seeing a literal "oncompiling" anywhere in ASDF 2.31.4 ... </div><div style><br></div><div style>
<br></div><div style> <br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div class="gmail_extra"><div class="gmail_quote"><div><div></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><font color="#888888"><div><br></div><div><br></div><div>
<br></div><div><br></div></font></span></div><span><font color="#888888"><div>
-- <br></div></font></span></div><div>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" 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>