[PATCH]: Define `not' as a primitive.

1998-04-24 Martin Buchholz <martin(a)xemacs.org&gt; * subr.el: Remove definition of `not'. * data.c (Fnot): There has traditionally been kludgy startup lisp code that called `null' even if `not' was more appropriate, because `not' was defined in lisp. This is one primitive sufficiently important that it should ALWAYS be defined. --- src/data.c.old +++ src/data.c ＠＠ -206,6 +206,15 ＠＠ return NILP (object) ? Qt : Qnil; } +DEFUN ("not", Fnot, 1, 1, 0, /* +Return t if OBJECT is nil. +*/ + (object)) +{ + return NILP (object) ? Qt : Qnil; +} + + DEFUN ("consp", Fconsp, 1, 1, 0, /* Return t if OBJECT is a cons cell. */ ＠＠ -2226,6 +2235,7 ＠＠ DEFSUBR (Feq); DEFSUBR (Fold_eq); DEFSUBR (Fnull); + DEFSUBR (Fnot); DEFSUBR (Flistp); DEFSUBR (Fnlistp); DEFSUBR (Ftrue_list_p); --- lisp/subr.el.old +++ lisp/subr.el ＠＠ -88,7 +88,6 ＠＠ ;; XEmacs: not used. ;; XEmacs: -(define-function 'not 'null) (define-function-when-void 'numberp 'integerp) ; different when floats (defun local-variable-if-set-p (sym buffer)