diff options
| -rw-r--r-- | lisp/emacs-lisp/disass.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/disass.el b/lisp/emacs-lisp/disass.el index 3fc22247fa6..7625ff829fc 100644 --- a/lisp/emacs-lisp/disass.el +++ b/lisp/emacs-lisp/disass.el | |||
| @@ -168,7 +168,8 @@ OBJ should be a call to BYTE-CODE generated by the byte compiler." | |||
| 168 | (fetch-bytecode obj) | 168 | (fetch-bytecode obj) |
| 169 | (setq bytes (aref obj 1) | 169 | (setq bytes (aref obj 1) |
| 170 | constvec (aref obj 2))) | 170 | constvec (aref obj 2))) |
| 171 | (let ((lap (byte-decompile-bytecode (string-as-unibyte bytes) constvec)) | 171 | (cl-assert (not (multibyte-string-p bytes))) |
| 172 | (let ((lap (byte-decompile-bytecode bytes constvec)) | ||
| 172 | op arg opname pc-value) | 173 | op arg opname pc-value) |
| 173 | (let ((tagno 0) | 174 | (let ((tagno 0) |
| 174 | tmp | 175 | tmp |