Changeset 13351


Ignore:
Timestamp:
06/21/11 08:23:10 (10 years ago)
Author:
Mark Evenson
Message:

asdf-jar-0.2.1 corrects load-time errors.

Location:
trunk/abcl/contrib/asdf-jar
Files:
1 deleted
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/asdf-jar/asdf-jar.asd

    r13350 r13351  
    44(defsystem :asdf-jar
    55  :author "Mark Evenson"
    6   :version "0.2.0"
     6  :version "0.2.1"
    77  :components
    88  ((:module base :pathname "" :components
    99      ((:file "asdf-jar")
    10              (:static-file "README.markdown))))
     10             (:static-file "README.markdown")))))
  • trunk/abcl/contrib/asdf-jar/asdf-jar.lisp

    r13350 r13351  
    1212(defvar *debug* nil)
    1313
    14 (defun package (system-name
    15                 &key (out #p"/var/tmp/")
    16                      (recursive t)          ; whether to package dependencies
    17                      (force nil)             ; whether to force ASDF compilation
    18                      (verbose t))
    19 "Compile and package the asdf SYSTEM-NAME in a jar.
     14(defun package (system
     15          &key (out #p"/var/tmp/")
     16               (recursive t)          ; whether to package dependencies
     17               (force nil)            ; whether to force ASDF compilation
     18               (verbose t))
     19"Compile and package the asdf SYSTEM in a jar.
    2020
    2121When RECURSIVE is true (the default), recursively add all asdf
     
    2828Returns the pathname of the packaged jar archive.
    2929"
    30   (let* ((system
    31           (asdf:find-system system-name))
    32    (name
     30  (when (not (typep system 'asdf:system))
     31             (setf system (asdf:find-system system)))
     32  (let* ((name
    3333          (slot-value system 'asdf::name))
    3434         (version
    3535          (handler-case (slot-value system 'asdf:version)
    3636            (unbound-slot () "unknown")))
    37 
    3837         (package-jar-name
    3938          (format nil "~A~A-~A.jar" name (if recursive "-all" "") version))
     
    4342         (dependencies (dependent-systems system)))
    4443    (when verbose
    45       (format verbose "~&Packaging ASDF definition of ~A~&  as ~A." system package-jar))
     44      (format verbose "~&Packaging ASDF definition of ~A" system))
    4645    (when (and verbose force)
    4746      (format verbose "~&Forcing recursive compilation of ~A." package-jar))
     
    4948    (when verbose
    5049      (format verbose "~&Packaging contents in ~A" package-jar))
    51     (when (and verbose recursive)
     50    (when (and verbose recursive dependencies)
    5251      (format verbose "~&  with recursive dependencies~{ ~A~^, ~}." dependencies))
    5352    (dolist (system (append (list system)
Note: See TracChangeset for help on using the changeset viewer.