cleanup

add-a-gram.lisp

@@ -42,11 +42,10 @@
     foo))
 
 (defun sort-word (word)
-  (concatenate 'string (sort (coerce word 'list) #'char<)))
+  (sort (copy-seq word) #'char<))
   
 (defun show-result (sorted-word)
-  (cond ((= (length sorted-word) 3)
-	   (format t "~A~%" (gethash sorted-word *wordlist*)) )
-	(t
-	   (format t "~A~%" (gethash sorted-word *wordlist*))
-	   (show-result (add-a-gram-p sorted-word)))))
+  (format t "~A~%" (gethash sorted-word *wordlist*))
+  (unless (= (length sorted-word) 3)
+    (show-result (add-a-gram-p sorted-word))))
+