grus<inaba> acl Allegro CL 3.0.1.beta [sun4] (10/11/90 17:26) Copyright (C) 1985-1988, Franz Inc., Berkeley, CA, USA > (nthcdr 1 '(a b c)) (B C) > (nth 1 '(a b c)) B
(defun nth (nth sexp) (dotimes (i nth (car sexp)) (setq sexp (cdr sexp)))) (defun nthcdr (nth sexp) (dotimes (i nth sexp) (setq sexp (cdr sexp))))