(warn(compatfmt"~@<Your ASDF component is using encoding ~S but it isn't recognized. Your system should :defsystem-depends-on (:asdf-encodings). Falling back to UTF-8.~:>")encoding))
*utf-8-external-format*)
(defundefault-encoding-external-format(encoding)
(caseencoding
(:utf-8*utf-8-external-format*)
(:default:default);; for backwards compatibility only. Usage discouraged.
(otherwise
(cerror"Continue using :external-format :default"(compatfmt"~@<Your ASDF component is using encoding ~S but it isn't recognized. Your system should :defsystem-depends-on (:asdf-encodings).~:>")encoding)
:default)))
(defvar*encoding-external-format-hook*
#'default-encoding-external-format-hook
#'default-encoding-external-format
"Hook for an extension to define a mapping between non-default encodings
and implementation-defined external-format's")
(defunencoding-external-format(encoding)
(funcall*encoding-external-format-hook*encoding))
(defmethodcomponent-external-format((ccomponent))
(encoding-external-format(component-encodingc)))
(defclassproto-system(); slots to keep when resetting a system
;; To preserve identity for all objects, we'd need keep the components slots
;; but also to modify parse-component-form to reset the recycled objects.
...
...
@@ -2393,7 +2397,6 @@ recursive calls to traverse.")