TipSafe e argomento divisione sicura in comune LISP

Question

Per farla breve, ho bisogno defun ts_div e consentirgli di essere una versione TypeSafe e "Argomento sicuro" del normale /

Fondamentalmente, voglio che accetti un elenco con un numero qualsiasi di numeri in esso (anche nessuno), ed essere in grado di chiamarlo in questo modo:

(ts_div (123 321 23))

o:

(ts_div somelist)

Risultato desiderato: Se ci sono più di due elementi nell'elenco, il primo sarà diviso per il secondo e il resto viene ignorato. Se il secondo numero è 0, dovrebbe restituire invece il valore del primo numero. Se l'elenco è vuoto, dovrebbe restituire 0.

Qualche suggerimento su come raggiungere questo obiettivo?

Nota a margine: Ho fatto alcuni test cercando di farne la variante di aggiunta. Fondamentalmente, riassumi qualunque numero gli vengano passati in un contesto di elenco, ma come previsto si lamenta del primo elemento nell'elenco che non è una funzione e non sono stato in grado di capire come questo sia mitigato.