From d37adbea3308d1729d6cf7b23b51dd5d081dc43d Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sat, 15 Feb 2003 03:00:22 +0000 Subject: [PATCH] r4048: *** empty log message *** --- utils.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/utils.lisp b/utils.lisp index e00abb7..8ebcefc 100644 --- a/utils.lisp +++ b/utils.lisp @@ -1,4 +1,4 @@ -;;; $Id: utils.lisp,v 1.5 2003/02/06 23:25:52 kevin Exp $ +;;; $Id: utils.lisp,v 1.6 2003/02/15 03:00:22 kevin Exp $ ;;;; ;;;; General purpose utilities @@ -19,8 +19,9 @@ (string-equal "keyword" (package-name (symbol-package x))))) (defun list-to-spaced-string (list) - (when (consp list) - (format nil "~A~{ ~A~}" (first list) (rest list)))) + (if (consp list) + (format nil "~A~{ ~A~}" (first list) (rest list)) + "")) (defun indent-spaces (n &optional (stream *standard-output*)) "Indent n*2 spaces to output stream" -- 2.34.1