Variable: byte-run--ssp-seen

byte-run--ssp-seen is a variable defined in byte-run.el.gz.

Value

#s(hash-table size 65 test eq rehash-size 1.5 rehash-threshold 0.8125 data
	      ((#[771 "\300\301\302\"\303\304%\207"
		      [make-hash-table :test eql make-closure
				       #[385 "\304\305!\306
\300\"\206%�\307\303\310\302\301\311\312\305!!\313\314!\"%\315\300#\210\211\262
\262
#\207"
					     [V0 V1 V2 V3 apply oclosure-type gethash cl--generic-cache-miss 0 append cl-generic--oclosure-specializers
						 #[385 "\300\207"
						       [(t)]
						       3 "\n\n(fn TAG &rest _)"]
						 nil puthash]
					     13 "\n\n(fn ARG &rest ARGS)"]]
		      10 "\n\n(fn GENERIC DISPATCHES-LEFT METHODS)"])
	       t))

Documentation

Which conses/vectors/records have been processed in strip-symbol-positions? The value is a hash table, the keys being the elements and the values being t.

The purpose of this is to detect circular structures.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-run.el.gz
;;; byte-run.el --- byte-compiler support for inlining  -*- lexical-binding: t -*-

;; Copyright (C) 1992, 2001-2024 Free Software Foundation, Inc.

;; Author: Jamie Zawinski <jwz@lucid.com>
;;	Hallvard Furuseth <hbf@ulrik.uio.no>
;; Maintainer: emacs-devel@gnu.org
;; Keywords: internal
;; Package: emacs

;; This file is part of GNU Emacs.

;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:

;; interface to selectively inlining functions.
;; This only happens when source-code optimization is turned on.

;;; Code:

(defvar byte-run--ssp-seen nil
  "Which conses/vectors/records have been processed in strip-symbol-positions?
The value is a hash table, the keys being the elements and the values being t.

The purpose of this is to detect circular structures.")