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))