#!+sb-dyncount
(collect-dynamic-statistics nil))
(sb!c::defprinter (segment)
- name)
+ type)
(declaim (inline segment-current-index))
(defun segment-current-index (segment)
body)))))))))
(def sb!int:def!macro macroexpand)
#+sb-xc-host
- (def sb!xc:defmacro sb!xc:macroexpand))
+ (def sb!xc:defmacro %macroexpand))
(defmacro inst (&whole whole instruction &rest args &environment env)
#!+sb-doc
(push (eval `(list (multiple-value-list
,(sb!disassem:gen-printer-def-forms-def-form
name
- (format nil "~@:(~A[~A]~)" name args)
+ (let ((*print-right-margin* 1000))
+ (format nil "~@:(~A[~A]~)" name args))
(cdr option-spec)))))
pdefs))
(:printer-list
`(multiple-value-list
,(sb!disassem:gen-printer-def-forms-def-form
',name
- (format nil "~@:(~A[~A]~)" ',name printer)
+ (let ((*print-right-margin* 1000))
+ (format nil "~@:(~A[~A]~)" ',name printer))
printer
nil)))
,(cadr option-spec)))))