From: Nikodemus S. <de...@us...> - 2006-06-19 00:18:41
|
Update of /cvsroot/sbcl/sbcl/contrib/asdf In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv28714/contrib/asdf Modified Files: asdf.lisp Log Message: 0.9.13.48: ASDF update from upstream * This version at least supports (oos 'load-op :foo :force t), no thanks to yours truely. Index: asdf.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/contrib/asdf/asdf.lisp,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- asdf.lisp 28 May 2006 14:16:59 -0000 1.21 +++ asdf.lisp 19 Jun 2006 00:18:38 -0000 1.22 @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. 1.97 +;;; This is asdf: Another System Definition Facility. 1.99 ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <ccl...@li...>. But note first that the canonical @@ -78,6 +78,7 @@ #:system-author #:system-maintainer #:system-license + #:system-licence #:operation-on-warnings #:operation-on-failure @@ -109,7 +110,7 @@ (in-package #:asdf) -(defvar *asdf-revision* (let* ((v "1.97") +(defvar *asdf-revision* (let* ((v "1.99") (colon (or (position #\: v) -1)) (dot (position #\. v))) (and v colon dot @@ -285,7 +286,8 @@ :accessor system-long-description :initarg :long-description) (author :accessor system-author :initarg :author) (maintainer :accessor system-maintainer :initarg :maintainer) - (licence :accessor system-licence :initarg :licence))) + (licence :accessor system-licence :initarg :licence + :accessor system-license :initarg :license))) ;;; version-satisfies @@ -828,7 +830,8 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; invoking operations -(defun operate (operation-class system &rest args &key (verbose t) version) +(defun operate (operation-class system &rest args &key (verbose t) version + &allow-other-keys) (let* ((op (apply #'make-instance operation-class :original-initargs args args)) |