Re: Towards a cleaner build: disass.el

[Eli Zaretskii]

> From: Lars Ingebrigtsen <address@hidden>
> Date: Thu, 13 Jun 2019 02:27:32 +0200
> 
>     (if (consp obj)
>       (setq bytes (car (cdr obj))             ;the byte code
>             constvec (car (cdr (cdr obj))))   ;constant vector
>       ;; If it is lazy-loaded, load it now
>       (fetch-bytecode obj)
>       (setq bytes (aref obj 1)
>           constvec (aref obj 2)))
>     (let ((lap (byte-decompile-bytecode (string-as-unibyte bytes) constvec))
> 
> 
> But...
> 
> (multibyte-string-p (aref (byte-compile '(lambda (foo) (+ 4 foo))) 1))
> => nil
> 
> Is there any way the byte string in a byte-compiled function is
> multibyte?  It kinda looks like a NOP to me...

I suggest to remove the call and add an assertion there.  This way, we
will soon know if its a NOP or not.

Thanks.