source: tags/1.7.0/t/disassemble.lisp

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: 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.