diff --git a/compiler/backend.lisp b/compiler/backend.lisp index fef4125c9d04c895c2c05cff1dbedfef0ad26aba..6d8c463160849de10815466522e73cc644b1a336 100644 --- a/compiler/backend.lisp +++ b/compiler/backend.lisp @@ -20,7 +20,7 @@ backend-register-save-penalty backend-byte-order backend-any-primitive-type backend-info-environment backend-instruction-formats backend-instruction-flavors - backend-special-arg-types + backend-special-arg-types backend-features ;; The various backends need to call these support routines make-stack-pointer-tn primitive-type primitive-type-of)) @@ -168,6 +168,9 @@ (instruction-flavors (make-hash-table :test #'equal) :type hash-table) (special-arg-types (make-hash-table :test #'eq) :type hash-table) + ;; The backend specific features list, if any. + (features nil :type list) + . #.(mapcar #'(lambda (slot) `(,slot nil :type (or null function))) (sort (copy-list vm-support-routines)