在封裝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 
)