diff --git a/xlsx.lisp b/xlsx.lisp index 87eba750bdf90ada5ccca98f29063688d76e7889..dd04c07937cfea7f701d5a1f8b865045220a199a 100644 --- a/xlsx.lisp +++ b/xlsx.lisp @@ -16,9 +16,9 @@ (defun get-unique-strings (zip) (loop for str in (xmls:xmlrep-find-child-tags :si (get-entry "xl/sharedStrings.xml" zip)) - collect (if (equal (second (xmls:xmlrep-find-child-tag :t str)) '(("space" "preserve"))) - " " - (xmls:xmlrep-string-child (xmls:xmlrep-find-child-tag :t str))))) + for x = (xmls:xmlrep-find-child-tag :t str) + collect (cond ((equal (second x) '(("space" "preserve"))) " ") + ((xmls:xmlrep-children x) (xmls:xmlrep-string-child x))))) (defun get-number-formats (zip) (let ((format-codes (loop for fmt in (xmls:xmlrep-find-child-tags