[asdf-devel] testing ASDF with cl-test-grid

[Dave Cooper]

> 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">
>

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.cooper at genworks.com, dave.genworks.com(skype)
USA: 248-327-3253(o), 1-248-330-2979(mobile)
UK: 0191 645 1699
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/asdf-devel/attachments/20130228/1af72ce5/attachment.html>