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