From 96ae6c9f6a243cf0c0bc6c62a3ed42ace6f35a28 Mon Sep 17 00:00:00 2001 From: Kevin Rosenberg <> Date: Tue, 17 Sep 2002 16:56:56 +0000 Subject: [PATCH] Added directory creation for compilation output files --- asdf.lisp | 7 ++++--- debian/changelog | 6 ++++++ 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index c3eef810..30cf0285 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. $Revision: 1.42 $ +;;; This is asdf: Another System Definition Facility. $Revision: 1.43 $ ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <cclan-list@lists.sf.net>. But note first that the canonical @@ -88,7 +88,7 @@ (in-package #:asdf) ;;; parse the cvs revision into something that might be vaguely useful. -(defvar *asdf-revision* (let* ((v "$Revision: 1.42 $") +(defvar *asdf-revision* (let* ((v "$Revision: 1.43 $") (colon (position #\: v)) (dot (position #\. v))) (and v colon dot @@ -595,7 +595,8 @@ system.")) :initform *compile-file-failure-behaviour*))) (defmethod perform :before ((operation compile-op) (c source-file)) - (setf (component-property c 'last-compiled) nil)) + (setf (component-property c 'last-compiled) nil) + (map nil #'ensure-directories-exist (output-files operation c))) (defmethod perform :after ((operation compile-op) (c source-file)) (when (output-files operation c) diff --git a/debian/changelog b/debian/changelog index 8489ee31..29a45232 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-asdf (1.43-1) unstable; urgency=low + + * New upstream version + + -- Kevin M. Rosenberg <kmr@debian.org> Tue, 17 Sep 2002 10:34:57 -0600 + cl-asdf (1.42-2) unstable; urgency=low * Add reregister-common-lisp-implementations call when installing cl-asdf. -- GitLab