X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=examples%2Fgetshells.lisp;h=c3093f0f007f3fec1a5ff21513f43a9025f31cdc;hb=d59e8f81e642edbfb09245336bfd3bcfba1080f5;hp=280009ff2ea52e4f106e7ec4f9573396c8baada3;hpb=3ade95bab16abe09642554e9cbf56f117f01e507;p=uffi.git diff --git a/examples/getshells.lisp b/examples/getshells.lisp index 280009f..c3093f0 100644 --- a/examples/getshells.lisp +++ b/examples/getshells.lisp @@ -34,7 +34,7 @@ (let (shells) (do ((shell (uffi:convert-from-cstring (getusershell)) (uffi:convert-from-cstring (getusershell)))) - ((null shell)) + ((null shell)) (push shell shells)) (endusershell) (nreverse shells)))