0.9.18.16: disassembly of funcallable instances

[sbcl.git] / tests / interface.impure.lisp

diff --git a/tests/interface.impure.lisp b/tests/interface.impure.lisp
index 1914816..3c21d5f 100644 (file)
--- a/tests/interface.impure.lisp
+++ b/tests/interface.impure.lisp
@@ -47,6 +47,12 @@
   ;; it is first compiled but the result of this implicit compilation
   ;; is not installed.)"
   (assert (sb-eval:interpreted-function-p #'disassemble-eval)))
+
+;; nor should it fail on generic functions or other funcallable instances
+(defgeneric disassemble-generic (x))
+(disassemble 'disassemble-generic)
+(let ((fin (sb-mop:make-instance 'sb-mop:funcallable-standard-object)))
+  (disassemble fin))
 \f
 ;;; support for DESCRIBE tests
 (defstruct to-be-described a b)