Changeset 13678

Timestamp:

Apr 27, 2010, 6:11:39 AM (15 years ago)

Author:

gz

Message:

merge back r13667 from the 1.5 branch

Location:

trunk/source

Files:

• . (modified) (1 prop)
• lib/describe.lisp (modified) (6 diffs)

trunk/source/lib/describe.lisp

@@ -1279 +1279 @@
              (let* ((value (ccl::nth-immediate o (1+ (- nclosed n))))
                     (map (car (ccl::function-symbol-map (ccl::closure-function o))))
-                    (label (or (and map (svref map (+ n (- (length map) nclosed))))
+                    (label (or (and map (aref map (+ n (- (length map) nclosed))))
                                n))
                     (cellp (ccl::closed-over-value-p value)))
@@ -1328 +1328 @@
   (if (< (decf n) 0)
     (values nil "Disassembly:" :comment)
-    (let ((line (svref (disasm-info f) n)))
+    (let ((line (aref (disasm-info f) n)))
       (if (consp line)
         (destructuring-bind (object label instr) line
@@ -1336 +1336 @@
 (defun disassembly-line-n-inspector (f n)
   (unless (< (decf n) 0)
-    (let ((line (svref (disasm-info f) n)))
+    (let ((line (aref (disasm-info f) n)))
       (and (consp line)
            (car line)
@@ -1344 +1344 @@
   (if (< (decf n) 0)
     (values "Disassembly:" nil)
-    (let ((line (svref (disasm-info f) n)))
+    (let ((line (aref (disasm-info f) n)))
       (if (consp line)
         (destructuring-bind (object label instr) line
@@ -1601 +1601 @@
 
 (defmethod compute-frame-info ((f error-frame) n)
-  (let* ((frame (svref (addresses f) n))
+  (let* ((frame (aref (addresses f) n))
          (context (context f))
          (marker (unavailable-value-marker f)))
@@ -1665 +1665 @@
 
 (defmethod line-n ((f stack-inspector) n)
-  (let* ((frame (svref (addresses (inspector-object f)) n)))
+  (let* ((frame (aref (addresses (inspector-object f)) n)))
     (ccl::cfp-lfun frame)))