From cc43eddd043638dee8990793cb48ce7ab04aa0e8 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Wed, 21 Mar 2012 09:56:51 -0400
Subject: [PATCH] 2.20.2: tweaked version of Orivej's CLISP charset patch.

---
 asdf.asd  | 2 +-
 asdf.lisp | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/asdf.asd b/asdf.asd
index fc194f1f..034b70b3 100644
--- a/asdf.asd
+++ b/asdf.asd
@@ -14,7 +14,7 @@
   :licence "MIT"
   :description "Another System Definition Facility"
   :long-description "ASDF builds Common Lisp software organized into defined systems."
-  :version "2.20.1" ;; to be automatically updated by bin/bump-revision
+  :version "2.20.2" ;; to be automatically updated by bin/bump-revision
   :depends-on ()
   :components
   ((:file "asdf")
diff --git a/asdf.lisp b/asdf.lisp
index 5540c4f5..6202a7eb 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,5 +1,5 @@
 ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp -*-
-;;; This is ASDF 2.20.1: Another System Definition Facility.
+;;; This is ASDF 2.20.2: Another System Definition Facility.
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome:
 ;;; please mail to <asdf-devel@common-lisp.net>.
@@ -112,7 +112,7 @@
          ;; "2.345.6" would be a development version in the official upstream
          ;; "2.345.0.7" would be your seventh local modification of official release 2.345
          ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6
-         (asdf-version "2.20.1")
+         (asdf-version "2.20.2")
          (existing-asdf (find-class 'component nil))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -1306,7 +1306,7 @@ source code.")
   (setf (component-property c :external-format)
         (or
          #+clisp (and (keywordp new-value)
-                      (intern (symbol-name new-value) :charset))
+                      (find-symbol* new-value :charset))
          new-value)))
 
 (defclass proto-system () ; slots to keep when resetting a system
-- 
GitLab