Soundex: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: Graceful behavior on empty string.) |
(→{{header|Common Lisp}}: Only need three 0 chars.) |
||
Line 222: | Line 222: | ||
(push (get-code c) o) |
(push (get-code c) o) |
||
finally |
finally |
||
(return (subseq (coerce (nreverse `( |
(return (subseq (coerce (nreverse `(#\0 #\0 #\0 ,@o)) 'string) 0 4)))))) |
||
</lang> |
</lang> |