[armedbear-cvs] r13806 - trunk/abcl/contrib/abcl-asdf

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Jan 25 04:50:26 2012
New Revision: 13806

Log:
Fix ABCL-ASDF load time failure.

Modified:
   trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd
   trunk/abcl/contrib/abcl-asdf/packages.lisp

Modified: trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd
==============================================================================
--- trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd	Wed Jan 25 04:40:13 2012	(r13805)
+++ trunk/abcl/contrib/abcl-asdf/abcl-asdf.asd	Wed Jan 25 04:50:26 2012	(r13806)
@@ -18,23 +18,16 @@
                     :depends-on ("abcl-asdf" "asdf-jar")))
             :depends-on (packages))))
 
-
-(eval-when (:compile-toplevel :load-toplevel)
-  (load "~/quicklisp/setup")
-  (apply (intern (symbol-name 'quickload) 'quicklisp) "rt"))
-
 (defsystem :abcl-asdf-test
   :author "Mark Evenson"
-  :depends-on (abcl-asdf quicklisp rt)
+  :depends-on (abcl abcl-test-lisp)
   :components
   ((:module tests :components
             (#+nil (:file "example")
                    (:file "maven")))))
 
-
 (defmethod perform ((o test-op) (c (eql (find-system 'abcl-asdf))))
    "Invoke tests with (asdf:test-system 'abcl-asdf)."
    (asdf:load-system 'abcl-asdf-test)
-
    (funcall (intern (symbol-name 'run) 'abcl-asdf-test)))
 

Modified: trunk/abcl/contrib/abcl-asdf/packages.lisp
==============================================================================
--- trunk/abcl/contrib/abcl-asdf/packages.lisp	Wed Jan 25 04:40:13 2012	(r13805)
+++ trunk/abcl/contrib/abcl-asdf/packages.lisp	Wed Jan 25 04:50:26 2012	(r13806)
@@ -17,5 +17,5 @@
    #:*inhibit-add-to-classpath*))
 
 (defpackage #:abcl-asdf-test
-  (:use :cl :rt)
-  (:export #:run))
\ No newline at end of file
+  (:use :cl :abcl-rt)
+  (:export #:run))