Changeset 3829

Timestamp:

09/16/03 18:00:18 (19 years ago)

Author:

piso

Message:

Verify that N is a non-negative integer.

File:

• trunk/j/src/org/armedbear/lisp/butlast.lisp (modified) (3 diffs)

trunk/j/src/org/armedbear/lisp/butlast.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: butlast.lisp,v 1.1 2003-06-11 00:43:20 piso Exp $
+;;; $Id: butlast.lisp,v 1.2 2003-09-16 18:00:18 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -23 +23 @@
 
 (defun butlast (list &optional (n 1))
-  (unless (listp list)
+  (unless (and (listp list) (typep n '(integer 0)))
     (error 'type-error))
   (unless (null list)
@@ -38 +38 @@
 
 (defun nbutlast (list &optional (n 1))
-  (unless (listp list)
+  (unless (and (listp list) (typep n '(integer 0)))
     (error 'type-error))
   (unless (null list)