Mercurial > emacs
changeset 104405:3ee29a52fd4c
* emacs-lisp/cl-loaddefs.el (deftype): Add autoload for deftype.
* emacs-lisp/cl-macs.el (deftype): Add autoload.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 22 Aug 2009 18:07:46 +0000 |
| parents | 7602fd69cd93 |
| children | 399d233ddb97 |
| files | lisp/ChangeLog lisp/emacs-lisp/cl-loaddefs.el lisp/emacs-lisp/cl-macs.el |
| diffstat | 3 files changed, 22 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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.
--- 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."