;;; The LOCATION-INFO structure holds the information what we need
;;; about locations which code generation decided were "interesting".
(defstruct (location-info
;;; The LOCATION-INFO structure holds the information what we need
;;; about locations which code generation decided were "interesting".
(defstruct (location-info
;; The kind of location noted.
(kind nil :type location-kind)
;; The label pointing to the interesting code location.
;; The kind of location noted.
(kind nil :type location-kind)
;; The label pointing to the interesting code location.
:created (file-info-write-date x)
:compiled (source-info-start-time info)
:source-root (file-info-source-root x)
:start-positions
:created (file-info-write-date x)
:compiled (source-info-start-time info)
:source-root (file-info-source-root x)
:start-positions
(coerce-to-smallest-eltype
(file-info-positions x)))))
(name (file-info-name x)))
(coerce-to-smallest-eltype
(file-info-positions x)))))
(name (file-info-name x)))
(defun compute-1-debug-function (fun var-locs)
(declare (type clambda fun) (type hash-table var-locs))
(let* ((dfun (dfun-from-fun fun))
(defun compute-1-debug-function (fun var-locs)
(declare (type clambda fun) (type hash-table var-locs))
(let* ((dfun (dfun-from-fun fun))
(let ((options 0))
(setf (ldb minimal-debug-function-name-style-byte options) name-rep)
(setf (ldb minimal-debug-function-kind-byte options)
(let ((options 0))
(setf (ldb minimal-debug-function-name-style-byte options) name-rep)
(setf (ldb minimal-debug-function-kind-byte options)