Lines Matching defs:loop
41 ;; an infinite loading loop would occur.
314 ;; The loop macro is very complex, and a full spec is found below.
320 (def-edebug-spec loop
323 ;; Below is a complete spec for loop, in several parts that correspond
326 ;; syntactically legal loop clauses. The disadvantage of this
330 (def-edebug-spec loop
335 loop-for-as
336 loop-with
337 loop-initial-final]
338 [&rest loop-clause]
341 (def-edebug-spec loop-with
342 ("with" loop-var
343 loop-type-spec
345 &rest ["and" loop-var
346 loop-type-spec
349 (def-edebug-spec loop-for-as
350 ([&or "for" "as"] loop-for-as-subclause
351 &rest ["and" loop-for-as-subclause]))
353 (def-edebug-spec loop-for-as-subclause
354 (loop-var
355 loop-type-spec
414 (def-edebug-spec loop-initial-final
417 &rest loop-non-atomic-expr]
419 [[&optional &or "do" "doing"] &rest loop-non-atomic-expr]
422 (def-edebug-spec loop-and-clause
423 (loop-clause &rest ["and" loop-clause]))
425 (def-edebug-spec loop-clause
433 [&optional ["into" loop-var]]]
439 [&optional ["into" loop-var]]
440 loop-type-spec]
443 form loop-and-clause
444 [&optional ["else" loop-and-clause]]
447 [[&or "do" "doing"] &rest loop-non-atomic-expr]
450 loop-initial-final
453 (def-edebug-spec loop-non-atomic-expr
456 (def-edebug-spec loop-var
458 ;; loop-var =>
459 ;; (loop-var . [&or nil loop-var])
460 ;; (symbolp . [&or nil loop-var])
461 ;; (symbolp . loop-var)
462 ;; (symbolp . (symbolp . [&or nil loop-var]))
463 ;; (symbolp . (symbolp . loop-var))
465 (&or (loop-var . [&or nil loop-var]) [gate symbolp]))
467 (def-edebug-spec loop-type-spec
468 (&optional ["of-type" loop-d-type-spec]))
470 (def-edebug-spec loop-d-type-spec
471 (&or (loop-d-type-spec . [&or nil loop-d-type-spec]) cl-type-spec))