Anonymous user
Soundex: Difference between revisions
→{{header|Common Lisp}}: Use the variable instead of redundant call to get-code.
(→{{header|TXR}}: TXR Lisp solution.) |
(→{{header|Common Lisp}}: Use the variable instead of redundant call to get-code.) |
||
Line 458:
for cp = #\Z then cg
when (and cg (not (eql cg cp))) do
(push
finally
(return (subseq (coerce (nreverse `(#\0 #\0 #\0 ,@o)) 'string) 0 4))))))</lang>
|