From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 19 Jun 2006 00:18:37 +0000 (+0000)
Subject: 0.9.13.48: ASDF update from upstream
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=8d71e20e5f8993879e723168f1f6f3a601f62fa2;p=sbcl.git

0.9.13.48: ASDF update from upstream
  * This version at least supports (oos 'load-op :foo :force t),
    no thanks to yours truely.
---

diff --git a/contrib/asdf/asdf.lisp b/contrib/asdf/asdf.lisp
index b0006ed..d22a7e3 100644
--- a/contrib/asdf/asdf.lisp
+++ b/contrib/asdf/asdf.lisp
@@ -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
 ;;; <cclan-list@lists.sf.net>.  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 @@ and NIL NAME and TYPE components"
     :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 @@ system."))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 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))
diff --git a/version.lisp-expr b/version.lisp-expr
index 94b9e21..9fce641 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.13.47"
+"0.9.13.48"