Ignore:
Timestamp:
05/17/10 18:53:41 (13 years ago)
Author:
astalla
Message:

Load class bytes on demand for disassemble.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/less-reflection/abcl/src/org/armedbear/lisp/disassemble.lisp

    r11391 r12698  
    4848      (unless (compiled-function-p function)
    4949        (setf function (compile nil function)))
    50       (when (getf (function-plist function) 'class-bytes)
    51         (with-input-from-string
    52           (stream (disassemble-class-bytes (getf (function-plist function) 'class-bytes)))
    53           (loop
    54             (let ((line (read-line stream nil)))
    55               (unless line (return))
    56               (write-string "; ")
    57               (write-string line)
    58               (terpri))))
    59         (return-from disassemble)))
    60     (%format t "; Disassembly is not available.~%")))
     50      (let ((class-bytes (function-class-bytes function)))
     51  (when class-bytes
     52    (with-input-from-string
     53        (stream (disassemble-class-bytes class-bytes))
     54      (loop
     55         (let ((line (read-line stream nil)))
     56     (unless line (return))
     57     (write-string "; ")
     58     (write-string line)
     59     (terpri))))
     60    (return-from disassemble)))
     61      (%format t "; Disassembly is not available.~%"))))
Note: See TracChangeset for help on using the changeset viewer.