I suggest to intern keyword external format in charset package in CLISP in #'(setf component-external-format) as a sane default.
>From 65ee13de62ebbbb3e49640bb22aecfb3160534e2 Mon Sep 17 00:00:00 2001 From: Orivej Desh <[email protected]> Date: Wed, 21 Mar 2012 14:05:39 +0400 Subject: [PATCH] Intern keyword external format in charset package in CLISP. --- asdf.lisp | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index ea78300..5540c4f 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1303,7 +1303,11 @@ (defmethod component-external-format ((c component)) *utf-8-external-format*))) (defmethod (setf component-external-format) (new-value (c component)) - (setf (component-property c :external-format) new-value)) + (setf (component-property c :external-format) + (or + #+clisp (and (keywordp new-value) + (intern (symbol-name new-value) :charset)) + new-value))) (defclass proto-system () ; slots to keep when resetting a system ;; To preserve identity for all objects, we'd need keep the components slots -- 1.7.9.1
_______________________________________________ asdf-devel mailing list [email protected] http://lists.common-lisp.net/cgi-bin/mailman/listinfo/asdf-devel
