Здравствуйте!
Пожалуйста помогите написать программу на лиспе:
Дано 3 списка (L1 L2 L3) , нужно вывести true если L1 является префиксом L2 и L3 является суффиксом L2 , в противном случае false

Писал на прологе программу , не могу портировать на лисп(
Помогите пожалуйста.

app([],L,L).

app([H|T],L,[H|LT]):-app(T,L,LT).

pref(P,L):-app(P,_,L).

suf(S,L):-app(_,S,L).

result(L1,L2,L3):-pref(L1,L2),suf(L3,L2).

(defun prefix-suffix (p

                      w

                      s

                      &aux

                      (pn (length p))

                      (wn (length w))

                      (sn (length s))

                      (a (mismatch p w))

                      (b (mismatch (reverse s) (reverse w))))

  (and p

       w

       s

       (> wn pn)

       (> wn sn)

       (> (1+ a) pn)

       (> (1+ b) sn)))

 

> (prefix-suffix '(1 2) '(1 2 3 4 5) '(4 5))

T

> (prefix-suffix '(1 2 3) '(1 2 3) '(1 2 3))

NIL

> (prefix-suffix '(1 3) '(1 2 3 4 5) '(4 5))

NIL