ooops, not extensively tested...
correct
(SETQ numero (1+ numero))
(IF (AND arq (= (TYPE arq) 'file))
(PROGN (PRINC "(" arq)
(PRINC (CHR 34) arq)
(PRINC numero arq)
(PRINC (CHR 34) arq)
(PRINC (CHR 32) arq)
(PRINC (CHR 34) arq)
(PRINC (CAR p1) arq)
(PRINC (CHR 34) arq)
(PRINC (CHR 32) arq)
(PRINC (CHR 34) arq)
(PRINC (CADR p1) arq)
(PRINC (CHR 34) arq)
(PRINC (CHR 32) arq)
(PRINC (CHR 34) arq)
(PRINC (CADDR p1) arq)
(PRINC (CHR 34) arq)
(PRINC ")\n" arq)
)
nil
)
to
(IF (AND arq (= (TYPE arq) 'file))
(PROGN (PRINC "(" arq)
(PRINC (CHR 34) arq)
(PRINC numero arq)
(PRINC (CHR 34) arq)
(PRINC (CHR 32) arq)
(PRINC (CHR 34) arq)
(PRINC (CAR p1) arq)
(PRINC (CHR 34) arq)
(PRINC (CHR 32) arq)
(PRINC (CHR 34) arq)
(PRINC (CADR p1) arq)
(PRINC (CHR 34) arq)
(PRINC (CHR 32) arq)
(PRINC (CHR 34) arq)
(PRINC (CADDR p1) arq)
(PRINC (CHR 34) arq)
(PRINC ")\n" arq)
)
nil
)
(SETQ numero (1+ numero))
and sorry for not a king's english...
e.fernal