More package tweaks.
authorFrancois-Rene Rideau <fare@tunes.org>
Sun, 7 Oct 2012 18:58:11 +0000 (14:58 -0400)
committerFrancois-Rene Rideau <fare@tunes.org>
Sun, 7 Oct 2012 18:58:11 +0000 (14:58 -0400)
asdf-support.lisp
encodings.lisp
pkgdcl.lisp

index bf1e920..df63768 100644 (file)
@@ -15,6 +15,6 @@
       :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))
index ece9cd4..a0cda8e 100644 (file)
   #+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
index df7a42c..6c5adba 100644 (file)
@@ -3,7 +3,9 @@
 (in-package :cl)
 
 (defpackage :asdf-encodings
-  (:use :cl)
+  (:use :cl :asdf)
+  (:import-from :asdf
+   #:find-symbol*)
   (:export
    #:encoding-external-format
    #:*on-unsupported-encoding*