--- ray/src/common/calcomp.h	1989/02/02 10:34:13	1.1
+++ ray/src/common/calcomp.h	1989/04/10 22:05:56	1.2
@@ -59,3 +59,7 @@ extern int  nextc;
 extern int  errno;
 
 #define  evalue(ep)	(*eoper[(ep)->type])(ep)
+
+#ifdef  CPM
+#define  defined(D)	D
+#endif