From 1ef153ce8d11120da6abcd881de330a32090080e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lu=C3=ADs=20Oliveira?= Date: Sun, 17 Apr 2011 23:30:26 +0100 Subject: [PATCH] cffi-tests: fix defcfun.parse-name-and-options.[12] --- tests/defcfun.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/defcfun.lisp b/tests/defcfun.lisp index 524f78ddaca4..48bcd3c2acc5 100644 --- a/tests/defcfun.lisp +++ b/tests/defcfun.lisp @@ -29,13 +29,15 @@ (deftest defcfun.parse-name-and-options.1 (multiple-value-bind (lisp-name foreign-name) - (cffi::parse-name-and-options "foo_bar") + (let ((*package* (find-package '#:cffi-tests))) + (cffi::parse-name-and-options "foo_bar")) (list lisp-name foreign-name)) (foo-bar "foo_bar")) (deftest defcfun.parse-name-and-options.2 (multiple-value-bind (lisp-name foreign-name) - (cffi::parse-name-and-options "foo_bar" t) + (let ((*package* (find-package '#:cffi-tests))) + (cffi::parse-name-and-options "foo_bar" t)) (list lisp-name foreign-name)) (*foo-bar* "foo_bar"))