diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/core.c | 2 | ||||
| -rw-r--r-- | lisp/helper.c | 4 | ||||
| -rw-r--r-- | lisp/math.c | 2 | ||||
| -rw-r--r-- | lisp/mp/mpi.c | 2 | ||||
| -rw-r--r-- | lisp/read.c | 2 | ||||
| -rw-r--r-- | lisp/time.c | 5 |
6 files changed, 4 insertions, 13 deletions
diff --git a/lisp/core.c b/lisp/core.c index 0cc455e..7404840 100644 --- a/lisp/core.c +++ b/lisp/core.c @@ -62,7 +62,7 @@ typedef struct _SeqInfo { break; \ } -#if defined(__UNIXOS2__) || defined(__APPLE__) +#ifdef __APPLE__ # define finite(x) isfinite(x) #endif diff --git a/lisp/helper.c b/lisp/helper.c index be3ee7b..36c113f 100644 --- a/lisp/helper.c +++ b/lisp/helper.c @@ -1060,12 +1060,8 @@ LispProbeFile(LispBuiltin *builtin, int probe) else if (STREAMP(pathname) && pathname->data.stream.type == LispStreamFile) name = THESTR(CAR(pathname->data.stream.pathname->data.pathname)); -#ifndef __UNIXOS2__ if (realpath(name, &resolved[0]) == NULL || stat(resolved, &st)) { -#else - if ((name == NULL) || stat(resolved, &st)) { -#endif if (probe) return (NIL); LispDestroy("%s: realpath(\"%s\"): %s", diff --git a/lisp/math.c b/lisp/math.c index f298e5c..4ca11e6 100644 --- a/lisp/math.c +++ b/lisp/math.c @@ -32,7 +32,7 @@ #include "lisp/math.h" #include "lisp/private.h" -#if defined(__UNIXOS2__) || defined(__APPLE__) +#ifdef __APPLE__ # define finite(x) isfinite(x) #endif diff --git a/lisp/mp/mpi.c b/lisp/mp/mpi.c index 7fcc30e..1e11f31 100644 --- a/lisp/mp/mpi.c +++ b/lisp/mp/mpi.c @@ -31,7 +31,7 @@ #include "mp.h" -#if defined(__UNIXOS2__) || defined(__APPLE__) +#ifdef __APPLE__ # define finite(x) isfinite(x) #endif diff --git a/lisp/read.c b/lisp/read.c index 4103736..ca63079 100644 --- a/lisp/read.c +++ b/lisp/read.c @@ -62,7 +62,7 @@ #define READ_ERROR_FIXNUM() READ_ERROR0("number is not a fixnum") #define READ_ERROR_INVARG() READ_ERROR0("invalid argument") -#if defined(__UNIXOS2__) || defined(__APPLE__) +#ifdef __APPLE__ # define finite(x) isfinite(x) #endif diff --git a/lisp/time.c b/lisp/time.c index 763ca58..cb7ef0c 100644 --- a/lisp/time.c +++ b/lisp/time.c @@ -41,7 +41,6 @@ Lisp_Time(LispBuiltin *builtin) time form */ { -#ifndef __UNIXOS2__ struct itimerval real, virt, prof; unsigned long count; long sec, usec; @@ -136,8 +135,4 @@ Lisp_Time(LispBuiltin *builtin) lisp__data.gc.timebits = 0; return (result); -#else - LispMessage("\"Lisp_Time\" not implemented under OS/2"); - return (NIL); -#endif } |