Changeset 13920


Ignore:
Timestamp:
Jul 4, 2010, 2:37:29 AM (9 years ago)
Author:
svspire
Message:

Port fix from r13367 to 1.4.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.4/source/lib/describe.lisp

    r13075 r13920  
    13281328  (if (< (decf n) 0)
    13291329    (values nil "Disassembly:" :comment)
    1330     (let ((line (svref (disasm-info f) n)))
     1330    (let ((line (aref (disasm-info f) n)))
    13311331      (if (consp line)
    13321332        (destructuring-bind (object label instr) line
     
    13361336(defun disassembly-line-n-inspector (f n)
    13371337  (unless (< (decf n) 0)
    1338     (let ((line (svref (disasm-info f) n)))
     1338    (let ((line (aref (disasm-info f) n)))
    13391339      (and (consp line)
    13401340           (car line)
     
    13441344  (if (< (decf n) 0)
    13451345    (values "Disassembly:" nil)
    1346     (let ((line (svref (disasm-info f) n)))
     1346    (let ((line (aref (disasm-info f) n)))
    13471347      (if (consp line)
    13481348        (destructuring-bind (object label instr) line
Note: See TracChangeset for help on using the changeset viewer.