Last change
on this file was
15013,
checked in by Mark Evenson, 7 years ago
|
Restore the ability SYSTEM:CHOOSE-ASSEMBLER to use Objectweb
The Objectweb disassembler has been moved into the ABCL-INTROSPECT
contrib where it can be rationally installed via ABCL-ASDF
encapsulation of Maven artifacts.
To enable the Objectweb disassembler use
(require :abcl-contrib)
(require :objectweb)
|
File size:
864 bytes
|
Line | |
---|
1 | (in-package :cl-user) |
---|
2 | |
---|
3 | (let ((disassembler (first (abcl-build:split-string |
---|
4 | ext:*disassembler* #\Space)))) |
---|
5 | (prove:plan 1) |
---|
6 | (prove:ok (abcl-build:introspect-path-for disassembler) |
---|
7 | (format nil |
---|
8 | "Testing invocation of ~a specified by EXT:*DISASSEMBLER*âŠ" disassembler))) |
---|
9 | |
---|
10 | ;;; FIXME move dependency load into ASDF definitions |
---|
11 | (asdf:load-system :objectweb) |
---|
12 | (prove:plan 2) |
---|
13 | (prove:is |
---|
14 | (sys:choose-disassembler) |
---|
15 | 'ABCL/BUILD/JVM/TOOLS/OBJECTWEB::DISASSEMBLE-CLASS-BYTES) |
---|
16 | (let ((output (make-string-output-stream))) |
---|
17 | (let ((*standard-output* output)) |
---|
18 | (disassemble #'cons)) |
---|
19 | (let ((result (get-output-stream-string output))) |
---|
20 | (prove:ok (and result |
---|
21 | (stringp result) |
---|
22 | (> (length result) 0)) |
---|
23 | "Invocation of Objectweb disassembler."))) |
---|
24 | |
---|
25 | (prove:finalize) |
---|
26 | |
---|
Note: See
TracBrowser
for help on using the repository browser.