typo
Toshimi Sawada
4 years ago
922 | 922 |
(declare (type fixnum y))
|
923 | 923 |
(let ((t1 (nth y entry)))
|
924 | 924 |
(when (cexec-sch-check-predicate term (car t1) pred-pat)
|
925 | |
(return-from cexec-loop-check (cdr t2))))))))
|
|
925 |
(return-from cexec-loop-check (cdr t1))))))))
|
926 | 926 |
nil))))
|
927 | 927 |
|
928 | 928 |
;;;
|