Changeset 7402

Timestamp:

Oct 12, 2007, 9:38:44 AM (13 years ago)

Author:

gb

Message:

NTHCDR typechecks its list arg (in case N is 0).

File:

• branches/working-0710/ccl/level-1/l1-aprims.lisp (modified) (1 diff)

branches/working-0710/ccl/level-1/l1-aprims.lisp

@@ -184 +184 @@
 (defun nthcdr (index list)
   "Performs the cdr function n times on a list."
+  (setq list (require-type list 'list))
   (if (and (typep index 'fixnum)
            (>= (the fixnum index) 0))