* emacs-lisp/cl-loaddefs.el (deftype): Add autoload for deftype.

* emacs-lisp/cl-macs.el (deftype): Add autoload.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d3808ed8f9da1c56f4bd38f73435b7e2c87d88bd..0427c319c9da310db982753c3fcd2b199226adf9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el
index 91ef8cee35efd1b6024e8c4cae067dc967d1eed1..45deeed859a5040919f057247c7cb76230eefd58 100644 (file)
--- a/lisp/emacs-lisp/cl-loaddefs.el
+++ b/lisp/emacs-lisp/cl-loaddefs.el
@@ -274,15 +274,15 @@ Not documented
 ;;;***
 \f
 ;;;### (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 @@ Not documented
 
 \(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 --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 9a2eee325f4d65dfb0a1af08b95b3e13144c14f1..3050f64a7c0a0f59ee3e65fbb0f7db3d0b81cf2e 100644 (file)
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2432,6 +2432,7 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors.
 
 ;;; 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."