Commit 135437fb authored by Gary King's avatar Gary King
Browse files

now allows license / licence initargs and system-license / system-licence accessors

parent 29d10949

asdf.lisp

+5 −3
Original line number Diff line number Diff line 
;;; This is asdf: Another System Definition Facility.  $Revision: 1.98 $

;;; This is asdf: Another System Definition Facility.  $Revision: 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 "$Revision: 1.98 $")

(defvar *asdf-revision* (let* ((v "$Revision: 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