Home
last modified time | relevance | path

Searched +refs:symbol +refs:debug +refs:function +refs:arglist (Results 1 – 25 of 1640) sorted by relevance

12345678910>>...66

/dports/editors/emacs-devel/emacs-4d1968b/lisp/emacs-lisp/
H A Dnadvice.el136 (let ((arglist (help-function-arglist flist)))
139 (if (stringp arglist) t
140 (help--make-usage-docstring function arglist)))
165 (if (not (and (symbolp function) (autoloadp (indirect-function function))))
215 (or (equal function
327 (debug (form [&or symbolp ("local" form) ("var" sexp) gv-place]
368 (declare (debug ([&or symbolp ("local" form) ("var" sexp) gv-place]
459 (defun advice-add (symbol where function &optional props)
491 (defun advice-remove (symbol function)
510 (fset symbol (car (get symbol 'advice--saved-rewrite)))))))
[all …]
H A Dmacroexp.el274 (setq arglist (cdr arglist)))
332 (`(function ,(and f `(lambda . ,_)))
334 (macroexp--cons 'function
339 (`(,(or 'function 'quote) . ,_) form)
538 (declare (indent 3) (debug (sexp sexp form body)))
554 (declare (indent 2) (debug (sexp (&rest (sexp form)) body)))
586 (or (memq symbol '(nil t))
587 (keywordp symbol)
592 (and (boundp symbol)
594 (progn (set symbol (symbol-value symbol)) nil)
[all …]
/dports/editors/emacs/emacs-27.2/lisp/emacs-lisp/
H A Dnadvice.el126 (let ((arglist (help-function-arglist flist)))
129 (if (stringp arglist) t
130 (help--make-usage-docstring function arglist)))
149 (when (commandp function)
150 (if (not (and (symbolp function) (autoloadp (indirect-function function))))
200 (or (equal function
312 (debug (form [&or symbolp ("local" form) ("var" sexp) gv-place]
335 (declare (debug ([&or symbolp ("local" form) ("var" sexp) gv-place]
426 (defun advice-add (symbol where function &optional props)
456 (defun advice-remove (symbol function)
[all …]
/dports/editors/emacs/emacs-27.2/lisp/
H A Dhelp.el135 (defun help-print-return-message (&optional function)
169 (funcall (or function 'message)
555 (error symbol)))
1031 (if (fboundp symbol)
1103 :type '(choice integer function)
1120 :type '(choice integer function)
1349 (declare (indent 1) (debug t))
1477 (unless (integerp max) (push '&rest arglist) (push 'rest arglist))
1483 (defun help--make-usage (function arglist)
1484 (cons (if (symbolp function) function 'anonymous)
[all …]
/dports/lang/sbcl/sbcl-1.3.13/src/interpreter/
H A Dsexpr.lisp35 (defun %handler (function payload) (cons function payload))
256 (declaim (ftype (function (symbol t t) nil) typecheck-fail typecheck-fail/ref)
258 (ftype (function (function fixnum) nil)
574 (declaim (ftype (sfunction (function) function) interpreted-applicator))
880 (defun fluid-def-p (symbol)
947 (if (policy env (and (= speed 3) (= debug 0) (= safety 0)))
1042 (tail arglist))
1126 (tail arglist))
1130 (apply (the symbol (svref data 0)) arglist))
1249 (let* ((arglist (make-list (1- (length data)))) (tail arglist))
[all …]
/dports/editors/emacs-devel/emacs-4d1968b/lisp/
H A Dhelp.el141 (defun help-print-return-message (&optional function)
175 (funcall (or function 'message)
638 (error symbol)))
1015 (if (fboundp symbol)
1666 :type '(choice integer function)
1683 :type '(choice integer function)
1924 (declare (indent 1) (debug t))
2058 (unless (integerp max) (push '&rest arglist) (push 'rest arglist))
2064 (defun help--make-usage (function arglist)
2065 (cons (if (symbolp function) function 'anonymous)
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/drracket/gui-debugger/
H A Dannotator.rkt11 (define (arglist-bindings arglist-stx)
12 (syntax-case arglist-stx ()
14 (identifier? arglist-stx)
15 (list arglist-stx)]
17 (syntax->list arglist-stx)]
19 (cons #'var (arglist-bindings #'others))]))
113 ; (symbol? syntax? syntax? . -> . void?)
126 ;; new scope: let, lambda, and function calls. These annotations reify the
139 ;; The RECORD-BOUND-ID function is a callback that is invoked each time a
143 ;; bound-stx : syntax where the symbol is introduced, looked up, set, respectively
[all …]
/dports/lang/clisp/clisp-df3b9f6fdcff22832898e89a989eb499c0f842ed/tests/
H A Dmacro8.tst7 ;macro-function | defmacro
10 (and (macro-function 'push) T)
13 (and (macro-function 'member) T)
25 (and (macro-function 'arithmetic-if) T)
101 (if (macro-function 'bar env)
235 (let* ((f '(locally (declare (optimize safety abazonk (debug 20))) (+ 3 4)))
918 (declare (optimize (space 3) (debug 0) (safety 1)
1147 (push (arglist 'test-macro-arglist) ret)
1166 (arglist 'test-macro-arglist))
1180 (arglist 'test-fun-arglist))
[all …]
/dports/editors/slime/slime-2.26.1-9-gf368e22a/swank/
H A Dclasp.lisp37 (declaim (optimize (debug 3)))
318 (defimplementation arglist (name) unknown
319 (multiple-value-bind (arglist foundp)
321 (if foundp arglist :not-available)))
359 (defimplementation describe-symbol-for-emacs (symbol)
362 (when (funcall boundp symbol)
363 (let ((doc (describe-definition symbol type)))
377 (defimplementation type-specifier-p (symbol)
378 (or (subtypep nil symbol)
379 (not (eq (type-specifier-arglist symbol) :not-available))))
[all …]
H A Dsbcl.lisp25 (declaim (optimize (debug 2)
460 (defimplementation arglist (fname) unknown
464 (defimplementation arglist (fname) unknown
487 (multiple-value-bind (arglist foundp)
489 (if foundp arglist (call-next-method))))
660 (declare (type function function))
677 (error () (sb-ext:restrict-compiler-policy 'debug)))
1000 (declare (type function function))
1520 (multiple-value-bind (fun arglist)
1530 (declare (optimize (debug 0)))
[all …]
H A Decl.lisp42 (declaim (optimize (debug 3)))
389 (defimplementation arglist (name) unknown
390 (multiple-value-bind (arglist foundp)
392 (if foundp arglist :not-available)))
394 (defimplementation type-specifier-p (symbol)
395 (or (subtypep nil symbol)
433 (when (funcall boundp symbol)
562 (symbol (and (fboundp x)
769 (function
991 (declare (type symbol name))
[all …]
/dports/editors/sly/sly-1.0.43/slynk/backend/
H A Dclasp.lisp38 (declaim (optimize (debug 3)))
319 (defimplementation arglist (name) unknown
320 (multiple-value-bind (arglist foundp)
322 (if foundp arglist :not-available)))
360 (defimplementation describe-symbol-for-emacs (symbol)
363 (when (funcall boundp symbol)
364 (let ((doc (describe-definition symbol type)))
378 (defimplementation type-specifier-p (symbol)
379 (or (subtypep nil symbol)
380 (not (eq (type-specifier-arglist symbol) :not-available))))
[all …]
H A Dsbcl.lisp27 (declaim (optimize (debug 2)
482 (defimplementation arglist (fname) unknown
486 (defimplementation arglist (fname) unknown
509 (multiple-value-bind (arglist foundp)
511 (if foundp arglist (call-next-method))))
682 (declare (type function function))
699 (error () (sb-ext:restrict-compiler-policy 'debug)))
1022 (declare (type function function))
1512 (multiple-value-bind (fun arglist)
1522 (declare (optimize (debug 0)))
[all …]
H A Decl.lisp42 (declaim (optimize (debug 3)))
389 (defimplementation arglist (name) unknown
390 (multiple-value-bind (arglist foundp)
392 (if foundp arglist :not-available)))
394 (defimplementation type-specifier-p (symbol)
395 (or (subtypep nil symbol)
419 (when (funcall boundp symbol)
557 (symbol (and (fboundp x)
764 (function
986 (declare (type symbol name))
[all …]
/dports/lang/abcl/abcl-src-1.8.0/src/org/armedbear/lisp/
H A Dprecompiler.lisp60 (debug
68 (dolist (symbol (%cdr decl))
404 (let* ((arglist (second lambda))
406 (simple-arglist? (not (or (memq '&KEY arglist) (memq '&OPTIONAL arglist) (memq '&REST arglist)))))
416 (let ((arglist-length (if (memq '&aux arglist) (position '&aux arglist) (length arglist))))
422 (loop for arg-name in arglist
426 (subseq arglist (1+ arglist-length)))
999 (defun install-handler (symbol &optional handler)
1000 (declare (type symbol symbol))
1007 (format nil "~S" symbol))))
[all …]
/dports/editors/slime/slime-2.26.1-9-gf368e22a/
H A Dswank.lisp492 (funcall function)
1973 A function name (symbol or cons),
2150 Rather than recursively debug the debugger (a dangerous idea!), these
3686 (let ((arglist (arglist symbol)))
3687 (etypecase arglist
3694 (defun macro-indentation (arglist)
3695 (if (well-formed-list-p arglist)
3699 (defun clean-arglist (arglist)
3701 (cond ((null arglist) '())
3704 ((eq (car arglist) '&aux)
[all …]
/dports/editors/sly/sly-1.0.43/slynk/
H A Dslynk.lisp695 (funcall function)
2333 A function name (symbol or cons),
2514 Rather than recursively debug the debugger (a dangerous idea!), these
4000 (let ((arglist (arglist symbol)))
4001 (etypecase arglist
4008 (defun macro-indentation (arglist)
4009 (if (well-formed-list-p arglist)
4013 (defun clean-arglist (arglist)
4015 (cond ((null arglist) '())
4018 ((eq (car arglist) '&aux)
[all …]
/dports/devel/avr-gdb/gdb-7.3.1/bfd/doc/
H A Dtargets.texi76 to the called function.
81 #define BFD_SEND(bfd, message, arglist) \
82 ((*((bfd)->xvec->message)) arglist)
86 #define BFD_SEND(bfd, message, arglist) \
88 ((*((bfd)->xvec->message)) arglist) : \
269 /* Called to copy BFD private symbol data from one symbol
363 /* Back-door to allow format-aware applications to create debug symbols
475 /* Define a common symbol. */
506 endianness. The function open_output() in ld/ldlang.c uses this field
601 result when passed to the function @var{search_func}. The
[all …]
/dports/devel/tigcc/tigcc-0.96.b8_10/gnu/binutils-2.16.1/bfd/doc/
H A Dtargets.texi76 to the called function.
81 #define BFD_SEND(bfd, message, arglist) \
82 ((*((bfd)->xvec->message)) arglist)
86 #define BFD_SEND(bfd, message, arglist) \
88 ((*((bfd)->xvec->message)) arglist) : \
170 /* The character normally found at the front of a symbol.
261 /* Called to copy BFD private symbol data from one symbol
344 /* Back-door to allow format-aware applications to create debug symbols
470 endianness. The function open_output() in ld/ldlang.c uses this field
534 result when passed to the function @var{search_func}. The
[all …]
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/binutils/bfd/doc/
H A Dtargets.texi76 to the called function.
81 #define BFD_SEND(bfd, message, arglist) \
82 ((*((bfd)->xvec->message)) arglist)
86 #define BFD_SEND(bfd, message, arglist) \
88 ((*((bfd)->xvec->message)) arglist) : \
170 /* The character normally found at the front of a symbol.
260 /* Called to copy BFD private symbol data from one symbol
338 /* Back-door to allow format-aware applications to create debug symbols
450 endianness. The function open_output() in ld/ldlang.c uses this field
514 result when passed to the function @var{search_func}. The
[all …]
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/binutils/bfd/doc/
H A Dtargets.texi76 to the called function.
81 #define BFD_SEND(bfd, message, arglist) \
82 ((*((bfd)->xvec->message)) arglist)
86 #define BFD_SEND(bfd, message, arglist) \
88 ((*((bfd)->xvec->message)) arglist) : \
170 /* The character normally found at the front of a symbol.
260 /* Called to copy BFD private symbol data from one symbol
338 /* Back-door to allow format-aware applications to create debug symbols
450 endianness. The function open_output() in ld/ldlang.c uses this field
514 result when passed to the function @var{search_func}. The
[all …]
/dports/devel/djgpp-binutils/binutils-2.17/bfd/doc/
H A Dtargets.texi76 to the called function.
81 #define BFD_SEND(bfd, message, arglist) \
82 ((*((bfd)->xvec->message)) arglist)
86 #define BFD_SEND(bfd, message, arglist) \
88 ((*((bfd)->xvec->message)) arglist) : \
170 /* The character normally found at the front of a symbol.
268 /* Called to copy BFD private symbol data from one symbol
358 /* Back-door to allow format-aware applications to create debug symbols
484 endianness. The function open_output() in ld/ldlang.c uses this field
548 result when passed to the function @var{search_func}. The
[all …]
/dports/lang/gnatdroid-binutils-x86/binutils-2.27/bfd/doc/
H A Dtargets.texi76 to the called function.
81 #define BFD_SEND(bfd, message, arglist) \
82 ((*((bfd)->xvec->message)) arglist)
86 #define BFD_SEND(bfd, message, arglist) \
88 ((*((bfd)->xvec->message)) arglist) : \
277 /* Called to copy BFD private symbol data from one symbol
375 /* Back-door to allow format-aware applications to create debug symbols
494 /* Define a common symbol. */
525 endianness. The function open_output() in ld/ldlang.c uses this field
620 result when passed to the function @var{search_func}. The
[all …]
/dports/lang/gnatdroid-binutils/binutils-2.27/bfd/doc/
H A Dtargets.texi76 to the called function.
81 #define BFD_SEND(bfd, message, arglist) \
82 ((*((bfd)->xvec->message)) arglist)
86 #define BFD_SEND(bfd, message, arglist) \
88 ((*((bfd)->xvec->message)) arglist) : \
277 /* Called to copy BFD private symbol data from one symbol
375 /* Back-door to allow format-aware applications to create debug symbols
494 /* Define a common symbol. */
525 endianness. The function open_output() in ld/ldlang.c uses this field
620 result when passed to the function @var{search_func}. The
[all …]
/dports/devel/gdb761/gdb-7.6.1/bfd/doc/
H A Dtargets.texi76 to the called function.
81 #define BFD_SEND(bfd, message, arglist) \
82 ((*((bfd)->xvec->message)) arglist)
86 #define BFD_SEND(bfd, message, arglist) \
88 ((*((bfd)->xvec->message)) arglist) : \
276 /* Called to copy BFD private symbol data from one symbol
374 /* Back-door to allow format-aware applications to create debug symbols
492 /* Define a common symbol. */
523 endianness. The function open_output() in ld/ldlang.c uses this field
618 result when passed to the function @var{search_func}. The
[all …]

12345678910>>...66