DEFINE((
(DIFF (LAMBDA (LST) (COND
         ((NULL (CDR LST)) NIL)
         (T (CONS (DIFFERENCE (CADR LST) (CAR LST))
                  (DIFF (CDR LST))))))) 
))

DIFF((3 1 4 1 5 9 2 6 5))