diff --git a/code/symbol.lisp b/code/symbol.lisp index 2bf98e6696d0ed183766bc65e4e0e25971524c61..0dddd5ecf31b847a3bbf9f8af431dc9d7ae3c3b7 100644 --- a/code/symbol.lisp +++ b/code/symbol.lisp @@ -15,11 +15,16 @@ ;;; Many of these are trivial interpreter entries to functions ;;; open-coded by the compiler. ;;; -(in-package 'lisp) +(in-package "LISP") (export '(get remprop symbol-plist getf get-properties symbol-name make-symbol copy-symbol gensym gentemp *gensym-counter* symbol-package keywordp makunbound symbol-value symbol-function boundp set)) +(in-package "KERNEL") +(export '(%sp-set-definition %sp-set-plist)) + +(in-package "LISP") + (defun set (variable new-value) "VARIABLE must evaluate to a symbol. This symbol's special value cell is