|
Last change
on this file was
15013,
checked in by Mark Evenson, 8 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:
439 bytes
|
| Line | |
|---|
| 1 | (in-package :cl-user) |
|---|
| 2 | |
|---|
| 3 | (prove:plan 1) |
|---|
| 4 | (let ((output (make-string-output-stream))) |
|---|
| 5 | (let ((*standard-output* output)) |
|---|
| 6 | (disassemble #'cons)) |
|---|
| 7 | (let ((result (get-output-stream-string output))) |
|---|
| 8 | (prove:ok (and result |
|---|
| 9 | (stringp result) |
|---|
| 10 | (> (length result) 0)) |
|---|
| 11 | (format nil |
|---|
| 12 | "Invocation of default EXT:*DISASSEMBLER* (~a)." ext:*disassembler*)))) |
|---|
| 13 | (prove:finalize) |
|---|
| 14 | |
|---|
| 15 | |
|---|
Note: See
TracBrowser
for help on using the repository browser.
