From ff7cf4f139300715ed83caf64be62457b40f3a91 Mon Sep 17 00:00:00 2001 From: Nick Briggs Date: Sat, 14 Jan 2023 22:16:59 -0800 Subject: [PATCH] Use compile-time constant SMALLP_ZERO instead of GetSmallp(0) call --- src/dsk.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/dsk.c b/src/dsk.c index a2b39d9..ff349d3 100644 --- a/src/dsk.c +++ b/src/dsk.c @@ -1700,7 +1700,7 @@ LispPTR COM_getfileinfo(LispPTR *args) * unknown. The returned value from Lisp GETFILEINFO * function would be "". */ - return (GetSmallp(0)); + return (SMALLP_ZERO); } STRING_BASE(args[2], base); len = strlen(pwd->pw_name); @@ -1739,7 +1739,7 @@ LispPTR COM_getfileinfo(LispPTR *args) *bufp = sbuf.st_mode; #ifndef DOS TIMEOUT0(pwd = getpwuid(sbuf.st_uid)); - if (pwd == (struct passwd *)NULL) { return (GetSmallp(0)); } + if (pwd == (struct passwd *)NULL) { return (SMALLP_ZERO); } laddr = cdr(car(cdr(cdr(cdr(cdr(args[2])))))); STRING_BASE(laddr, base); len = strlen(pwd->pw_name);