cffi-tests: fix defcfun.parse-name-and-options.[12]

akovalenko · Apr 17, 2011 · 1ef153c · 1ef153c
1 parent 3a39a73
commit 1ef153c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git 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"))