From c79ff02d2250246c16fa4103e43fb5a0abf28ebf Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 23 May 2000 05:43:14 +0000
Subject: [PATCH] Move the symbol %defpackage from the LISP to the KERNEL
 package and export it.

---
 code/exports.lisp | 4 ++--
 code/package.lisp | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 16e0e27e3..5d351dcdc 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.168 2000/05/02 04:44:03 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.169 2000/05/23 05:43:14 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1622,7 +1622,7 @@
 	   "INFINITE-ERROR-PROTECT"
 	   "FIND-CALLER-NAME" "OLD-IN-PACKAGE"
 	   "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE" "OUTPUT-SYMBOL-NAME"
-	   "FSET" "RAW-DEFINITION" "%IN-PACKAGE" 
+	   "FSET" "RAW-DEFINITION" "%IN-PACKAGE" "%DEFPACKAGE"
 	   "INVOKE-MACROEXPAND-HOOK" "TYPEDEF-INIT" "DEFAULT-STRUCTURE-PRINT"
 	   "LAYOUT" "LAYOUT-LENGTH" "RATIOP" "FIXNUMP"
 	   "LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE"
diff --git a/code/package.lisp b/code/package.lisp
index 39c580edb..c2123e98d 100644
--- a/code/package.lisp
+++ b/code/package.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.52 1999/05/04 13:11:59 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.53 2000/05/23 05:43:14 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -30,7 +30,7 @@
 			    map-apropos))
 
 (in-package "KERNEL")
-(export '(%in-package old-in-package))
+(export '(%in-package old-in-package %defpackage))
 
 (in-package "LISP")
 
-- 
GitLab