[Cl-darcs-cvs] r86 - cl-darcs/trunk

[mhenoch at common-lisp.net]

Author: mhenoch
Date: Wed Feb  7 21:34:16 2007
New Revision: 86

Modified:
   cl-darcs/trunk/patch-core.lisp
Log:
Unquote type declarations.


Modified: cl-darcs/trunk/patch-core.lisp
==============================================================================
--- cl-darcs/trunk/patch-core.lisp	(original)
+++ cl-darcs/trunk/patch-core.lisp	Wed Feb  7 21:34:16 2007
@@ -65,17 +65,17 @@
 
 (defclass binary-patch (file-patch)
   ((oldhex :accessor binary-oldhex :initarg :oldhex
-	   :type '(vector (unsigned-byte 8))
+	   :type (vector (unsigned-byte 8))
 	   :documentation "The old contents of the file.")
    (newhex :accessor binary-newhex :initarg :newhex
-	   :type '(vector (unsigned-byte 8))
+	   :type (vector (unsigned-byte 8))
 	   :documentation "The new contents of the file."))
   (:documentation "A patch that changes a binary file."))
 
 (defclass token-replace-patch (file-patch)
-  ((regexp :accessor token-regexp :initarg :regexp :type 'string)
-   (old-token :accessor old-token :initarg :old-token :type 'string)
-   (new-token :accessor new-token :initarg :new-token :type 'string))
+  ((regexp :accessor token-regexp :initarg :regexp :type string)
+   (old-token :accessor old-token :initarg :old-token :type string)
+   (new-token :accessor new-token :initarg :new-token :type string))
   (:documentation "A patch that replaces one token with another."))
 
 (defmethod print-object ((patch token-replace-patch) stream)