:default))
(defun register-asdf-encodings ()
- (setf asdf:*encoding-external-format-hook* 'encoding-external-format
- asdf:*encoding-detection-hook* 'detect-file-encoding)
+ (setf *encoding-external-format-hook* 'encoding-external-format
+ *encoding-detection-hook* 'detect-file-encoding)
(values))
#+abcl (normalize-encoding encoding) ;; we bootstrap that in initialize-normalized-encodings
#+allegro (excl:find-external-format encoding)
#+clozure (ignore-errors (ccl::normalize-external-format t encoding))
- #+clisp (asdf:find-symbol* encoding :charset)
+ #+clisp (find-symbol* encoding :charset)
#+cmu (stream::find-external-format encoding)
#+ecl (ignore-errors (ext:make-encoding encoding))
#+lispworks
(in-package :cl)
(defpackage :asdf-encodings
- (:use :cl)
+ (:use :cl :asdf)
+ (:import-from :asdf
+ #:find-symbol*)
(:export
#:encoding-external-format
#:*on-unsupported-encoding*