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