X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=lists.lisp;fp=lists.lisp;h=a1fd55cf1498367cec2e52f84520620770eda60f;hp=6b0edb27b7550344f33ed1826fc70d4b531936cf;hb=4a5b626f01db51b02f969adb33ddad6aa9ee303a;hpb=45326a2fd9e7761899d593d7f528abf455453b0b

diff --git a/lists.lisp b/lists.lisp
index 6b0edb2..a1fd55c 100644
--- a/lists.lisp
+++ b/lists.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: lists.lisp,v 1.4 2003/05/11 21:51:43 kevin Exp $
+;;;; $Id: lists.lisp,v 1.5 2003/06/06 21:59:29 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -16,8 +16,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
-(in-package :kmrcl)
-
+(in-package #:kmrcl)
 
 (defun mklist (obj)
   "Make into list if atom"
@@ -28,7 +27,7 @@
   (let ((acc nil))
     (dolist (x lst (nreverse acc))
       (let ((val (funcall fn x)))
-        (if val (push val acc))))))
+        (when val (push val acc))))))
 
 (defun appendnew (l1 l2)
   "Append two lists, filtering out elem from second list that are already in first list"
@@ -127,4 +126,3 @@
   (let ((results (car list)))
     (dolist (elem (cdr list) results)
       (setq results (append results elem)))))
-