From 51f6a212036fa8e9d3f6f8c26d5f6668f3c156c0 Mon Sep 17 00:00:00 2001 From: Carlos Ungil Date: Thu, 2 Jul 2015 22:42:19 +0200 Subject: [PATCH] more robust get-unique-strings --- xlsx.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/xlsx.lisp b/xlsx.lisp index 87eba75..dd04c07 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 -- GitLab