(disassemble-internal): Allow a call to byte-code as argument.

lisp/emacs-lisp/disass.el

@@ -86,6 +86,8 @@ redefine OBJECT if it is a symbol."
     (if (eq (car-safe obj) 'macro)	;handle macros
 	(setq macro t
 	      obj (cdr obj)))
+    (if (and (listp obj) (eq (car obj) 'byte-code))
+	(setq obj (list 'lambda nil obj)))	
     (if (and (listp obj) (not (eq (car obj) 'lambda)))
 	(error "not a function"))
     (if (consp obj)