From 54ef64c94e82376fc7907de0850ca2724ec58434 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Wed, 15 Dec 2010 15:10:34 -0500
Subject: [PATCH] 2.011.6: clear-system uses remhash instead of puthash to not
 break map-systems Fixes lp#690814 (thanks, Xach).

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

diff --git a/asdf.asd b/asdf.asd
index dc9d72c3..612f66e3 100644
--- a/asdf.asd
+++ b/asdf.asd
@@ -12,7 +12,7 @@
   :licence "MIT"
   :description "Another System Definition Facility"
   :long-description "ASDF builds Common Lisp software organized into defined systems."
-  :version "2.011.5"
+  :version "2.011.6"
   ;;:version #.(asdf:asdf-version) ; how do we make that the *described* ASDF's version rather than the *previously loaded* ASDF's version?
   :depends-on ()
   :components
diff --git a/asdf.lisp b/asdf.lisp
index fd123679..16e78c01 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -78,7 +78,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.011.5")
+         (asdf-version "2.011.6")
          (existing-asdf (fboundp 'find-system))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -1175,11 +1175,8 @@ of which is a system object.")
 Note that this does NOT in any way cause the code of the system to be unloaded."
   ;; There is no "unload" operation in Common Lisp, and a general such operation
   ;; cannot be portably written, considering how much CL relies on side-effects
-  ;; of global data structures.
-  ;; Note that this does a setf gethash instead of a remhash
-  ;; this way there remains a hint in the *defined-systems* table
-  ;; that the system was loaded at some point.
-  (setf (gethash (coerce-name name) *defined-systems*) nil))
+  ;; to global data structures.
+  (remhash (coerce-name name) *defined-systems*))
 
 (defun* map-systems (fn)
   "Apply FN to each defined system.
-- 
GitLab