Renamed with-timeout to do-set-timeout, added ignore errors.

[clinton/parenscript.git] / parenscript.asd

diff --git a/parenscript.asd b/parenscript.asd
index b221176..56f0168 100644 (file)
--- a/parenscript.asd
+++ b/parenscript.asd
@@ -11,7 +11,7 @@
   :name "parenscript"
   :author "Manuel Odendahl <manuel@bl0rg.net>"
   :version "0"
-  :maintainer "Edward Marco Baringer <mb@bese.it>"
+  :maintainer "Vladimir Sedach <vsedach@gmail.com>"
   :licence "BSD"
   :description "js - javascript compiler"
   :components ((:static-file "parenscript.asd")
@@ -22,11 +22,17 @@
                              (:file "js" :depends-on ("package" "utils" "defgenerics"))
                              (:file "js-html" :depends-on ("package" "js" "utils"))
                              (:file "css" :depends-on ("package" "utils"))
-                             (:file "compile-js" :depends-on ("package" "js"))))))
+                             (:file "compile-js" :depends-on ("package" "js"))
+                             (:file "js-utils" :depends-on ("package" "js"))
+                             (:module :lib
+                                      :components ((:static-file "functional.lisp")))))))
 
 (defmethod asdf:perform :after ((op asdf:load-op) (system (eql (asdf:find-system :parenscript)))) 
   (pushnew :parenscript cl:*features*))
 
+(defmethod asdf:perform ((o test-op) (c (eql (find-system :parenscript))))
+  (asdf:operate 'asdf:test-op :parenscript.test))
+
 (defsystem :parenscript.test
   :depends-on (:parenscript :fiveam :cl-ppcre)
   :components ((:module :t
@@ -34,3 +40,8 @@
                              (:file "test" :depends-on ("test-package"))
                              (:file "ref2test" :depends-on ("test"))
                              (:file "reference-tests" :depends-on ("test"))))))
+
+(defmethod asdf:perform ((o test-op) (c (eql (find-system :parenscript.test))))
+  (asdf:operate 'asdf:load-op :parenscript.test)
+  (funcall (intern (symbol-name :run-tests)
+                   (find-package :js-test))))