Use real tabs in FORMAT-INST
This commit is contained in:
parent
b22f043523
commit
39cf0b54cb
1 changed files with 1 additions and 1 deletions
|
@ -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 () ())
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue