From: Rocky Bernstein <rocky@gnu.org>
To: Stefan Monnier <monnier@iro.umontreal.ca>
Cc: emacs-devel@gnu.org
Subject: Re: [elpa] master d7bac58 3/5: Wrong require again.
Date: Thu, 04 Aug 2016 22:05:48 +0000 [thread overview]
Message-ID: <CANCp2gYjayhdhUgW25JFn5AdtmwmHeonEajt0wAyYQy7U64v=g@mail.gmail.com> (raw)
In-Reply-To: <jwv37mkchty.fsf-monnier+emacsdiffs@gnu.org>
[-- Attachment #1: Type: text/plain, Size: 59903 bytes --]
Yes please. I will test and amend if needed.
On Thu, Aug 4, 2016, 6:03 PM Stefan Monnier <monnier@iro.umontreal.ca>
wrote:
> >> Do you want me to update the code to use `cl-lib' exclusively?
> > Yes, please. You know more about this than I. See also:
>
> The (untested) patch below should do it. Do you want me to push it to
> elpa.git?
>
>
> Stefan
>
>
> diff --git a/packages/realgud/ChangeLog b/packages/realgud/ChangeLog
> index bc3f48c..d0bb58b 100644
> --- a/packages/realgud/ChangeLog
> +++ b/packages/realgud/ChangeLog
> @@ -1,3 +1,26 @@
> +2016-08-04 Stefan Monnier <monnier@iro.umontreal.ca>
> +
> + * realgud.el: Add missing cl-lib dependency.
> + * <most-other-files>: Remove unneeded (require 'cl) and replace the
> + other ones with (require 'cl-lib)
> +
> + * test/test-common-helper.el (realgud-test-info):
> + * realgud/common/regexp.el (realgud-loc-pat):
> + * realgud/common/lochist.el (realgud-loc-hist):
> + * realgud/common/buffer/info.el (realgud-backtrace-info):
> + * realgud/common/loc.el (realgud-loc): Use `cl-defstruct'.
> +
> + * realgud/common/run.el (realgud:run-process,
> realgud:run-debugger):
> + Use cl-remove-if and cl-remove-duplicates.
> +
> + * realgud/common/track.el (realgud-track-bp-loc): Fix typo.
> +
> + * test/test-track.el:
> + * test/test-regexp.el:
> + * test/test-regexp-ruby.el:
> + * test/test-regexp-rdebug.el:
> + * test/test-core.el: Use lexical-binding rather than lexical-let.
> +
> 2010-11-27 rocky <rocky@gnu.org>
>
> * dbgr/debugger/trepan/init.el, dbgr/lang/ruby.el,
> diff --git a/packages/realgud/realgud.el b/packages/realgud/realgud.el
> index b16cc48..026dbb4 100644
> --- a/packages/realgud/realgud.el
> +++ b/packages/realgud/realgud.el
> @@ -3,11 +3,10 @@
> ;; Author: Rocky Bernstein <rocky@gnu.org>
> ;; Version: 1.4.3
> ;; Package-Type: multi
> -;; Package-Requires: ((load-relative "1.2") (loc-changes "1.2")
> (test-simple "1.2.0"))
> +;; Package-Requires: ((load-relative "1.2") (loc-changes "1.2")
> (test-simple "1.2.0") (cl-lib "0.5") (emacs "24"))
> ;; URL: http://github.com/realgud/realgud/
> -;; Compatibility: GNU Emacs 24.x
>
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; This program is free software; you can redistribute it and/or modify
> ;; it under the terms of the GNU General Public License as published by
> diff --git a/packages/realgud/realgud/common/attach.el
> b/packages/realgud/realgud/common/attach.el
> index f0efbff..aefd62f 100644
> --- a/packages/realgud/realgud/common/attach.el
> +++ b/packages/realgud/realgud/common/attach.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -17,7 +17,6 @@
> ;;; Emacs Commands to associate or attach a source buffer to a command
> ;;; buffer and vice versa.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '("buffer/command" "buffer/source")
> "realgud-buffer-")
> diff --git a/packages/realgud/realgud/common/backtrack-mode.el
> b/packages/realgud/realgud/common/backtrack-mode.el
> index aaf89c9..a4bbfc5 100644
> --- a/packages/realgud/realgud/common/backtrack-mode.el
> +++ b/packages/realgud/realgud/common/backtrack-mode.el
> @@ -20,7 +20,6 @@
> ;; process shell arround Compare with backtrace-mode.el which
> ;; handles backtraces inside the debugger
>
> -(eval-when-compile (require 'cl))
> (require 'shell)
>
> (require 'load-relative)
> diff --git a/packages/realgud/realgud/common/buffer/info.el
> b/packages/realgud/realgud/common/buffer/info.el
> index 571b614..246f302 100644
> --- a/packages/realgud/realgud/common/buffer/info.el
> +++ b/packages/realgud/realgud/common/buffer/info.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; This program is free software; you can redistribute it and/or modify
> ;; it under the terms of the GNU General Public License as published by
> @@ -16,12 +16,12 @@
>
> ;;; A mode based off of org mode to show debugger information
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib))
> (require 'org)
>
> (require 'load-relative)
>
> -(defstruct realgud-backtrace-info
> +(cl-defstruct realgud-backtrace-info
> "debugger object/structure specific to debugger info."
> (cmdbuf nil) ;; buffer of the associated debugger process
> )
> diff --git a/packages/realgud/realgud/common/cmds.el
> b/packages/realgud/realgud/common/cmds.el
> index 4b2f3eb..8f02555 100644
> --- a/packages/realgud/realgud/common/cmds.el
> +++ b/packages/realgud/realgud/common/cmds.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> diff --git a/packages/realgud/realgud/common/fringe.el
> b/packages/realgud/realgud/common/fringe.el
> index 745d85b..c50153b 100644
> --- a/packages/realgud/realgud/common/fringe.el
> +++ b/packages/realgud/realgud/common/fringe.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010, 2012, 2014-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2010, 2012, 2014-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -86,9 +86,6 @@ position.")
> "Overlay arrow variable which contains the 3rd most recent debugger
> position.")
>
> -(eval-when-compile (require 'cl))
> -
> -
> ;; FIXME: since overlay overlay-arrow-list can be global, and perhaps
> ;; has to stay that way since some Emacs code may expect that, we
> ;; should use different global overlay arrow variables for the
> diff --git a/packages/realgud/realgud/common/helper.el
> b/packages/realgud/realgud/common/helper.el
> index 705100d..7467b2b 100644
> --- a/packages/realgud/realgud/common/helper.el
> +++ b/packages/realgud/realgud/common/helper.el
> @@ -12,8 +12,7 @@
> ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> ;; GNU General Public License for more details.
>
> -(require 'cl-lib)
> -(require 'cl)
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> ;;; Miscellaneous utility functions
> (require 'load-relative)
> diff --git a/packages/realgud/realgud/common/loc.el
> b/packages/realgud/realgud/common/loc.el
> index 00c75a0..76584c0 100644
> --- a/packages/realgud/realgud/common/loc.el
> +++ b/packages/realgud/realgud/common/loc.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -18,6 +18,8 @@
> ;; This describes a debugger location structure and has code for
> ;; working with them.
>
> +(eval-when-compile (require 'cl-lib))
> +
> (require 'load-relative)
> (require 'loc-changes)
> (require-relative-list '("fringe" "follow") "realgud-")
> @@ -30,7 +32,7 @@
> (declare-function realgud-get-cmdbuf-from-srcbuf 'realgud-buffer-helper)
> (declare-function realgud-srcbuf? 'realgud-buffer-source)
>
> -(defstruct realgud-loc
> +(cl-defstruct realgud-loc
> "Our own location type. Even though a mark contains a
> file-name (via a buffer) and a line number (via an offset), we
> want to save the values that were seen/requested originally."
> diff --git a/packages/realgud/realgud/common/lochist.el
> b/packages/realgud/realgud/common/lochist.el
> index 33fcf49..786e8e3 100644
> --- a/packages/realgud/realgud/common/lochist.el
> +++ b/packages/realgud/realgud/common/lochist.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010, 2012, 2014-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2010, 2012, 2014-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -20,6 +20,7 @@
>
> ;;; Code:
>
> +(eval-when-compile (require 'cl-lib))
> (require 'ring)
> (require 'org)
> (require 'load-relative)
> @@ -32,7 +33,7 @@
> :type 'integer
> :group 'realgud)
>
> -(defstruct realgud-loc-hist
> +(cl-defstruct realgud-loc-hist
> "A list of source-code positions recently encountered"
> (position -1)
> (ring (make-ring realgud-loc-hist-size)))
> diff --git a/packages/realgud/realgud/common/regexp.el
> b/packages/realgud/realgud/common/regexp.el
> index 127d7c2..e21de25 100644
> --- a/packages/realgud/realgud/common/regexp.el
> +++ b/packages/realgud/realgud/common/regexp.el
> @@ -27,9 +27,9 @@
> ;; Variables defining regular expressions (regexp:s).
> ;;
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib))
>
> -(defstruct realgud-loc-pat
> +(cl-defstruct realgud-loc-pat
> "Information to match and extract position and other related
> information typically
> output by a debugger inside a process shell"
> (num) ;; General number. Could be for example
> diff --git a/packages/realgud/realgud/common/run.el
> b/packages/realgud/realgud/common/run.el
> index a24e123..f78bd35 100644
> --- a/packages/realgud/realgud/common/run.el
> +++ b/packages/realgud/realgud/common/run.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -17,7 +17,7 @@
>
> ; (require 'term)
>
> -(require 'cl)
> +(require 'cl-lib)
> (require 'shell)
> (require 'load-relative)
> (require-relative-list '("core" "track" "utils") "realgud-")
> @@ -152,7 +152,7 @@ marginal icons is reset."
> (if (boundp 'starting-directory)
> (realgud-cmdbuf-info-starting-directory=
> starting-directory))
> (set minibuffer-history
> - (remove-duplicates
> + (cl-remove-duplicates
> (cons cmd-str (eval minibuffer-history)) :from-end)
> ))
> )))
> @@ -191,7 +191,7 @@ Otherwise nil is returned.
> (script-args (caddr parsed-args))
> (script-name (or opt-script-name (car script-args)))
> (parsed-cmd-args
> - (remove-if 'nil (realgud:flatten parsed-args)))
> + (cl-remove-if 'nil (realgud:flatten parsed-args)))
> )
> (realgud:run-process debugger-name script-name parsed-cmd-args
> minibuffer-history no-reset)
> diff --git a/packages/realgud/realgud/common/send.el
> b/packages/realgud/realgud/common/send.el
> index b8b1f7e..81edf16 100644
> --- a/packages/realgud/realgud/common/send.el
> +++ b/packages/realgud/realgud/common/send.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> diff --git a/packages/realgud/realgud/common/track-mode.el
> b/packages/realgud/realgud/common/track-mode.el
> index bf0888b..4f58428 100644
> --- a/packages/realgud/realgud/common/track-mode.el
> +++ b/packages/realgud/realgud/common/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;; tracks shell output
>
> -(eval-when-compile (require 'cl))
> (require 'shell)
>
> (require 'load-relative)
> diff --git a/packages/realgud/realgud/common/track.el
> b/packages/realgud/realgud/common/track.el
> index 36f8e98..badb83f 100644
> --- a/packages/realgud/realgud/common/track.el
> +++ b/packages/realgud/realgud/common/track.el
> @@ -481,7 +481,7 @@ Otherwise return nil. CMD-MARK is set in the
> realgud-loc object created.
> (message "line number not found -- using 1"))
> (if (and filename lineno)
> (let* ((directory
> - (cond ((boundp 'starting-directory)
> staring-directory)
> + (cond ((boundp 'starting-directory)
> starting-directory)
> (t nil)))
> (loc-or-error
> (realgud:file-loc-from-line
> diff --git a/packages/realgud/realgud/debugger/bashdb/core.el
> b/packages/realgud/realgud/debugger/bashdb/core.el
> index 899eec0..87c371c 100644
> --- a/packages/realgud/realgud/debugger/bashdb/core.el
> +++ b/packages/realgud/realgud/debugger/bashdb/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -14,7 +14,6 @@
>
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> -(eval-when-compile (require 'cl))
>
> (require 'load-relative)
> (require-relative-list '("../../common/track" "../../common/core")
> diff --git a/packages/realgud/realgud/debugger/bashdb/init.el
> b/packages/realgud/realgud/debugger/bashdb/init.el
> index 2e3f8a3..2c7769f 100644
> --- a/packages/realgud/realgud/debugger/bashdb/init.el
> +++ b/packages/realgud/realgud/debugger/bashdb/init.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -17,8 +17,7 @@
>
> ;; Regular expressions for Bash shell debugger: bashdb
>
> -(eval-when-compile (require 'cl))
> -
> +(eval-when-compile (require 'cl-lib)) ;For setf.
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> "../../common/loc"
> diff --git a/packages/realgud/realgud/debugger/bashdb/track-mode.el
> b/packages/realgud/realgud/debugger/bashdb/track-mode.el
> index 0e3dfef..d01d6c7 100644
> --- a/packages/realgud/realgud/debugger/bashdb/track-mode.el
> +++ b/packages/realgud/realgud/debugger/bashdb/track-mode.el
> @@ -16,7 +16,6 @@
>
> ;; Bash Debugger tracking in a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/gdb/core.el
> b/packages/realgud/realgud/debugger/gdb/core.el
> index 5a36a23..35fc492 100644
> --- a/packages/realgud/realgud/debugger/gdb/core.el
> +++ b/packages/realgud/realgud/debugger/gdb/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -15,9 +15,6 @@
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> -(eval-when-compile (require 'cl))
> -
> -(require 'files)
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> "../../common/core"
> diff --git a/packages/realgud/realgud/debugger/gdb/gdb.el
> b/packages/realgud/realgud/debugger/gdb/gdb.el
> index 91776a0..4c2853f 100644
> --- a/packages/realgud/realgud/debugger/gdb/gdb.el
> +++ b/packages/realgud/realgud/debugger/gdb/gdb.el
> @@ -16,7 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> ;; `realgud:gdb' Main interface to gdb via Emacs
> -(require 'cl)
> (require 'load-relative)
> (require-relative-list '("../../common/helper" "../../common/utils")
> "realgud-")
> diff --git a/packages/realgud/realgud/debugger/gdb/init.el
> b/packages/realgud/realgud/debugger/gdb/init.el
> index 8b7ac86..92bb5d6 100644
> --- a/packages/realgud/realgud/debugger/gdb/init.el
> +++ b/packages/realgud/realgud/debugger/gdb/init.el
> @@ -17,7 +17,7 @@
>
> ;;; gdb debugger
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib))
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp" "../../common/loc")
> "realgud-")
> diff --git a/packages/realgud/realgud/debugger/gdb/track-mode.el
> b/packages/realgud/realgud/debugger/gdb/track-mode.el
> index d56e4b2..9497657 100644
> --- a/packages/realgud/realgud/debugger/gdb/track-mode.el
> +++ b/packages/realgud/realgud/debugger/gdb/track-mode.el
> @@ -19,7 +19,6 @@
>
> ;; gdb tracking a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/gub/core.el
> b/packages/realgud/realgud/debugger/gub/core.el
> index 12dc8ff..d6d13da 100644
> --- a/packages/realgud/realgud/debugger/gub/core.el
> +++ b/packages/realgud/realgud/debugger/gub/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2013-2014 Free Software Foundation, Inc
> +;; Copyright (C) 2013-2014, 2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track" "../../common/lang"
> "../../common/core") "realgud-")
> diff --git a/packages/realgud/realgud/debugger/gub/init.el
> b/packages/realgud/realgud/debugger/gub/init.el
> index 01f71a3..f244267 100644
> --- a/packages/realgud/realgud/debugger/gub/init.el
> +++ b/packages/realgud/realgud/debugger/gub/init.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> ;; This program is free software: you can redistribute it and/or
> @@ -17,7 +17,7 @@
>
> ;; Regular expressions for Go SSA debugger: gub
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/gub/track-mode.el
> b/packages/realgud/realgud/debugger/gub/track-mode.el
> index 3f74cbc..b48bb0c 100644
> --- a/packages/realgud/realgud/debugger/gub/track-mode.el
> +++ b/packages/realgud/realgud/debugger/gub/track-mode.el
> @@ -9,7 +9,6 @@
>
> ;;; Golang SSA gub tracking a comint buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/ipdb/core.el
> b/packages/realgud/realgud/debugger/ipdb/core.el
> index 789920b..8d64e6a 100644
> --- a/packages/realgud/realgud/debugger/ipdb/core.el
> +++ b/packages/realgud/realgud/debugger/ipdb/core.el
> @@ -11,8 +11,6 @@
> ;; along with this program. If not, see <http://www.gnu.or/licenses/>.
>
>
> -(eval-when-compile (require 'cl))
> -
> (require 'comint)
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> diff --git a/packages/realgud/realgud/debugger/ipdb/init.el
> b/packages/realgud/realgud/debugger/ipdb/init.el
> index 07ae8ad..b1cd04f 100644
> --- a/packages/realgud/realgud/debugger/ipdb/init.el
> +++ b/packages/realgud/realgud/debugger/ipdb/init.el
> @@ -17,7 +17,7 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;; Stock Python debugger ipdb
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/ipdb/track-mode.el
> b/packages/realgud/realgud/debugger/ipdb/track-mode.el
> index 17133b3..b723a07 100644
> --- a/packages/realgud/realgud/debugger/ipdb/track-mode.el
> +++ b/packages/realgud/realgud/debugger/ipdb/track-mode.el
> @@ -17,7 +17,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;; Python "ipdb" Debugger tracking a comint buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/jdb/backtrack-mode.el
> b/packages/realgud/realgud/debugger/jdb/backtrack-mode.el
> index 179ac63..1454edc 100644
> --- a/packages/realgud/realgud/debugger/jdb/backtrack-mode.el
> +++ b/packages/realgud/realgud/debugger/jdb/backtrack-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;; Mode for parsing various kinds of backtraces found in Java
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/jdb/core.el
> b/packages/realgud/realgud/debugger/jdb/core.el
> index f4c35d2..9199c23 100644
> --- a/packages/realgud/realgud/debugger/jdb/core.el
> +++ b/packages/realgud/realgud/debugger/jdb/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2014 Free Software Foundation, Inc
> +;; Copyright (C) 2014, 2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> ;; We use gud to handle the classpath-to-filename mapping
> (require 'gud)
> (require 'compile) ;; for compilation-find-file
> diff --git a/packages/realgud/realgud/debugger/jdb/init.el
> b/packages/realgud/realgud/debugger/jdb/init.el
> index 13548e0..82bfe4a 100644
> --- a/packages/realgud/realgud/debugger/jdb/init.el
> +++ b/packages/realgud/realgud/debugger/jdb/init.el
> @@ -7,7 +7,7 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/jdb/jdb.el
> b/packages/realgud/realgud/debugger/jdb/jdb.el
> index bb6d41c..62afcea 100644
> --- a/packages/realgud/realgud/debugger/jdb/jdb.el
> +++ b/packages/realgud/realgud/debugger/jdb/jdb.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2014-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2014-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -10,7 +10,6 @@
> ;; `jdb' Main interface to jdb via Emacs
>
> (require 'gud) ;; For class-path and source-path handling
> -(require 'cl)
>
> (require 'load-relative)
> (require-relative-list '("../../common/run") "realgud:")
> diff --git a/packages/realgud/realgud/debugger/jdb/track-mode.el
> b/packages/realgud/realgud/debugger/jdb/track-mode.el
> index 208b6cf..e35a134 100644
> --- a/packages/realgud/realgud/debugger/jdb/track-mode.el
> +++ b/packages/realgud/realgud/debugger/jdb/track-mode.el
> @@ -9,7 +9,6 @@
>
> ;; Java "jdb" Debugger tracking a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/kshdb/core.el
> b/packages/realgud/realgud/debugger/kshdb/core.el
> index 5571583..afcb119 100644
> --- a/packages/realgud/realgud/debugger/kshdb/core.el
> +++ b/packages/realgud/realgud/debugger/kshdb/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010, 2014-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2010, 2014-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track" "../../common/core")
> "realgud-")
> (require-relative-list '("init") "realgud:kshdb-")
> diff --git a/packages/realgud/realgud/debugger/kshdb/init.el
> b/packages/realgud/realgud/debugger/kshdb/init.el
> index 44fcdb8..e6f6f74 100644
> --- a/packages/realgud/realgud/debugger/kshdb/init.el
> +++ b/packages/realgud/realgud/debugger/kshdb/init.el
> @@ -9,7 +9,7 @@
>
> ;;Regular expressions for Korn shell debugger: kshdb
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/kshdb/track-mode.el
> b/packages/realgud/realgud/debugger/kshdb/track-mode.el
> index ea62baf..a80da63 100644
> --- a/packages/realgud/realgud/debugger/kshdb/track-mode.el
> +++ b/packages/realgud/realgud/debugger/kshdb/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;;; "kshdb" Debugger tracking a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/nodejs/core.el
> b/packages/realgud/realgud/debugger/nodejs/core.el
> index 1ff8b71..065ac37 100644
> --- a/packages/realgud/realgud/debugger/nodejs/core.el
> +++ b/packages/realgud/realgud/debugger/nodejs/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -15,8 +15,6 @@
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track" "../../common/core")
> "realgud-")
> diff --git a/packages/realgud/realgud/debugger/nodejs/init.el
> b/packages/realgud/realgud/debugger/nodejs/init.el
> index e20211e..70634af 100644
> --- a/packages/realgud/realgud/debugger/nodejs/init.el
> +++ b/packages/realgud/realgud/debugger/nodejs/init.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,7 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;;; Regular expressions for nodejs Javascript debugger.
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/nodejs/track-mode.el
> b/packages/realgud/realgud/debugger/nodejs/track-mode.el
> index 753e20d..6afaa62 100644
> --- a/packages/realgud/realgud/debugger/nodejs/track-mode.el
> +++ b/packages/realgud/realgud/debugger/nodejs/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;;; nodejs tracking a comint buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/pdb/core.el
> b/packages/realgud/realgud/debugger/pdb/core.el
> index 8964cf6..16c5dbd 100644
> --- a/packages/realgud/realgud/debugger/pdb/core.el
> +++ b/packages/realgud/realgud/debugger/pdb/core.el
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> "../../common/core"
> diff --git a/packages/realgud/realgud/debugger/pdb/init.el
> b/packages/realgud/realgud/debugger/pdb/init.el
> index ac346b8..7068758 100644
> --- a/packages/realgud/realgud/debugger/pdb/init.el
> +++ b/packages/realgud/realgud/debugger/pdb/init.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,7 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;; Stock Python debugger pdb
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/pdb/pdb.el
> b/packages/realgud/realgud/debugger/pdb/pdb.el
> index 1946478..8ddd380 100644
> --- a/packages/realgud/realgud/debugger/pdb/pdb.el
> +++ b/packages/realgud/realgud/debugger/pdb/pdb.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> diff --git a/packages/realgud/realgud/debugger/pdb/track-mode.el
> b/packages/realgud/realgud/debugger/pdb/track-mode.el
> index 7958eae..b18172f 100644
> --- a/packages/realgud/realgud/debugger/pdb/track-mode.el
> +++ b/packages/realgud/realgud/debugger/pdb/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;; Python "pdb" Debugger tracking a comint buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/perldb/core.el
> b/packages/realgud/realgud/debugger/perldb/core.el
> index 2df3533..04f6f0c 100644
> --- a/packages/realgud/realgud/debugger/perldb/core.el
> +++ b/packages/realgud/realgud/debugger/perldb/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2011, 2013-2014 Free Software Foundation, Inc
> +;; Copyright (C) 2011, 2013-2014, 2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> "../../common/core"
> diff --git a/packages/realgud/realgud/debugger/perldb/init.el
> b/packages/realgud/realgud/debugger/perldb/init.el
> index 27c47c0..42dbedf 100644
> --- a/packages/realgud/realgud/debugger/perldb/init.el
> +++ b/packages/realgud/realgud/debugger/perldb/init.el
> @@ -16,7 +16,7 @@
> ;;; Regular expressions for nodejs Javascript debugger.
> ;;; Stock Perl debugger perldb
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp" "../../common/loc")
> "realgud-")
> diff --git a/packages/realgud/realgud/debugger/perldb/track-mode.el
> b/packages/realgud/realgud/debugger/perldb/track-mode.el
> index 39c2ec7..ce80a23 100644
> --- a/packages/realgud/realgud/debugger/perldb/track-mode.el
> +++ b/packages/realgud/realgud/debugger/perldb/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;; Stock Perl Debugger "perldb5" tracking a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/rdebug/core.el
> b/packages/realgud/realgud/debugger/rdebug/core.el
> index 78a5a2d..bd66518 100644
> --- a/packages/realgud/realgud/debugger/rdebug/core.el
> +++ b/packages/realgud/realgud/debugger/rdebug/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010, 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2010, 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> "../../common/core"
> diff --git a/packages/realgud/realgud/debugger/rdebug/init.el
> b/packages/realgud/realgud/debugger/rdebug/init.el
> index ec28401..4b4a024 100644
> --- a/packages/realgud/realgud/debugger/rdebug/init.el
> +++ b/packages/realgud/realgud/debugger/rdebug/init.el
> @@ -9,7 +9,7 @@
>
> ;; Ruby 1.8 debugger: ruby-debug (rdebug)
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For stef.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp" "../../common/loc")
> "realgud-")
> diff --git a/packages/realgud/realgud/debugger/rdebug/track-mode.el
> b/packages/realgud/realgud/debugger/rdebug/track-mode.el
> index 142836f..87d6986 100644
> --- a/packages/realgud/realgud/debugger/rdebug/track-mode.el
> +++ b/packages/realgud/realgud/debugger/rdebug/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010, 2012, 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2010, 2012, 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -9,7 +9,6 @@
>
> ;;; Ruby "rdebug" Debugger tracking a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/remake/core.el
> b/packages/realgud/realgud/debugger/remake/core.el
> index cb78f55..7f2772c 100644
> --- a/packages/realgud/realgud/debugger/remake/core.el
> +++ b/packages/realgud/realgud/debugger/remake/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2011, 2014-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2011, 2014-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track" "../../common/core"
> "../../common/lang")
> "realgud-")
> diff --git a/packages/realgud/realgud/debugger/remake/init.el
> b/packages/realgud/realgud/debugger/remake/init.el
> index 6e398a2..0c650cf 100644
> --- a/packages/realgud/realgud/debugger/remake/init.el
> +++ b/packages/realgud/realgud/debugger/remake/init.el
> @@ -15,7 +15,7 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;;; Regular expressions for GNU Make debugger: remake
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/remake/track-mode.el
> b/packages/realgud/realgud/debugger/remake/track-mode.el
> index 50829a9..2bc649f 100644
> --- a/packages/realgud/realgud/debugger/remake/track-mode.el
> +++ b/packages/realgud/realgud/debugger/remake/track-mode.el
> @@ -9,7 +9,6 @@
>
> ;;; GNU Make Debugger tracking a comint buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/trepan.pl/backtrack-mode.el
> b/packages/realgud/realgud/debugger/trepan.pl/backtrack-mode.el
> index 7340c6f..7f7728b 100644
> --- a/packages/realgud/realgud/debugger/trepan.pl/backtrack-mode.el
> +++ b/packages/realgud/realgud/debugger/trepan.pl/backtrack-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2011, 2014 Free Software Foundation, Inc
> +;; Copyright (C) 2011, 2014, 2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -9,7 +9,6 @@
>
> ;;; Mode for parsing various kinds of backtraces found in Perl
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/trepan.pl/core.el
> b/packages/realgud/realgud/debugger/trepan.pl/core.el
> index acd7e13..37ea9a8 100644
> --- a/packages/realgud/realgud/debugger/trepan.pl/core.el
> +++ b/packages/realgud/realgud/debugger/trepan.pl/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2011-2012, 2014 Free Software Foundation, Inc
> +;; Copyright (C) 2011-2012, 2014, 2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> "../../common/core"
> diff --git a/packages/realgud/realgud/debugger/trepan.pl/init.el
> b/packages/realgud/realgud/debugger/trepan.pl/init.el
> index d201d10..2865180 100644
> --- a/packages/realgud/realgud/debugger/trepan.pl/init.el
> +++ b/packages/realgud/realgud/debugger/trepan.pl/init.el
> @@ -16,7 +16,7 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> ;; Trepanning Perl debugger
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/trepan.pl/track-mode.el
> b/packages/realgud/realgud/debugger/trepan.pl/track-mode.el
> index 9140c56..d29add5 100644
> --- a/packages/realgud/realgud/debugger/trepan.pl/track-mode.el
> +++ b/packages/realgud/realgud/debugger/trepan.pl/track-mode.el
> @@ -9,7 +9,6 @@
>
> ;; Perl trepanning Debugger tracking a comint buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/trepan/backtrack-mode.el
> b/packages/realgud/realgud/debugger/trepan/backtrack-mode.el
> index c655779..d92b6b7 100644
> --- a/packages/realgud/realgud/debugger/trepan/backtrack-mode.el
> +++ b/packages/realgud/realgud/debugger/trepan/backtrack-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -17,7 +17,6 @@
>
> ;;; Mode for parsing various kinds of backtraces found in Ruby
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/trepan/core.el
> b/packages/realgud/realgud/debugger/trepan/core.el
> index 07764a0..a844208 100644
> --- a/packages/realgud/realgud/debugger/trepan/core.el
> +++ b/packages/realgud/realgud/debugger/trepan/core.el
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'compile) ;; for compilation-find-file
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> diff --git a/packages/realgud/realgud/debugger/trepan/init.el
> b/packages/realgud/realgud/debugger/trepan/init.el
> index 6a0dd9d..b2cc954 100644
> --- a/packages/realgud/realgud/debugger/trepan/init.el
> +++ b/packages/realgud/realgud/debugger/trepan/init.el
> @@ -16,7 +16,7 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> ;; Ruby Trepanning debugger
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/trepan/track-mode.el
> b/packages/realgud/realgud/debugger/trepan/track-mode.el
> index 2887c3e..f5fafb2 100644
> --- a/packages/realgud/realgud/debugger/trepan/track-mode.el
> +++ b/packages/realgud/realgud/debugger/trepan/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010, 2012-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2010, 2012-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -14,7 +14,6 @@
>
> ;;; Ruby "trepan" Debugger tracking a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/trepan2/core.el
> b/packages/realgud/realgud/debugger/trepan2/core.el
> index eb2a5c6..ddf9011 100644
> --- a/packages/realgud/realgud/debugger/trepan2/core.el
> +++ b/packages/realgud/realgud/debugger/trepan2/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010-2012, 2014-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2010-2012, 2014-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -15,8 +15,6 @@
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'compile) ;; for compilation-find-file
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> diff --git a/packages/realgud/realgud/debugger/trepan2/init.el
> b/packages/realgud/realgud/debugger/trepan2/init.el
> index 235e47d..2f13fa7 100644
> --- a/packages/realgud/realgud/debugger/trepan2/init.el
> +++ b/packages/realgud/realgud/debugger/trepan2/init.el
> @@ -9,7 +9,7 @@
>
> ;; trepan2: Python 2.5 - 2.7; for 3.0+ see trepan3k
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/trepan2/track-mode.el
> b/packages/realgud/realgud/debugger/trepan2/track-mode.el
> index d2eb6ed..d10bde5 100644
> --- a/packages/realgud/realgud/debugger/trepan2/track-mode.el
> +++ b/packages/realgud/realgud/debugger/trepan2/track-mode.el
> @@ -17,7 +17,6 @@
> ;;
> ;; Python "trepan2" Debugger tracking in a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/trepan3k/core.el
> b/packages/realgud/realgud/debugger/trepan3k/core.el
> index 39a6d13..6806a00 100644
> --- a/packages/realgud/realgud/debugger/trepan3k/core.el
> +++ b/packages/realgud/realgud/debugger/trepan3k/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010, 2012-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2010, 2012-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -15,8 +15,6 @@
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;;
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> "../../common/core"
> diff --git a/packages/realgud/realgud/debugger/trepan3k/init.el
> b/packages/realgud/realgud/debugger/trepan3k/init.el
> index 5f22174..ef2dfbd 100644
> --- a/packages/realgud/realgud/debugger/trepan3k/init.el
> +++ b/packages/realgud/realgud/debugger/trepan3k/init.el
> @@ -17,7 +17,7 @@
>
> ;; trepan3k: Python 3.2 and beyond
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/trepan3k/track-mode.el
> b/packages/realgud/realgud/debugger/trepan3k/track-mode.el
> index afb94f1..d7473cd 100644
> --- a/packages/realgud/realgud/debugger/trepan3k/track-mode.el
> +++ b/packages/realgud/realgud/debugger/trepan3k/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,7 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;; Python "trepan3k" Debugger tracking a comint buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/trepanjs/backtrack-mode.el
> b/packages/realgud/realgud/debugger/trepanjs/backtrack-mode.el
> index e3b7e6c..0732dc5 100644
> --- a/packages/realgud/realgud/debugger/trepanjs/backtrack-mode.el
> +++ b/packages/realgud/realgud/debugger/trepanjs/backtrack-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -17,7 +17,6 @@
>
> ;;; Mode for parsing various kinds of backtraces found in JavaScript
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/trepanjs/core.el
> b/packages/realgud/realgud/debugger/trepanjs/core.el
> index eac8a0e..b3256c1 100644
> --- a/packages/realgud/realgud/debugger/trepanjs/core.el
> +++ b/packages/realgud/realgud/debugger/trepanjs/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -15,8 +15,6 @@
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track"
> "../../common/core"
> diff --git a/packages/realgud/realgud/debugger/trepanjs/init.el
> b/packages/realgud/realgud/debugger/trepanjs/init.el
> index 5281946..8470fe2 100644
> --- a/packages/realgud/realgud/debugger/trepanjs/init.el
> +++ b/packages/realgud/realgud/debugger/trepanjs/init.el
> @@ -16,7 +16,7 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
> ;;; Regular expressions for nodejs Javascript debugger.
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/trepanjs/track-mode.el
> b/packages/realgud/realgud/debugger/trepanjs/track-mode.el
> index 4c02965..5d8c8cd 100644
> --- a/packages/realgud/realgud/debugger/trepanjs/track-mode.el
> +++ b/packages/realgud/realgud/debugger/trepanjs/track-mode.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -17,7 +17,6 @@
>
> ;;; "trepanjs" Debugger tracking a comint or eshell buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/debugger/zshdb/core.el
> b/packages/realgud/realgud/debugger/zshdb/core.el
> index 20a7cbe..2eefad1 100644
> --- a/packages/realgud/realgud/debugger/zshdb/core.el
> +++ b/packages/realgud/realgud/debugger/zshdb/core.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010-2011, 2014-2015 Free Software Foundation, Inc
> +;; Copyright (C) 2010-2011, 2014-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -7,8 +7,6 @@
> ;; the Free Software Foundation, either version 3 of the License, or
> ;; (at your option) any later version.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../../common/track" "../../common/core")
> "realgud-")
> diff --git a/packages/realgud/realgud/debugger/zshdb/init.el
> b/packages/realgud/realgud/debugger/zshdb/init.el
> index 8c0a88e..8a2c0a9 100644
> --- a/packages/realgud/realgud/debugger/zshdb/init.el
> +++ b/packages/realgud/realgud/debugger/zshdb/init.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -15,7 +15,7 @@
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> -(eval-when-compile (require 'cl))
> +(eval-when-compile (require 'cl-lib)) ;For setf.
>
> (require 'load-relative)
> (require-relative-list '("../../common/regexp"
> diff --git a/packages/realgud/realgud/debugger/zshdb/track-mode.el
> b/packages/realgud/realgud/debugger/zshdb/track-mode.el
> index 31f65dc..ecf0b12 100644
> --- a/packages/realgud/realgud/debugger/zshdb/track-mode.el
> +++ b/packages/realgud/realgud/debugger/zshdb/track-mode.el
> @@ -9,7 +9,6 @@
>
> ;;; "zshdb" Debugger tracking a comint buffer.
>
> -(eval-when-compile (require 'cl))
> (require 'load-relative)
> (require-relative-list '(
> "../../common/cmds"
> diff --git a/packages/realgud/realgud/lang/js.el
> b/packages/realgud/realgud/lang/js.el
> index faaf716..ede33ef 100644
> --- a/packages/realgud/realgud/lang/js.el
> +++ b/packages/realgud/realgud/lang/js.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -15,8 +15,6 @@
> ;; You should have received a copy of the GNU General Public License
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../common/regexp" "../common/loc"
> "../common/track")
> "realgud-")
> diff --git a/packages/realgud/realgud/lang/perl.el
> b/packages/realgud/realgud/lang/perl.el
> index ebe6b94..cad3374 100644
> --- a/packages/realgud/realgud/lang/perl.el
> +++ b/packages/realgud/realgud/lang/perl.el
> @@ -8,8 +8,6 @@
> ;; (at your option) any later version.
>
> ;;; Common Perl constants and regular expressions.
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../common/regexp" "../common/loc"
> "../common/track")
> "realgud-")
> diff --git a/packages/realgud/realgud/lang/posix-shell.el
> b/packages/realgud/realgud/lang/posix-shell.el
> index 4f006d2..1ef2313 100644
> --- a/packages/realgud/realgud/lang/posix-shell.el
> +++ b/packages/realgud/realgud/lang/posix-shell.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2015, 2016 Free Software Foundation, Inc
> +;; Copyright (C) 2015-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -22,8 +22,6 @@
> ;; *only* debuggers I know of for POSIX shells, it's not too much of
> ;; a stretch to think of this as for all "shell".
>
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../common/regexp" "../common/loc"
> "../common/track" "../common/send")
> diff --git a/packages/realgud/realgud/lang/python.el
> b/packages/realgud/realgud/lang/python.el
> index 1ddea17..a2e8b54 100644
> --- a/packages/realgud/realgud/lang/python.el
> +++ b/packages/realgud/realgud/lang/python.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2011, 2014, 2015 Free Software Foundation, Inc
> +;; Copyright (C) 2011, 2014-2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -16,8 +16,6 @@
> ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
>
> ;;; Common Python constants and regular expressions.
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../common/regexp" "../common/loc"
> "../common/track")
> "realgud-")
> diff --git a/packages/realgud/realgud/lang/ruby.el
> b/packages/realgud/realgud/lang/ruby.el
> index a0e38d7..9e4699e 100644
> --- a/packages/realgud/realgud/lang/ruby.el
> +++ b/packages/realgud/realgud/lang/ruby.el
> @@ -1,4 +1,4 @@
> -;; Copyright (C) 2010, 2014 Free Software Foundation, Inc
> +;; Copyright (C) 2010, 2014, 2016 Free Software Foundation, Inc
>
> ;; Author: Rocky Bernstein <rocky@gnu.org>
>
> @@ -8,8 +8,6 @@
> ;; (at your option) any later version.
>
> ;; Common Ruby constants and regular expressions.
> -(eval-when-compile (require 'cl))
> -
> (require 'load-relative)
> (require-relative-list '("../common/regexp" "../common/loc"
> "../common/track")
> "realgud-")
> diff --git a/packages/realgud/test/test-common-helper.el
> b/packages/realgud/test/test-common-helper.el
> index 815fde2..396edc6 100644
> --- a/packages/realgud/test/test-common-helper.el
> +++ b/packages/realgud/test/test-common-helper.el
> @@ -1,3 +1,4 @@
> +(eval-when-compile (require 'cl-lib))
> (require 'test-simple)
> (load-file "../realgud/common/helper.el")
>
> @@ -12,7 +13,7 @@
> (defvar realgud-test-info)
> )
>
> -(defstruct realgud-test-info name)
> +(cl-defstruct realgud-test-info name)
> (realgud-struct-field-setter "realgud-test-info" "name")
>
> (set (make-local-variable 'realgud-test-info)
> diff --git a/packages/realgud/test/test-core.el
> b/packages/realgud/test/test-core.el
> index 51ddaa7..d3e6ca2 100644
> --- a/packages/realgud/test/test-core.el
> +++ b/packages/realgud/test/test-core.el
> @@ -1,3 +1,5 @@
> +;; -*- lexical-binding:t -*-
> +
> ;; Press C-x C-e at the end of the next line to run this file test
> non-interactively
> ;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
> (locate-library "test-simple.elc")) buffer-file-name)
>
> @@ -33,7 +35,7 @@
>
> (note "realgud-parse-...")
>
> -(lexical-let ((opt-two-args '("0" "C" "e" "E" "F" "i")))
> +(let ((opt-two-args '("0" "C" "e" "E" "F" "i")))
> (assert-equal '(("-0" "a") nil)
> (realgud-parse-command-arg '("-0" "a") '() opt-two-args)
> "Two args found, none remain afterwards though.")
> diff --git a/packages/realgud/test/test-regexp-rdebug.el
> b/packages/realgud/test/test-regexp-rdebug.el
> index 26477b7..2c37d41 100644
> --- a/packages/realgud/test/test-regexp-rdebug.el
> +++ b/packages/realgud/test/test-regexp-rdebug.el
> @@ -1,3 +1,5 @@
> +;; -*- lexical-binding:t -*-
> +
> ;; Press C-x C-e at the end of the next line to run this file test
> non-interactively
> ;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
> (locate-library "test-simple.elc")) buffer-file-name)
>
> @@ -15,7 +17,7 @@
> ;; setq however will workaround this.
> (setq text " from /usr/local/bin/irb:12:in `<main>'")
> (note "traceback location matching")
> -(lexical-let ((text " from /usr/local/bin/irb:12:in `<main>'"))
> +(let ((text " from /usr/local/bin/irb:12:in `<main>'"))
> (assert-t (numberp (loc-match text helper-tb)) "basic traceback
> location")
> (assert-equal "/usr/local/bin/irb"
> (match-string (realgud-loc-pat-file-group helper-tb)
> @@ -26,7 +28,7 @@
> text) "extract traceback line number")
> )
>
> -(lexical-let ((text "Breakpoint 1 file /usr/bin/irb, line 10\n"))
> +(let ((text "Breakpoint 1 file /usr/bin/irb, line 10\n"))
> (assert-t (numberp (loc-match text helper-bps)) "basic breakpoint
> location")
> (assert-equal "/usr/bin/irb"
> (match-string (realgud-loc-pat-file-group helper-bps)
> diff --git a/packages/realgud/test/test-regexp-ruby.el
> b/packages/realgud/test/test-regexp-ruby.el
> index d15ab9c..a2392b1 100644
> --- a/packages/realgud/test/test-regexp-ruby.el
> +++ b/packages/realgud/test/test-regexp-ruby.el
> @@ -1,3 +1,5 @@
> +;; -*- lexical-binding:t -*-
> +
> ;; Press C-x C-e at the end of the next line to run this file test
> non-interactively
> ;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
> (locate-library "test-simple.elc")) buffer-file-name)
>
> @@ -15,7 +17,7 @@
> ;; setq however will workaround this.
> (setq text "/tmp/rails-2.3.5/lib/tasks/databases.rake:360")
>
> -(lexical-let ((text "/tmp/rails-2.3.5/lib/tasks/databases.rake:360"))
> +(let ((text "/tmp/rails-2.3.5/lib/tasks/databases.rake:360"))
>
> (assert-t (numberp (loc-match text bt)) "basic traceback location")
> (assert-equal "/tmp/rails-2.3.5/lib/tasks/databases.rake"
> diff --git a/packages/realgud/test/test-regexp.el
> b/packages/realgud/test/test-regexp.el
> index da9a81a..0cdde95 100644
> --- a/packages/realgud/test/test-regexp.el
> +++ b/packages/realgud/test/test-regexp.el
> @@ -1,3 +1,5 @@
> +;; -*- lexical-binding:t -*-
> +
> ;; Press C-x C-e at the end of the next line to run this file test
> non-interactively
> ;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
> (locate-library "test-simple.elc")) buffer-file-name)
>
> @@ -39,7 +41,7 @@
> :line-group (realgud-loc-pat-line-group loc-pat)))
>
>
> -(lexical-let ((text ".. (./dbgr.rb:73)")
> +(let ((text ".. (./dbgr.rb:73)")
> (text2 "C> ((eval):1 via /tmp/eval2.rb:2)")
> (text3 "-- (<internal:prelude>:28 remapped prelude.rb:28)")
> (text4 "--
> (/src/external-vcs/dbgrr/processor/command/info_subcmd/registers_subcmd/dfp.rb:2)\nrequire_relative
> %w(.. .. base subsubcmd)\n")
> diff --git a/packages/realgud/test/test-track.el
> b/packages/realgud/test/test-track.el
> index d0bb147..5e98fec 100644
> --- a/packages/realgud/test/test-track.el
> +++ b/packages/realgud/test/test-track.el
> @@ -1,3 +1,5 @@
> +;; -*- lexical-binding:t -*-
> +
> ;; Press C-x C-e at the end of the next line to run this file test
> non-interactively
> ;; (test-simple-run "emacs -batch -L %s -l %s" (file-name-directory
> (locate-library "test-simple.elc")) buffer-file-name)
>
> @@ -41,7 +43,7 @@
> (setq line-number 7)
> (setq debugger-output (format "-> (%s:%d)\nrequire 'foo'\n(trepan):\n"
> test-filename line-number))
> -(lexical-let ((loc (realgud-track-loc debugger-output nil)))
> +(let ((loc (realgud-track-loc debugger-output nil)))
> (assert-t (realgud-loc-p loc) "loc extracted")
> (assert-equal "(trepan):\n"
> (realgud-track-loc-remaining debugger-output)
>
[-- Attachment #2: Type: text/html, Size: 75237 bytes --]
next prev parent reply other threads:[~2016-08-04 22:05 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <20160804030326.16920.78136@vcs.savannah.gnu.org>
[not found] ` <20160804030326.B379D220169@vcs.savannah.gnu.org>
2016-08-04 4:43 ` [elpa] master d7bac58 3/5: Wrong require again Stefan Monnier
2016-08-04 13:45 ` Rocky Bernstein
2016-08-04 22:05 ` Stefan Monnier
2016-08-04 22:05 ` Rocky Bernstein [this message]
[not found] ` <20160804030326.835FA2200F4@vcs.savannah.gnu.org>
2016-08-04 4:44 ` [elpa] master ecf1577 1/5: Avoid reading a binary as a source file Stefan Monnier
2016-08-04 13:52 ` Rocky Bernstein
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='CANCp2gYjayhdhUgW25JFn5AdtmwmHeonEajt0wAyYQy7U64v=g@mail.gmail.com' \
--to=rocky@gnu.org \
--cc=emacs-devel@gnu.org \
--cc=monnier@iro.umontreal.ca \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.