From 3feb057c617a953e0d8217a99881d613dfaef162 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <>
Date: Sun, 21 Dec 2003 10:15:47 +0000
Subject: [PATCH] remove overly strict slot type from component

---
 asdf.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index cee39151..b2d06e91 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; 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
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -107,7 +107,7 @@
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "$Revision: 1.80 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.81 $")
 			       (colon (or (position #\: v) -1))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -175,8 +175,8 @@ and NIL NAME and TYPE components"
 (define-condition compile-warned (compile-error) ())
 
 (defclass component ()
-  ((name :type string :accessor component-name :initarg :name :documentation
-	 "Component name, restricted to portable pathname characters")
+  ((name :accessor component-name :initarg :name :documentation
+	 "Component name: designator for a string composed of portable pathname characters")
    (version :accessor component-version :initarg :version)
    (in-order-to :initform nil :initarg :in-order-to)
    ;;; XXX crap name
-- 
GitLab