(DEFINE REVERSE , (LAMBDA (LIS) , , (PROG (HEAD) , , , (REPEAT , , , , UNTIL (NULL LIS) , , , , (SETQ HEAD (CONS (CAR LIS) HEAD)) , , , , (SETQ LIS (CDR LIS)) , , , ,,,) , , , (RETURN HEAD) , , ,,,) , ,,,) ,,,)