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

asdf-jar-0.2.1 corrects load-time errors.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.