X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdebug-info.lisp;h=02a19c455870fd59f79c3cd9083955197f6c28fc;hb=bcbbce86c47a1c530d488c7876a453100fcd933e;hp=760e594f879fc591b1dddef763b730db6211dd85;hpb=29a9ccc860532b32c566aec095f570e999a9c52c;p=sbcl.git

diff --git a/src/code/debug-info.lisp b/src/code/debug-info.lisp
index 760e594..02a19c4 100644
--- a/src/code/debug-info.lisp
+++ b/src/code/debug-info.lisp
@@ -31,7 +31,7 @@
 
 ;;; FIXME: old CMU CL representation follows:
 ;;;    Compiled debug variables are in a packed binary representation in the
-;;; DEBUG-FUN-VARIABLES:
+;;; DEBUG-FUN-VARS:
 ;;;    single byte of boolean flags:
 ;;;	uninterned name
 ;;;	   packaged name
@@ -118,7 +118,7 @@
   ;;   * the variable ID, when it has one
   ;;   * SC-offset of primary location, if it has one
   ;;   * SC-offset of save location, if it has one
-  (variables nil :type (or simple-vector null))
+  (vars nil :type (or simple-vector null))
   ;; a vector of the packed binary representation of the
   ;; COMPILED-DEBUG-BLOCKs in this function, in the order that the
   ;; blocks were emitted. The first block is the start of the