fork(7) download
  1. (DEFUN MY_REVERSE(lst)
  2. (COND ((NULL lst) NIL)
  3. ((ATOM (CAR LST)) (APPEND (MY_REVERSE (CDR lst)) (LIST(CAR LST))) )
  4. (1 (APPEND (MY_REVERSE (CDR lst)) (LIST (MY_REVERSE (CAR LST)))) )
  5. )
  6. )
  7.  
  8. (PRINT (MY_REVERSE '(1 2 3 4 5)))
Success #stdin #stdout 0.02s 10584KB
stdin
Standard input is empty
stdout
(5 4 3 2 1)