diff options
| author | Dave Love | 2000-04-13 19:10:09 +0000 |
|---|---|---|
| committer | Dave Love | 2000-04-13 19:10:09 +0000 |
| commit | a16fcdfc6471bf0eb518097bf639c91e49f33525 (patch) | |
| tree | 4a1fdd9de41985a2906d48dd0b41d7be7219a111 /lisp | |
| parent | eb9e93992f047fe463f13ca2e8deac84c5a89a1c (diff) | |
| download | emacs-a16fcdfc6471bf0eb518097bf639c91e49f33525.tar.gz emacs-a16fcdfc6471bf0eb518097bf639c91e49f33525.zip | |
Remove when, unless.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-specs.el | 8 |
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)) |