Assume ASDF 3 even for the project itself.

Author: fukamachi

cl-project-test.asd

@@ -3,22 +3,15 @@
   Copyright (c) 2011 Eitaro Fukamachi ([email protected])
 |#
 
-(in-package :cl-user)
-(defpackage cl-project-test-asd
-  (:use :cl :asdf))
-(in-package :cl-project-test-asd)
-
-(defsystem cl-project-test
+(defsystem "cl-project-test"
+  :defsystem-depends-on ("prove-asdf")
   :author "Eitaro Fukamachi"
   :license "LLGPL"
-  :defsystem-depends-on (:prove-asdf)
-  :depends-on (:cl-project
-               :prove
-               :caveman2
-               :uiop)
-  :components ((:module "t"
+  :depends-on ("cl-project"
+               "prove"
+               "caveman2"
+               "uiop")
+  :components ((:module "tests"
                 :components
                 ((:test-file "cl-project"))))
-  :defsystem-depends-on (:prove-asdf)
-  :perform (test-op :after (op c)
-                    (funcall (intern #.(string :run-test-system) :prove.asdf) c)))
+  :perform (test-op (op c) (symbol-call :prove-asdf :run-test-system c)))

cl-project.asd

@@ -12,20 +12,15 @@
   Author: Eitaro Fukamachi ([email protected])
 |#
 
-(in-package :cl-user)
-(defpackage cl-project-asd
-  (:use :cl :asdf))
-(in-package :cl-project-asd)
-
-(defsystem cl-project
-  :version "0.2"
+(defsystem "cl-project"
+  :version "0.3"
   :author "Eitaro Fukamachi"
   :license "LLGPL"
-  :depends-on (:cl-emb
-               :uiop
-               :cl-ppcre
-               :local-time
-               :prove)
+  :depends-on ("cl-emb"
+               "uiop"
+               "cl-ppcre"
+               "local-time"
+               "prove")
   :components ((:module "src"
                 :components
                 ((:file "cl-project" :depends-on ("specials" "file" "skeleton"))
@@ -36,15 +31,6 @@
                  (:file "specials"))))
   :description "Generate a skeleton for modern project"
   :long-description
-  #.(with-open-file (stream (merge-pathnames
-                             #p"README.markdown"
-                             (or *load-pathname* *compile-file-pathname*))
-                            :if-does-not-exist nil
-                            :direction :input)
-      (when stream
-        (let ((seq (make-array (file-length stream)
-                               :element-type 'character
-                               :fill-pointer t)))
-          (setf (fill-pointer seq) (read-sequence seq stream))
-          seq)))
-  :in-order-to ((test-op (load-op cl-project-test))))
+  #.(read-file-string
+     (subpathname *load-pathname* "README.markdown"))
+  :in-order-to ((test-op (test-op "cl-project-test"))))