Lines Matching +defs:cl +defs:map
0 ;;; cl-specs.el --- Edebug specs for cl.el -*- no-byte-compile: t -*-
9 ;; cl-specs.el|Daniel LaLiberte|liberte@holonexus.org
10 ;; |Edebug specs for cl.el
32 ;; cl.el version 2.03 or later, by Dave Gillespie <daveg@synaptics.com>.
38 (provide 'cl-specs)
40 ;; Otherwise if you load this before edebug if cl is already loaded
57 cl-declarations body))
60 ((symbolp form &optional form) cl-declarations body))
63 ((symbolp &optional form form) cl-declarations body))
65 ((symbolp &optional form) cl-declarations body))
72 ((&rest symbolp) form cl-declarations body))
84 (def-edebug-spec flet ((&rest (defun*)) cl-declarations body))
88 ((&rest (&define name (&rest arg) cl-declarations-or-string def-body))
89 cl-declarations body))
92 ((&rest (symbol sexp)) cl-declarations body))
95 (&define cl-macro-list form cl-declarations def-body))
111 [cl-lambda-list (symbolp)]]
112 cl-declarations-or-string def-body))
115 (&define name cl-lambda-list cl-declarations-or-string def-body))
118 (&define name cl-lambda-list ;; should exclude &key
151 (def-edebug-spec map (form function-form form &rest form))
164 (def-edebug-spec cl-type-spec (sexp)) ;; not worth the trouble to specify, yet.
167 (def-edebug-spec check-type (place cl-type-spec &optional stringp))
170 (def-edebug-spec typecase (form &rest ([&or cl-type-spec "otherwise"] body)))
183 (def-edebug-spec cl-decl-spec
186 (def-edebug-spec cl-declarations
187 (&rest ("declare" &rest cl-decl-spec)))
189 (def-edebug-spec cl-declarations-or-string
190 (&or stringp cl-declarations))
192 (def-edebug-spec declaim (&rest cl-decl-spec))
193 (def-edebug-spec declare (&rest cl-decl-spec)) ;; probably not needed.
194 (def-edebug-spec locally (cl-declarations &rest form))
195 (def-edebug-spec the (cl-type-spec form))
200 (def-edebug-spec cl-lambda-list
202 [&optional ["&optional" cl-&optional-arg &rest cl-&optional-arg]]
204 [&optional ["&key" [cl-&key-arg &rest cl-&key-arg]
210 (def-edebug-spec cl-&optional-arg
213 (def-edebug-spec cl-&key-arg
220 (def-edebug-spec cl-macro-list
222 [&rest cl-macro-arg]
224 &or (cl-macro-arg &optional def-form cl-macro-arg) arg]]
225 [&optional [[&or "&rest" "&body"] cl-macro-arg]]
227 [&or ([&or (symbolp cl-macro-arg) arg]
228 &optional def-form cl-macro-arg)
236 (def-edebug-spec cl-macro-arg
237 (&or arg cl-macro-list1))
239 (def-edebug-spec cl-macro-list1
241 [&rest cl-macro-arg]
243 &or (cl-macro-arg &optional def-form cl-macro-arg) arg]]
244 [&optional [[&or "&rest" "&body"] cl-macro-arg]]
246 [&or ([&or (symbolp cl-macro-arg) arg]
247 &optional def-form cl-macro-arg)
256 ;; Same as defun but use cl-lambda-list.
259 cl-lambda-list
260 cl-declarations-or-string
266 (&define name cl-macro-list cl-declarations-or-string def-body))
271 (&or symbolp cl-lambda-expr))
273 (def-edebug-spec cl-lambda-expr
274 (&define ("lambda" cl-lambda-list
275 ;;cl-declarations-or-string
298 [":constructor" symbolp &optional cl-lambda-list]
471 (&or (loop-d-type-spec . [&or nil loop-d-type-spec]) cl-type-spec))
474 ;;; cl-specs.el ends here