disassemble.lisp 439 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
(in-package :cl-user)

(prove:plan 1)
(let ((output (make-string-output-stream)))
  (let ((*standard-output* output))
    (disassemble #'cons))
  (let ((result (get-output-stream-string output)))
    (prove:ok (and result
                   (stringp result)
                   (> (length result) 0))
              (format nil
                      "Invocation of default EXT:*DISASSEMBLER* (~a)." ext:*disassembler*))))
(prove:finalize)