From ad2b44f2c8b32d29e3fdc38996e94e945a44ed8a Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 13 Nov 1990 23:24:37 +0000 Subject: [PATCH] Added exports of kernel:%sp-set-{definition,plist}. --- code/symbol.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/code/symbol.lisp b/code/symbol.lisp index 2bf98e669..0dddd5ecf 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 -- GitLab