Как сделать "оболочку" для функции?

(defun del-pos (lst n)
  (cond ((zerop n) (cdr lst))
        (t (cons (car lst) (del-pos (cdr lst) (- n 1))))))

(defun del-from-pos (lst n)
  (cond ((not (numberp n)) (raiseerror "Номер позиции не число"))
        ((not (listp lst)) (raiseerror "Первый аргумент не список"))
        (t (del-pos lst n))))
 
;; Проверка
 
(del-from-pos '(a s d f) 2)
 
==> (a s f)
 
(del-from-pos '(a s d f) 1)
 
==> (a d f)
 
(del-from-pos '(a s d f) 0)
 
==> (s d f)
 
(del-from-pos '(a s d f) 'j)
 
Номер позиции не число
==> ERRSTATE
 
(del-from-pos 'a 1)
 
Первый аргумент не список
==> ERRSTATE

> 
;racket
;remove nth atom from list 'lst'
(define (foo lst n)
  (cond ((not (number? n)) (error "n is not number" n))
        ((not (list? lst)) (error "lst is not list" lst))
        ((or (>= n (length lst)) (< n 0) ) (error "impossible n" n))
        (else
         (let rec-foo ((l lst) (k n))
           (cond ((null? l) '())
                 ((= k 0) (rec-foo (cdr l) (- k 1)))
                 (else (cons (car l) (rec-foo (cdr l) (- k 1)))))))))
> (foo '(1 2 3 4) 2)
'(1 2 4)
> (foo '(1 2 3 4) -3)
. . impossible n -3
> (foo '(1 2 3 4) 4)
. . impossible n 4
> (foo (cons (cons 1 2) 3) 2)
. . lst is not list ((1 . 2) . 3)
>