Mercurial > emacs

comparison lisp/emacs-lisp/cl-specs.el @ 51582:7e55c8dd414b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(pushnew): Use keywordp.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 16 Jun 2003 16:27:27 +0000
parents 0d8b17d428b5
children 695cf19ef79e
comparison
equal deleted inserted replaced
51581:7ca4059e8636 51582:7e55c8dd414b
1 ;;; cl-specs.el --- Edebug specs for cl.el -*- no-byte-compile: t -*- 1 ;;; cl-specs.el --- Edebug specs for cl.el -*- no-byte-compile: t -*-
2 2
3 ;; Copyright (C) 1993 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 2003 Free Software Foundation, Inc.
4 ;; Author: Daniel LaLiberte <liberte@holonexus.org> 4 ;; Author: Daniel LaLiberte <liberte@holonexus.org>
5 ;; Keywords: lisp, tools, maint 5 ;; Keywords: lisp, tools, maint
6 6
7 ;; LCD Archive Entry: 7 ;; LCD Archive Entry:
8 ;; cl-specs.el|Daniel LaLiberte|liberte@holonexus.org 8 ;; cl-specs.el|Daniel LaLiberte|liberte@holonexus.org
9 ;; |Edebug specs for cl.el 9 ;; |Edebug specs for cl.el
10 ;; |$Date: 2002/10/01 17:00:27 $|1.1| 10 ;; |$Date: 2003/02/04 12:53:34 $|1.1|
11 11
12 ;; This file is part of GNU Emacs. 12 ;; This file is part of GNU Emacs.
13 13
14 ;; GNU Emacs is free software; you can redistribute it and/or modify 14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by 15 ;; it under the terms of the GNU General Public License as published by
129 (def-edebug-spec decf incf) 129 (def-edebug-spec decf incf)
130 (def-edebug-spec push (form place)) ; different for CL 130 (def-edebug-spec push (form place)) ; different for CL
131 (def-edebug-spec pushnew 131 (def-edebug-spec pushnew
132 (form place &rest 132 (form place &rest
133 &or [[&or ":test" ":test-not" ":key"] function-form] 133 &or [[&or ":test" ":test-not" ":key"] function-form]
134 [edebug-keywordp form])) 134 [keywordp form]))
135 (def-edebug-spec pop (place)) ; different for CL 135 (def-edebug-spec pop (place)) ; different for CL
136 136
137 (def-edebug-spec shiftf (&rest place)) ;; really [&rest place] form 137 (def-edebug-spec shiftf (&rest place)) ;; really [&rest place] form
138 (def-edebug-spec rotatef (&rest place)) 138 (def-edebug-spec rotatef (&rest place))
139 139