Variable: byte-run--ssp-seen

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

Value

#s(hash-table test eq data
	      ((#[771 "\300\301\302\"\303\304%\207"
		      [make-hash-table :test eql make-closure
				       #[385
					 "\305\306\f\"\206�\307!\206�\310!\306
\300\"\206<�\311\303\312\302\301\313\314\306\f\"!\315\307\f!!\315\310
!!\316\317!$%\320\300#\210\262
#\207"
					 [V0 V1 V2 V3
					     cl--generic-eql-used
					     apply gethash
					     oclosure-type cl-type-of
					     cl--generic-cache-miss 0
					     append
					     #[385
					       "
\242\300=\205	�
A\207"
					       [eql] 4
					       ("emacs-lisp/cl-generic.elc"
						. 7971)]
					     cl--generic-type-specializers
					     #[385 "\300\207" [(t)] 3
						   ("emacs-lisp/cl-generic.elc"
						    . 7971)]
					     nil puthash]
					 15 "\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-2025 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.")