Skip to content
Snippets Groups Projects
Commit 3feb057c authored by Daniel Barlow's avatar Daniel Barlow
Browse files

remove overly strict slot type from component

parent 4a282f92
No related branches found
No related tags found
No related merge requests found
;;; This is asdf: Another System Definition Facility. $Revision: 1.80 $ ;;; This is asdf: Another System Definition Facility. $Revision: 1.81 $
;;; ;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical ;;; <cclan-list@lists.sf.net>. But note first that the canonical
...@@ -107,7 +107,7 @@ ...@@ -107,7 +107,7 @@
(in-package #:asdf) (in-package #:asdf)
(defvar *asdf-revision* (let* ((v "$Revision: 1.80 $") (defvar *asdf-revision* (let* ((v "$Revision: 1.81 $")
(colon (or (position #\: v) -1)) (colon (or (position #\: v) -1))
(dot (position #\. v))) (dot (position #\. v)))
(and v colon dot (and v colon dot
...@@ -175,8 +175,8 @@ and NIL NAME and TYPE components" ...@@ -175,8 +175,8 @@ and NIL NAME and TYPE components"
(define-condition compile-warned (compile-error) ()) (define-condition compile-warned (compile-error) ())
(defclass component () (defclass component ()
((name :type string :accessor component-name :initarg :name :documentation ((name :accessor component-name :initarg :name :documentation
"Component name, restricted to portable pathname characters") "Component name: designator for a string composed of portable pathname characters")
(version :accessor component-version :initarg :version) (version :accessor component-version :initarg :version)
(in-order-to :initform nil :initarg :in-order-to) (in-order-to :initform nil :initarg :in-order-to)
;;; XXX crap name ;;; XXX crap name
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment