Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv8464 Modified Files: lists.lisp Log Message: Tweaked make-list. --- /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp 2007/02/20 23:11:44 1.19 +++ /project/movitz/cvsroot/movitz/losp/muerte/lists.lisp 2007/02/22 20:27:31 1.20 @@ -9,7 +9,7 @@ ;;;; Created at: Tue Dec 5 18:40:11 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: lists.lisp,v 1.19 2007/02/20 23:11:44 ffjeld Exp $ +;;;; $Id: lists.lisp,v 1.20 2007/02/22 20:27:31 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -232,10 +232,10 @@ (setf (cdr new-tail) (cons (pop more-objects) nil))))))) (defun make-list (size &key initial-element) - (check-type size positive-fixnum) (do ((list nil (cons initial-element list)) - (c size (1- c))) - ((<= c 0) list))) + (c (check-the positive-fixnum size) (1- c))) + ((<= c 0) list) + (declare (positive-fixnum c)))) (defun getf (plist indicator &optional default) (do ((p plist (cddr p)))