# HG changeset patch # User Karl Heuer # Date 789097536 0 # Node ID c1c2ec3aeefacfee52c5a3d4581b81c706de986c # Parent c91b1f4295a14e8c3bd41e6d6659824425d77d9c Use consistent spelling in comments. diff -r c91b1f4295a1 -r c1c2ec3aeefa src/lisp.h --- a/src/lisp.h Tue Jan 03 01:35:49 1995 +0000 +++ b/src/lisp.h Tue Jan 03 01:45:36 1995 +0000 @@ -202,7 +202,7 @@ #define PSEUDOVECTOR_FLAG ((ARRAY_MARK_FLAG >> 1) & ~ARRAY_MARK_FLAG) #endif -/* In a pseudo-vector, the size field actually contains a word with one +/* In a pseudovector, the size field actually contains a word with one PSEUDOVECTOR_FLAG bit set, and exactly one of the following bits to indicate the actual type. */ enum pvec_type @@ -830,13 +830,13 @@ #define GC_SOME_BUFFER_LOCAL_VALUEP(x) (GC_MISCP (x) && XMISC (x)->type == Lisp_Misc_Some_Buffer_Local_Value) -/* True if object X is a pseudo vector whose code is CODE. */ +/* True if object X is a pseudovector whose code is CODE. */ #define PSEUDOVECTORP(x, code) \ (VECTORLIKEP (x) \ && (((XVECTOR (x)->size & (PSEUDOVECTOR_FLAG | (code)))) \ == (PSEUDOVECTOR_FLAG | (code)))) -/* True if object X is a pseudo vector whose code is CODE. +/* True if object X is a pseudovector whose code is CODE. This one works during GC. */ #define GC_PSEUDOVECTORP(x, code) \ (GC_VECTORLIKEP (x) \