Function: byte-run-strip-symbol-positions

byte-run-strip-symbol-positions is a byte-compiled function defined in byte-run.el.gz.

Signature

(byte-run-strip-symbol-positions ARG)

Documentation

Strip all positions from symbols in ARG.

This modifies destructively then returns ARG.

ARG is any Lisp object, but is usually a list or a vector or a record, containing symbols with position.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/byte-run.el.gz
(defalias 'byte-run-strip-symbol-positions
  #'(lambda (arg)
      "Strip all positions from symbols in ARG.
This modifies destructively then returns ARG.

ARG is any Lisp object, but is usually a list or a vector or a
record, containing symbols with position."
      (setq byte-run--ssp-seen (make-hash-table :test 'eq))
      (cond
       ((symbol-with-pos-p arg)
        (bare-symbol arg))
       ((consp arg)
        (byte-run--strip-list arg))
       ((or (vectorp arg) (recordp arg))
        (byte-run--strip-vector/record arg))
       (t arg))))