comparison src/data.c @ 251:677f6a0ee643 r20-5b24

Import from CVS: tag r20-5b24
author cvs
date Mon, 13 Aug 2007 10:19:59 +0200
parents 52952cbfc5b5
children 11cf20601dec
comparison
equal deleted inserted replaced
250:f385a461c9aa 251:677f6a0ee643
231 231
232 Do not use this function! 232 Do not use this function!
233 */ 233 */
234 (obj1, obj2)) 234 (obj1, obj2))
235 { 235 {
236 /* The miscreant responsible for this blasphemy is known as 236 /* #### blasphemy */
237 Richard M. Stallman, and he will burn in hell for it. */
238 return HACKEQ_UNSAFE (obj1, obj2) ? Qt : Qnil; 237 return HACKEQ_UNSAFE (obj1, obj2) ? Qt : Qnil;
239 } 238 }
240 239
241 DEFUN ("null", Fnull, 1, 1, 0, /* 240 DEFUN ("null", Fnull, 1, 1, 0, /*
242 T if OBJECT is nil. 241 T if OBJECT is nil.