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)