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