From 2e303b24cddd99cbcd8f7eb0830656ca1029d189 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Tue, 21 May 2013 21:04:18 +0200 Subject: [PATCH 1/1] IN-PACKAGE uses a string designator. --- src/package.lisp | 4 ++-- tests/package.lisp | 2 ++ 2 files changed, 4 insertions(+), 2 deletions(-) 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))) -- 1.7.10.4