Soundex: Difference between revisions

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