On Thu, Feb 28, 2013 at 8:46 PM, Dave Cooper <david.coo...@genworks.com>wrote:
> > ACL shows new problem with portableaserve and via it with all genworks-gdl >> systems. >> The error: No defined method for ASDF/ACTION:PERFORM oncompiling >> #<ORIGINAL-ASERVE "aserve" "dummy"> >> > > By the way, what is this "oncompiling" operation you speak of? I'm not seeing a literal "oncompiling" anywhere in ASDF 2.31.4 ... > This is a hack in aserve.asd to allow > > (asdf:load-system :aserve) > > to bring in the original aserve (via require) in the case of #+allegro. > > 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: > > #+allegro > (defclass original-aserve (asdf:component) > ((loaded :initform nil :accessor loaded))) > > #+allegro > (defmethod asdf:source-file-type ((c original-aserve) (s module)) "dummy") > > #+allegro > (defmethod asdf:perform ((op asdf:load-op) (c original-aserve)) > #+common-lisp-controller (c-l-c:original-require 'aserve) > #-common-lisp-controller (require 'aserve) > (setf (loaded c) t)) > > #+allegro > (defmethod asdf:operation-done-p ((op asdf:load-op) (c original-aserve)) > (loaded c)) > > #+allegro > (defmethod asdf:operation-done-p ((op asdf:compile-op) (c original-aserve)) > t) > > #+allegro > (defsystem aserve > :components ((:original-aserve "dummy"))) > > > > > -- > My Best, > > Dave Cooper, Genworks Support > david.coo...@genworks.com, dave.genworks.com(skype) > USA: 248-327-3253(o), 1-248-330-2979(mobile) > UK: 0191 645 1699 > -- My Best, Dave Cooper, Genworks Support david.coo...@genworks.com, dave.genworks.com(skype) USA: 248-327-3253(o), 1-248-330-2979(mobile) UK: 0191 645 1699
_______________________________________________ asdf-devel mailing list asdf-devel@common-lisp.net http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel