Fix the return value of map-into

[clinton/parenscript.git] / parenscript.asd

diff --git a/parenscript.asd b/parenscript.asd
dissimilarity index 79%
index b18ded5..b221176 100644 (file)
--- a/parenscript.asd
+++ b/parenscript.asd
@@ -1,25 +1,36 @@
-;;;; -*- lisp -*-
-
-(in-package :cl-user)
-
-(defpackage :parenscript.system
-  (:use :cl :asdf))
-
-(in-package :parenscript.system)
-
-(defsystem :parenscript
-    :name "parenscript"
-    :author "Manuel Odendahl <manuel@bl0rg.net>"
-    :version "0"
-    :maintainer "Edward Marco Baringer <mb@bese.it>"
-    :licence "BSD"
-    :description "js - javascript compiler"
-
-    :perform (load-op :after (op araneida)
-                     (pushnew :parenscript cl:*features*))
-    :components ((:file "package")
-                (:file "utils" :depends-on ("package"))
-                (:file "defgenerics" :depends-on ("package"))
-                (:file "js" :depends-on ("package" "utils" "defgenerics"))
-                (:file "js-html" :depends-on ("package" "js" "utils"))
-                (:file "css" :depends-on ("package" "utils"))))
+;;;; -*- lisp -*-
+
+(in-package :cl-user)
+
+(defpackage :parenscript.system
+  (:use :cl :asdf))
+
+(in-package :parenscript.system)
+
+(defsystem :parenscript
+  :name "parenscript"
+  :author "Manuel Odendahl <manuel@bl0rg.net>"
+  :version "0"
+  :maintainer "Edward Marco Baringer <mb@bese.it>"
+  :licence "BSD"
+  :description "js - javascript compiler"
+  :components ((:static-file "parenscript.asd")
+               (:module :src
+                :components ((:file "package")
+                             (:file "utils" :depends-on ("package"))
+                             (:file "defgenerics" :depends-on ("package"))
+                             (: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"))))))
+
+(defmethod asdf:perform :after ((op asdf:load-op) (system (eql (asdf:find-system :parenscript)))) 
+  (pushnew :parenscript cl:*features*))
+
+(defsystem :parenscript.test
+  :depends-on (:parenscript :fiveam :cl-ppcre)
+  :components ((:module :t
+                :components ((:file "test-package")
+                             (:file "test" :depends-on ("test-package"))
+                             (:file "ref2test" :depends-on ("test"))
+                             (:file "reference-tests" :depends-on ("test"))))))