diff --git a/code/debug-info.lisp b/code/debug-info.lisp index 92cb44bde0eb9a62d967f5ac0b256954d51a9a37..6d5eedff604f9defef8facb7bbbd75d4a9b693e7 100644 --- a/code/debug-info.lisp +++ b/code/debug-info.lisp @@ -296,9 +296,13 @@ ;; elected not to store a vector to save space. (returns :fixed :type (or (simple-array * (*)) (member :standard :fixed))) ;; - ;; SC-Offsets describing where the return PC and return CONT are kept. + ;; SC-Offsets describing where the return PC and return FP are kept. (return-pc nil :type sc-offset) - (old-cont nil :type sc-offset) + (old-fp nil :type sc-offset) + ;; + ;; SC-Offset for the number stack FP in this function, or NIL if no NFP + ;; allocated. + (nfp nil :type (or sc-offset null)) ;; ;; The earliest PC in this function at which the environment is properly ;; initialized (arguments moved from passing locations, etc.) @@ -320,6 +324,9 @@ ;; descriptive string. (name nil :type (or pathname list simple-string)) ;; + ;; File comment for this file, if any. + (comment nil :type (or simple-string null)) + ;; ;; The universal time that the source was written, or NIL if unavailable. (created nil :type (or unsigned-byte null)) ;;