Commit 9d0c2e9a authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.33.8: have :here default to (load-pathname) when *here-directory* is nil.

Also, clean some test.
parent 9fe6a1b7
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -74,7 +74,7 @@
  :licence "MIT"
  :description "Another System Definition Facility"
  :long-description "ASDF builds Common Lisp software organized into defined systems."
  :version "2.33.7" ;; to be automatically updated by make bump-version
  :version "2.33.8" ;; to be automatically updated by make bump-version
  :depends-on ()
  #+asdf3 :encoding #+asdf3 :utf-8
  ;; For most purposes, asdf itself specially counts as a builtin system.
+21 −0
Original line number Diff line number Diff line
cl-asdf (2:3.0.0-1) unstable; urgency=low

  ASDF 3.0.0 is the first official release of ASDF 3;
  ASDF 2.27 to 2.33 were pre-releases.
  Since 2.33, the following changes were done:

  * Portability: have *uninteresting-conditions* be empty by default.
    Move stuff to *usual-uninteresting-conditions*, unused by default.
    Will make the SBCL team happy. Also, fix tests on ABCL.

  * UIOP: improvements to slurp-input-stream and thus run-program,
    notably accepting T as alias for *standard-output*,
    for better backward-compatibility of the deprecated run-shell-command.
    New macro with-output-file.

  * POIU support enhanced various tweaks.

  * Build cleanup so make and concatenate-source-op create the same asdf.lisp

 -- Francois-Rene Rideau <fare@tunes.org>  Mon, 29 Apr 2013 11:34:45 -0400

cl-asdf (2:2.33-1) unstable; urgency=low

  ASDF 2.33 is a set of cleanups since 2.32.
+1 −1
Original line number Diff line number Diff line
;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
;;; This is ASDF 2.33.7: Another System Definition Facility.
;;; This is ASDF 2.33.8: Another System Definition Facility.
;;;
;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>.
+1 −2
Original line number Diff line number Diff line
@@ -3,7 +3,6 @@
(load (make-pathname :name "script-support" :defaults *load-pathname*))
(load-asdf)
#+ecl (require :cmp)
#+ecl (trace uiop:compile-file* uiop:load*)

(asdf-test::register-directory asdf-test::*asdf-directory*) ;; we need asdf-driver, and ECL can dump.
(asdf-test::register-directory asdf-test::*uiop-directory*)
@@ -13,6 +12,6 @@

(with-test ()
  ;;(dolist (s '(:asdf :asdf/driver :asdf/defsystem :uiop)) (DBG :foo s (asdf::builtin-system-p (find-system s))))
  (trace perform-plan perform)
  ;;(trace perform-plan perform)
  (operate 'load-fasl-op :hello-world-example)
  (operate 'program-op :hello-world-example))
+3 −2
Original line number Diff line number Diff line
@@ -5,7 +5,7 @@
  (:nicknames :asdf/configuration)
  (:recycle :uiop/configuration :asdf/configuration :asdf)
  (:use :uiop/common-lisp :uiop/utility
   :uiop/os :uiop/pathname :uiop/filesystem :uiop/stream :uiop/image)
   :uiop/os :uiop/pathname :uiop/filesystem :uiop/stream :uiop/image :uiop/lisp-build)
  (:export
   #:get-folder-path
   #:user-configuration-directories #:system-configuration-directories
@@ -231,7 +231,8 @@ directive.")
            (if wilden (wilden p) p))))
       ((eql :home) (user-homedir-pathname))
       ((eql :here) (resolve-absolute-location
                     *here-directory* :ensure-directory t :wilden nil))
                     (or *here-directory* (pathname-directory-pathname (load-pathname)))
                     :ensure-directory t :wilden nil))
       ((eql :user-cache) (resolve-absolute-location
                           *user-cache* :ensure-directory t :wilden nil)))
     :wilden (and wilden (not (pathnamep x)))
Loading