在封装SBCL

Question

在REPL我做的： *（defpackage：FOO（：使用共口齿不清）） *（在包：富）

#<PACKAGE "FOO"> 

* *package* 

#<PACKAGE "FOO"> 

如果我写的文件：

试穿package.lisp：

(defpackage :foo (:use common-lisp)) 
(in-package :foo) 

然后我打开这个文件：

* (load "try-package") 
T 
* *package* 
#<PACKAGE "COMMON-LISP-USER"> 

为什么我总是在COMMON-LISP-USER那么我应该在FOO？

Answer 1

LOAD 结合*PACKAGE*（也*READTABLE*）把它加载文件，这样之前举行 值：

(let ((*package* *package*) 
     (*readtable* *readtable*)) 
    ... ;; really load a file 
)