diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2009-08-22 18:07:46 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2009-08-22 18:07:46 +0000 |
| commit | 00b06a505b6eeeb3caf929f508a76631fd75ab91 (patch) | |
| tree | daa5f1f29e9074def649cb2847f8362e9003208b /lisp/emacs-lisp | |
| parent | 8397ae74054225c2aaadbc917101b506a3c0a3c3 (diff) | |
| download | emacs-00b06a505b6eeeb3caf929f508a76631fd75ab91.tar.gz emacs-00b06a505b6eeeb3caf929f508a76631fd75ab91.tar.bz2 emacs-00b06a505b6eeeb3caf929f508a76631fd75ab91.zip | |
* emacs-lisp/cl-loaddefs.el (deftype): Add autoload for deftype.
* emacs-lisp/cl-macs.el (deftype): Add autoload.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-loaddefs.el | 24 | ||||
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 1 |
2 files changed, 16 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el index 91ef8cee35e..45deeed859a 100644 --- a/lisp/emacs-lisp/cl-loaddefs.el +++ b/lisp/emacs-lisp/cl-loaddefs.el @@ -274,15 +274,15 @@ Not documented ;;;*** ;;;### (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 9a2eee325f4..3050f64a7c0 100644 --- 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." |