From: Olof-Joachim Frahm <olof@macrolet.net>
Date: Tue, 21 May 2013 19:04:18 +0000 (+0200)
Subject: IN-PACKAGE uses a string designator.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2e303b24cddd99cbcd8f7eb0830656ca1029d189;hp=bf2a019d267d23ce1ed6b0eb09da07310bb7e758;p=jscl.git

IN-PACKAGE uses a string designator.
---

diff --git a/src/package.lisp b/src/package.lisp
index b74fbaa..c7251b6 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -73,9 +73,9 @@
 
 (defvar *package* *common-lisp-package*)
 
-(defmacro in-package (package-designator)
+(defmacro in-package (string-designator)
   `(eval-when-compile
-     (setq *package* (find-package-or-fail ,package-designator))))
+     (setq *package* (find-package-or-fail ',string-designator))))
 
 ;; This function is used internally to initialize the CL package
 ;; with the symbols built during bootstrap.
diff --git a/tests/package.lisp b/tests/package.lisp
index 814057b..c9b6782 100644
--- a/tests/package.lisp
+++ b/tests/package.lisp
@@ -23,3 +23,5 @@
           (member baz symbols)))))
 
 (test (member 'car (find-all-symbols (string 'car))))
+
+(test (eq (eval '(in-package #:cl)) (find-package '#:cl)))