Date: Wednesday, March 30, 2011 @ 00:27:51 Author: rtoy Path: /project/cmucl/cvsroot/src/contrib/asdf

Modified: asdf.lisp

Update to asdf 2.014.1 to fix an issue with SUBDIRECTORIES function on cmucl.

-----------+ asdf.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-)

Index: src/contrib/asdf/asdf.lisp diff -u src/contrib/asdf/asdf.lisp:1.13 src/contrib/asdf/asdf.lisp:1.14 --- src/contrib/asdf/asdf.lisp:1.13 Mon Mar 28 13:23:39 2011 +++ src/contrib/asdf/asdf.lisp Wed Mar 30 00:27:50 2011 @@ -1,5 +1,5 @@ ;;; -*- mode: common-lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*- -;;; This is ASDF 2.014: Another System Definition Facility. +;;; This is ASDF 2.014.1: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to asdf-devel@common-lisp.net. @@ -99,7 +99,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.014") + (asdf-version "2.014.1") (existing-asdf (fboundp 'find-system)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -3521,9 +3521,9 @@ (let* ((directory (ensure-directory-pathname directory)) #-(or cormanlisp genera) (wild (merge-pathnames* - #-(or abcl allegro lispworks scl) + #-(or abcl allegro cmu lispworks scl) *wild-directory* - #+(or abcl allegro lispworks scl) "*.*" + #+(or abcl allegro cmu lispworks scl) "*.*" directory)) (dirs #-(or cormanlisp genera) @@ -3532,7 +3532,7 @@ #+mcl '(:directories t)))) #+cormanlisp (cl::directory-subdirs directory) #+genera (fs:directory-list directory)) - #+(or abcl allegro genera lispworks scl) + #+(or abcl allegro cmu genera lispworks scl) (dirs (remove-if-not #+abcl #'extensions:probe-directory #+allegro #'excl:probe-directory #+lispworks #'lw:file-directory-p