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