[elpa] externals/clhs 8208673 16/25: common-lisp-hyperspec-root: reset clhs-symbols when setting

[Sam Steingold]

branch: externals/clhs
commit 8208673f8daa15ef91d184c38fd2ef640418de87
Author: Sam Steingold <sds@gnu.org>
Commit: Sam Steingold <sds@gnu.org>

    common-lisp-hyperspec-root: reset clhs-symbols when setting
---
 clhs.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/clhs.el b/clhs.el
index 409c51e..a45d146 100644
--- a/clhs.el
+++ b/clhs.el
@@ -11,7 +11,7 @@
 ;;; This is accomplished by not hard-wiring the symbol->file table
 ;;; but reading the Data/<map> file instead
 
-;;; Copyright (C) 2002-2008, 2017 Sam Steingold <sds@gnu.org>
+;;; Copyright (C) 2002-2008, 2017, 2019 Sam Steingold <sds@gnu.org>
 ;;; Keywords: lisp, common lisp, emacs, ANSI CL, hyperspec
 ;;; released under the GNU GPL <http://www.gnu.org/copyleft/gpl.html>
 ;;; as a part of GNU CLISP <http://clisp.cons.org>, <http://www.clisp.org>
@@ -28,7 +28,6 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl)) ; push
 (require 'browse-url)
 (require 'thingatpt)
 (require 'url)
@@ -41,6 +40,9 @@
 If you copy the HyperSpec to your local system, set this variable to
 something like \"file:/usr/local/doc/HyperSpec/\"."
   :group 'lisp
+  :set (lambda (s v)
+         (setq clhs-symbols nil)
+         (set-default s v))
   :type 'string)
 
 (defvar clhs-history nil