Changeset 12698 for branches/less-reflection/abcl/src/org/armedbear/lisp/disassemble.lisp

Timestamp:

05/17/10 18:53:41 (13 years ago)

Author:

astalla

Message:

Load class bytes on demand for disassemble.

File:

• branches/less-reflection/abcl/src/org/armedbear/lisp/disassemble.lisp (modified) (1 diff)

branches/less-reflection/abcl/src/org/armedbear/lisp/disassemble.lisp

@@ -48 +48 @@
       (unless (compiled-function-p function)
         (setf function (compile nil function)))
-      (when (getf (function-plist function) 'class-bytes)
-        (with-input-from-string
-          (stream (disassemble-class-bytes (getf (function-plist function) 'class-bytes)))
-          (loop
-            (let ((line (read-line stream nil)))
-              (unless line (return))
-              (write-string "; ")
-              (write-string line)
-              (terpri))))
-        (return-from disassemble)))
-    (%format t "; Disassembly is not available.~%")))
+      (let ((class-bytes (function-class-bytes function)))
+  (when class-bytes
+    (with-input-from-string
+        (stream (disassemble-class-bytes class-bytes))
+      (loop
+         (let ((line (read-line stream nil)))
+     (unless line (return))
+     (write-string "; ")
+     (write-string line)
+     (terpri))))
+    (return-from disassemble)))
+      (%format t "; Disassembly is not available.~%"))))