Lines Matching +defs:not +defs:modified
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
40 ;; if the compiler or interpreter is used---this file is not
93 (if (and (consp x) (not (memq (car x) '(quote function function*))))
107 (not xs))
111 (or (not (and (consp x) (not (memq (car x) '(quote function function*)))))
133 (not xs))
149 ((and (consp x) (not (memq (car-safe x) '(quote function function*))))
157 (while (and y (not (cl-expr-contains x (car y)))) (pop y))
162 (and (not (cl-const-expr-p x))
163 (or (not (cl-safe-expr-p x)) (cl-expr-contains-any x y))))
247 (if (memq '&whole args) (error "&whole not currently implemented"))
252 (not (memq (car args) '(nil &rest &body &key &aux)))
253 (not (and (eq (car args) '&optional)
273 ;; thingy that I do not understand), so remove it.
283 (if (or (memq args lambda-list-keywords) (not (symbolp args)))
304 (while (and p (not (memq (car p) lambda-list-keywords)))
310 exactarg (not (eq args p)))))
311 (while (and args (not (memq (car args) lambda-list-keywords)))
312 (let ((poparg (list (if (or (cdr args) (not exactarg)) 'pop 'car)
319 (list 'list (and (not (eq bind-block 'cl-none))
324 (while (and args (not (memq (car args) lambda-list-keywords)))
343 (and (not (eq bind-block 'cl-none))
348 (while (and args (not (memq (car args) lambda-list-keywords)))
399 (format "Keyword argument %%s not one of %s"
404 (while (and args (not (memq (car args) lambda-list-keywords)))
436 (defvar cl-not-toplevel nil)
446 (not cl-not-toplevel) (not (boundp 'for-effect))) ; horrible kludge
448 (cl-not-toplevel t))
527 `otherwise'-clauses are not allowed.
559 `otherwise'-clauses are not allowed.
573 references may appear inside macro expansions, but not inside functions
611 `defmacro' do not create implicit blocks as they do in Common Lisp."
640 (if (not (memq t (mapcar 'symbolp (delq nil (delq t (copy-list args))))))
651 (while (not (eq (car args) 'cl-end-loop)) (cl-parse-loop-clause))
684 (not (cdar loop-bindings)))
725 ;; (not (eq (symbol-name var1) (symbol-name var2))) because
750 (end-var (and (not (cl-const-expr-p end))
752 (step-var (and (not (cl-const-expr-p step))
755 (error "Loop `by' value is not positive: %s" step))
830 (and (not (memq (car args) '(in of)))
868 (not (eq (caadr args) word)))
919 (not (eq (caadr args) word)))
935 (push (list 'prog1 (list 'not (list 'eq var temp))
949 (push (list 'prog1 (list 'not (list 'eq var temp))
1048 (push (list 'not (pop args)) loop-body))
1057 (push (list 'setq loop-finish-flag (list 'not (pop args)))
1065 (list 'not (list 'setq loop-result-var (pop args))))
1202 (list* 'while (list 'not (car endtest))
1212 (list (cons (if (or star (not (cdr sets)))
1306 (error "Use `labels', not `flet', to rebind macro names"))
1327 ;; (not (eq (symbol-name var1) (symbol-name var2))) because these
1397 (if (not (get (car (last cl-closure-vars)) 'used))
1594 (while (and p (not (eq (car p) '&aux)))
1683 (defsetf buffer-modified-p (&optional buf) (flag)
1685 (list 'set-buffer-modified-p flag)))
1783 (error "First arg to apply in setf is not (function SYM): %s" func))
1794 (error "%s is not suitable for use with setf-of-apply" func))
1876 (optimize (and (not (eq opt-expr 'no-opt))
1877 (or (and (not (eq opt-expr 'unsafe))
1903 (not (eq (car-safe (symbol-function (car form))) 'macro))))
1932 (if (or (not (symbolp (car p))) (cl-expr-depends-p (nth 1 p) vars))
1964 (tag-temp (and (not (cl-const-expr-p tag)) (make-symbol "--cl-remf-tag--")))
1965 (val-temp (and (not (cl-simple-expr-p place))
2000 (if (not (memq nil (mapcar 'symbolp args)))
2025 values. Note that this macro is *not* available in Common Lisp.
2027 the PLACE is not modified before executing BODY.
2030 (if (and (not (cdr bindings)) (cdar bindings) (symbolp (caar bindings)))
2043 (temp (and (not (cl-const-expr-p value)) (cdr bindings)
2081 values. Note that this macro is *not* available in Common Lisp.
2083 the PLACE is not modified before executing BODY.
2109 Like `callf', but PLACE is the second argument of FUNC, not the first.
2115 (temp (and (not (cl-const-expr-p arg1)) (make-symbol "--cl-arg1--")))
2127 (if (memq '&key arglist) (error "&key not allowed in define-modify-macro"))
2211 (or type (and include (not (get include 'cl-struct-print)))
2213 print-func (and (or (not (or include type)) (null print-func))
2220 (or inc-type (error "%s is not a struct name" include))
2221 (and type (not (eq (car inc-type) type))
2297 ;; cause a warning because it may not be
2420 ((memq (car type) '(and or not))
2435 "Verify that FORM is of type TYPE; signal an error if not.
2437 (and (or (not (cl-compiling-file))
2449 "Verify that FORM returns non-nil; signal an error if not.
2452 They are not evaluated unless the assertion fails. If STRING is
2454 (and (or (not (cl-compiling-file))
2459 (and (not (cl-const-expr-p x))
2480 FUNC is compiled (i.e., not interpreted). Compiler macros should be used
2504 (not (setq handler (get func 'cl-compiler-macro)))
2506 (or (not (eq (car-safe (symbol-function func)) 'autoload))
2510 (not (eq form (setq form (apply handler form (cdr form))))))))
2527 (unsafe (not (cl-safe-expr-p pbody))))
2537 (not (or unsafe (cl-expr-access-order pbody argns)))
2542 (if (and whole (not (cl-safe-expr-p (cons 'progn argvs)))) whole
2563 (if (and (numberp val) (not (integerp val)))
2568 (if (and (numberp val) (not (integerp val)))
2602 (not (memq :key keys)))