<div dir="ltr"><br><div class="gmail_extra"><div class="gmail_quote"><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 style>This is a hack in aserve.asd to allow   </div><div style>
<br></div><div style>   (asdf:load-system :aserve)</div><div style><br></div><div style>to bring in the original aserve (via require) in the case of #+allegro. </div><div style><br></div><div style>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 style><br></div><div style><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><div><br></div><div><br></div><div><br></div><div><br></div></div><div style>
-- <br></div></div>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></div>