Oops, that was an old one.
>From f4cf774294071654ca9b1cb3f83263a4292f04b1 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..911c315 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)
+ (find-symbol (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
