From d45532769ce2eccafa057c051e43f6c4ab281aa5 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sun, 20 Jun 2010 10:39:09 -0400
Subject: [PATCH] 2.102: don't intern symbols in cl-user, defpackage
 asdf-bootstrap. (lp#591955)

---
 asdf.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 0e7a0fa9..f8b19906 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -47,7 +47,9 @@
 
 #+xcvb (module ())
 
-(cl:in-package :cl-user)
+(cl:in-package :cl)
+(defpackage :asdf-bootstrap (:use :cl))
+(in-package :asdf-bootstrap)
 
 ;; Implementation-dependent tweaks
 (eval-when (:compile-toplevel :load-toplevel :execute)
@@ -69,7 +71,7 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
   (let* ((asdf-version
           ;; the 1+ helps the version bumping script discriminate
-          (subseq "VERSION:2.101" (1+ (length "VERSION"))))
+          (subseq "VERSION:2.102" (1+ (length "VERSION"))))
          (existing-asdf (find-package :asdf))
          (vername '#:*asdf-version*)
          (versym (and existing-asdf
-- 
GitLab