github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-14 15:36:34 +00:00
Code Issues Projects Releases Wiki Activity

Use compile-time constant SMALLP_ZERO instead of GetSmallp(0) call

Browse Source
This commit is contained in:
Nick Briggs 2023-01-14 22:16:59 -08:00
parent a7fba8d4bd
commit ff7cf4f139
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/dsk.c
View File

@ -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);