aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorDave Love2000-04-13 19:10:09 +0000
committerDave Love2000-04-13 19:10:09 +0000
commita16fcdfc6471bf0eb518097bf639c91e49f33525 (patch)
tree4a1fdd9de41985a2906d48dd0b41d7be7219a111 /lisp
parenteb9e93992f047fe463f13ca2e8deac84c5a89a1c (diff)
downloademacs-a16fcdfc6471bf0eb518097bf639c91e49f33525.tar.gz
emacs-a16fcdfc6471bf0eb518097bf639c91e49f33525.zip
Remove when, unless.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/emacs-lisp/cl-specs.el8
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el
index 057ca5f1a36..eeb6c3c6b09 100644
--- a/lisp/emacs-lisp/cl-specs.el
+++ b/lisp/emacs-lisp/cl-specs.el
@@ -7,7 +7,7 @@
7;; LCD Archive Entry: 7;; LCD Archive Entry:
8;; cl-specs.el|Daniel LaLiberte|liberte@cs.uiuc.edu 8;; cl-specs.el|Daniel LaLiberte|liberte@cs.uiuc.edu
9;; |Edebug specs for cl.el 9;; |Edebug specs for cl.el
10;; |$Date: 2000/01/30 01:50:41 $|1.1| 10;; |$Date: 2000/01/30 21:20:14 $|1.1|
11 11
12;; This file is part of GNU Emacs. 12;; This file is part of GNU Emacs.
13 13
@@ -47,8 +47,6 @@
47 47
48;; Loops 48;; Loops
49 49
50(def-edebug-spec when t)
51(def-edebug-spec unless t)
52(def-edebug-spec case (form &rest (sexp body))) 50(def-edebug-spec case (form &rest (sexp body)))
53(def-edebug-spec ecase case) 51(def-edebug-spec ecase case)
54(def-edebug-spec do 52(def-edebug-spec do
@@ -127,12 +125,12 @@
127 125
128(def-edebug-spec incf (place &optional form)) 126(def-edebug-spec incf (place &optional form))
129(def-edebug-spec decf incf) 127(def-edebug-spec decf incf)
130(def-edebug-spec push (form place)) 128(def-edebug-spec push (form place)) ; different for CL
131(def-edebug-spec pushnew 129(def-edebug-spec pushnew
132 (form place &rest 130 (form place &rest
133 &or [[&or ":test" ":test-not" ":key"] function-form] 131 &or [[&or ":test" ":test-not" ":key"] function-form]
134 [edebug-keywordp form])) 132 [edebug-keywordp form]))
135(def-edebug-spec pop (place)) 133(def-edebug-spec pop (place)) ; different for CL
136 134
137(def-edebug-spec shiftf (&rest place)) ;; really [&rest place] form 135(def-edebug-spec shiftf (&rest place)) ;; really [&rest place] form
138(def-edebug-spec rotatef (&rest place)) 136(def-edebug-spec rotatef (&rest place))