# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1254097329 0
# Node ID 4238ff8f3ef9e10797a2641d00e1be14871c168f
# Parent  f2e56d1eff323a4f09a3cc0e2ed8be2428c2af6b
lisp/emacs-lisp/cl-loaddefs.el: Regenerate.

diff -r f2e56d1eff32 -r 4238ff8f3ef9 lisp/emacs-lisp/cl-loaddefs.el
--- a/lisp/emacs-lisp/cl-loaddefs.el	Sun Sep 27 23:25:03 2009 +0000
+++ b/lisp/emacs-lisp/cl-loaddefs.el	Mon Sep 28 00:22:09 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" "cee0f106d963d8d1665bc67bea707297")
+;;;;;;  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" "f6bd68f91847390d47f57b6aac6be023")
 ;;; 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.