Use real tabs in FORMAT-INST

This commit is contained in:
John Lorentzson 2025-03-27 23:02:43 +01:00
parent b22f043523
commit 39cf0b54cb

View file

@ -9,7 +9,7 @@
(format nil "~A~D" prefix (incf *label-counter*)))
(defmacro format-inst (destination control-string &rest format-arguments)
`(format ,destination "~8@T~A~%" (format nil ,control-string ,@format-arguments)))
`(format ,destination "~C~A~%" #\Tab (format nil ,control-string ,@format-arguments)))
(defclass reference () ())