common lisp 的函数 SYMBOL-PACKAGE

symbol-package.txt

语法
  symbol-package symbol => contents
  
参数和值
  symbol --- 一个 symbol
  contents --- 一个 package object 或者 nil
  
描述
  返回 symbol 的 home package

代码
  * (symbol-function 'car)
  #<FUNCTION CAR>

  * (symbol-package 'car)
  #<PACKAGE "COMMON-LISP">

  * (in-package "CL-USER")
  #<PACKAGE "COMMON-LISP-USER">

  * (symbol-package 'car)
  #<PACKAGE "COMMON-LISP">

  * (symbol-package 'bus)
  #<PACKAGE "COMMON-LISP-USER">