;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: strings.lisp,v 1.21 2003/05/06 01:43:14 kevin Exp $
+;;;; $Id: strings.lisp,v 1.22 2003/05/06 08:15:15 kevin Exp $
;;;;
;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(do* ((rest-lists lists (cdr rest-lists))
(list (car rest-lists) (car rest-lists))
(last-list (null (cdr rest-lists)) (null (cdr rest-lists))))
- ((null list) strm)
+ ((null rest-lists) strm)
(do* ((lst list (cdr lst))
(elem (car lst) (car lst))
(last-elem (null (cdr lst)) (null (cdr lst))))