First CLISP functions of a babby

Hey /prague/,
what do you think of my first functions? Do you think i am corrupted by the procedural paradigm already?


(defun factorial (a)
    "Calcula el factorial de a"
    (if (< a 1)
        1
        (* a (factorial (- a 1)))))

(defun get-n-elements (a n)
    "Crea una lista con los n primeros elementos de a,
    si a tiene menos de n elementos, rellena los elementos
    restantes con NIL"
    (cond
        ((<= n 0) nil)
        (T (append (list (car a)) (get-n-elements (rest a) (- n 1))))))
       

(defun get-n-to-m-elements (a n m)
    "Crea una lista con los elementos entre n y m de a"
    (cond
        ((not a) nil)
        ((> n m) (get-n-to-m-elements a m n))
        (T (reverse (get-n-elements (reverse (get-n-elements a m)) (+ (- m n) 1))))))

Well, I think posting quotes from deceased internet cranks is prima facie evidence of total ignorance of the topic being discussed, even if a bunch of spineless fanboys mindlessly jerk you off for submitting it. It is somewhat like a supposed contribution like "man, I don't have anything useful to show that's relevant to what you're talking about, but here's what some bitter jackass who used big words had to say about it."