Fill the character-set encodings at load time and execute time.

Pascal J. Bourguignon [2012-04-09 12:52]
Fill the character-set encodings at load time and execute time.
Filename
clext/character-sets.lisp
diff --git a/clext/character-sets.lisp b/clext/character-sets.lisp
index 3c551be..0fd0814 100644
--- a/clext/character-sets.lisp
+++ b/clext/character-sets.lisp
@@ -584,9 +584,9 @@ RETURN:  the external-format value corresponding to this EMACS-ENCODING.



-
-(fill-character-set-emacs-encoding)
-(fill-character-set-lisp-encoding)
+(eval-when (:load-toplevel :execute)
+  (fill-character-set-emacs-encoding)
+  (fill-character-set-lisp-encoding))


ViewGit