,@body
(return-from ,skip nil)))))
(ir1-convert ,start ,next ,result
,@body
(return-from ,skip nil)))))
(ir1-convert ,start ,next ,result
;; Translate FORM into IR1. The code is inserted as the NEXT of the
;; CTRAN START. RESULT is the LVAR which receives the value of the
;; Translate FORM into IR1. The code is inserted as the NEXT of the
;; CTRAN START. RESULT is the LVAR which receives the value of the
(aver (and (consp lexical-def)
(eq (car lexical-def) 'macro)))
(ir1-convert start next result
(aver (and (consp lexical-def)
(eq (car lexical-def) 'macro)))
(ir1-convert start next result