Raymond Toy pushed to branch master at cmucl / cmucl
Commits: 704b1ae0 by Raymond Toy at 2015-10-11T09:07:54Z Change disassembly to use .byte and .word instead of byte and word when printing random bytes and words.
- - - - -
1 changed file:
- src/compiler/disassem.lisp
Changes:
===================================== src/compiler/disassem.lisp ===================================== --- a/src/compiler/disassem.lisp +++ b/src/compiler/disassem.lisp @@ -2470,7 +2470,7 @@ (declare (type offset num) (type stream stream) (type disassem-state dstate)) - (format stream "~a~vt" 'BYTE (dstate-argument-column dstate)) + (format stream "~a~vt" '.BYTE (dstate-argument-column dstate)) (let ((sap (dstate-segment-sap dstate)) (start-offs (dstate-cur-offs dstate))) (dotimes (offs num) @@ -2483,7 +2483,7 @@ (declare (type offset num) (type stream stream) (type disassem-state dstate)) - (format stream "~a~vt" 'WORD (dstate-argument-column dstate)) + (format stream "~a~vt" '.WORD (dstate-argument-column dstate)) (let ((sap (dstate-segment-sap dstate)) (start-offs (dstate-cur-offs dstate)) (byte-order (dstate-byte-order dstate)))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/704b1ae0c0a023bf315a965241...