# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1250964466 0
# Node ID 3ee29a52fd4cb447ffe9cb8bc109ec99db63b44a
# Parent  7602fd69cd932bb2540e88804f7e9fcdeb683d7f
* emacs-lisp/cl-loaddefs.el (deftype): Add autoload for deftype.
* emacs-lisp/cl-macs.el (deftype): Add autoload.

diff -r 7602fd69cd93 -r 3ee29a52fd4c lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Aug 22 14:37:23 2009 +0000
+++ b/lisp/ChangeLog	Sat Aug 22 18:07:46 2009 +0000
@@ -1,3 +1,9 @@
+2009-08-22  Chong Yidong  <cyd@stupidchicken.com>
+
+	* emacs-lisp/cl-loaddefs.el (deftype): Add autoload for deftype.
+
+	* emacs-lisp/cl-macs.el (deftype): Add autoload.
+
 2009-08-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* textmodes/remember.el (remember-buffer):
diff -r 7602fd69cd93 -r 3ee29a52fd4c lisp/emacs-lisp/cl-loaddefs.el
--- a/lisp/emacs-lisp/cl-loaddefs.el	Sat Aug 22 14:37:23 2009 +0000
+++ b/lisp/emacs-lisp/cl-loaddefs.el	Sat Aug 22 18:07:46 2009 +0000
@@ -274,15 +274,15 @@
 ;;;***
 
 ;;;### (autoloads (compiler-macroexpand define-compiler-macro assert
-;;;;;;  check-type typep cl-struct-setf-expander defstruct define-modify-macro
-;;;;;;  callf2 callf letf* letf rotatef shiftf remf cl-do-pop psetf
-;;;;;;  setf get-setf-method defsetf define-setf-method declare the
-;;;;;;  locally multiple-value-setq multiple-value-bind lexical-let*
-;;;;;;  lexical-let symbol-macrolet macrolet labels flet progv psetq
-;;;;;;  do-all-symbols do-symbols dotimes dolist do* do loop return-from
-;;;;;;  return block etypecase typecase ecase case load-time-value
-;;;;;;  eval-when destructuring-bind function* defmacro* defun* gentemp
-;;;;;;  gensym) "cl-macs" "cl-macs.el" "3d9b902a858a285fffad77c15b424e40")
+;;;;;;  check-type typep deftype cl-struct-setf-expander defstruct
+;;;;;;  define-modify-macro callf2 callf letf* letf rotatef shiftf
+;;;;;;  remf cl-do-pop psetf setf get-setf-method defsetf define-setf-method
+;;;;;;  declare the locally multiple-value-setq multiple-value-bind
+;;;;;;  lexical-let* lexical-let symbol-macrolet macrolet labels
+;;;;;;  flet progv psetq do-all-symbols do-symbols dotimes dolist
+;;;;;;  do* do loop return-from return block etypecase typecase ecase
+;;;;;;  case load-time-value eval-when destructuring-bind function*
+;;;;;;  defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "cf5886214d1cef9ba1bb60aac14ca156")
 ;;; Generated autoloads from cl-macs.el
 
 (autoload 'gensym "cl-macs" "\
@@ -683,6 +683,12 @@
 
 \(fn X NAME ACCESSOR PRED-FORM POS)" nil nil)
 
+(autoload 'deftype "cl-macs" "\
+Define NAME as a new data type.
+The type name can then be used in `typecase', `check-type', etc.
+
+\(fn NAME ARGLIST &rest BODY)" nil (quote macro))
+
 (autoload 'typep "cl-macs" "\
 Check that OBJECT is of type TYPE.
 TYPE is a Common Lisp-style type specifier.
diff -r 7602fd69cd93 -r 3ee29a52fd4c lisp/emacs-lisp/cl-macs.el
--- a/lisp/emacs-lisp/cl-macs.el	Sat Aug 22 14:37:23 2009 +0000
+++ b/lisp/emacs-lisp/cl-macs.el	Sat Aug 22 18:07:46 2009 +0000
@@ -2432,6 +2432,7 @@
 
 ;;; Types and assertions.
 
+;;;###autoload
 (defmacro deftype (name arglist &rest body)
   "Define NAME as a new data type.
 The type name can then be used in `typecase', `check-type', etc."