[cells-cvs] CVS update: cell-cultures/utils-kt/strings.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/utils-kt
In directory common-lisp.net:/tmp/cvs-serv705/utils-kt

Modified Files:
	strings.lisp 
Log Message:

Date: Wed Jul 21 04:49:40 2004
Author: ktilton

Index: cell-cultures/utils-kt/strings.lisp
diff -u cell-cultures/utils-kt/strings.lisp:1.1 cell-cultures/utils-kt/strings.lisp:1.2
--- cell-cultures/utils-kt/strings.lisp:1.1	Sat Jun 26 11:38:43 2004
+++ cell-cultures/utils-kt/strings.lisp	Wed Jul 21 04:49:40 2004
@@ -159,11 +159,12 @@
    (down$ s))
 
 (defun down$ (s)
-   (etypecase s
+   (typecase s
      (null "")
      (string (string-downcase s))
      (number (format nil "~a" s))
-     (symbol (string-downcase (symbol-name s)))))
+     (symbol (string-downcase (symbol-name s)))
+     (cons (format nil "~{~(~a~)~^ ~}" s))))
 
 (defun lower$ (s)
    (string-downcase s))