Augmented the defpackage form.

Pascal J. Bourguignon [2013-12-15 02:09]
Augmented the defpackage form.
Filename
environment.lisp
diff --git a/environment.lisp b/environment.lisp
index a952906..2e720ec 100644
--- a/environment.lisp
+++ b/environment.lisp
@@ -1,3 +1,68 @@
+;;;; -*- mode:lisp;coding:utf-8 -*-
+;;;;**************************************************************************
+;;;;FILE:               environment.lisp
+;;;;LANGUAGE:           Common-Lisp
+;;;;SYSTEM:             Common-Lisp
+;;;;USER-INTERFACE:     NONE
+;;;;DESCRIPTION
+;;;;
+;;;;    Lisp OS Environments.
+;;;;
+;;;;AUTHORS
+;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
+;;;;MODIFICATIONS
+;;;;    2013-11-30 <PJB> Added this header.
+;;;;BUGS
+;;;;LEGAL
+;;;;    AGPL3
+;;;;
+;;;;    Copyright Pascal J. Bourguignon 2013 - 2013
+;;;;
+;;;;    This program is free software: you can redistribute it and/or modify
+;;;;    it under the terms of the GNU Affero General Public License as published by
+;;;;    the Free Software Foundation, either version 3 of the License, or
+;;;;    (at your option) any later version.
+;;;;
+;;;;    This program is distributed in the hope that it will be useful,
+;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;;;;    GNU Affero General Public License for more details.
+;;;;
+;;;;    You should have received a copy of the GNU Affero General Public License
+;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;;;**************************************************************************
+
+(defpackage "COM.INFORMATIMAGO.COMMON-LISP.LISPOS.ENVIRONMENT"
+  (:use "COMMON-LISP"
+        "COM.INFORMATIMAGO.COMMON-LISP.LISPOS.PACKAGE")
+  (:shadowing-import-from "COM.INFORMATIMAGO.COMMON-LISP.LISPOS.PACKAGE"
+                          . ("SYMBOL"
+                             "SYMBOLP" "MAKE-SYMBOL" "SYMBOL-NAME" "SYMBOL-PACKAGE"
+                             "SYMBOL-VALUE" "SYMBOL-FUNCTION" "SYMBOL-PLIST"
+                             "BOUNDP" "FBOUNDP"
+                             "KEYWORD" "KEYWORDP"
+                             "PACKAGE"
+                             "PACKAGEP"  "MAKE-PACKAGE" "FIND-PACKAGE" "DELETE-PACKAGE"
+                             "FIND-SYMBOL" "IMPORT" "INTERN" "SHADOW" "SHADOWING-IMPORT"
+                             "EXPORT" "UNEXPORT" "UNINTERN" "USE-PACKAGE"
+                             "UNUSE-PACKAGE" "PACKAGE-NAME" "PACKAGE-NICKNAMES"
+                             "PACKAGE-USE-LIST" "PACKAGE-USED-BY-LIST" "PACKAGE-SHADOWING-SYMBOLS"
+                             "LIST-ALL-PACKAGES" "FIND-ALL-SYMBOLS" "RENAME-PACKAGE"
+                             "*PACKAGE*"
+                             "WITH-PACKAGE-ITERATOR"
+                             "DO-SYMBOLS" "DO-EXTERNAL-SYMBOLS" "DO-ALL-SYMBOLS"
+                             "DEFPACKAGE" "IN-PACKAGE"
+                             "PACKAGE-ERROR" "PACKAGE-ERROR-PACKAGE"))
+  (:export "FIND-ENVIRONMENT" "FIND-PACKAGE" "FIND-SYMBOL"
+           "UPDATE-READTABLE"
+           "*ENVIRONMENT*")
+  (:documentation "
+Author: Pascal J. Bourguignon <pjb@informatimago.com>
+Copyright: 2013 Pascal J. Bourguignon
+License: AGPL3
+"))
+
+(in-package "COM.INFORMATIMAGO.COMMON-LISP.LISPOS.ENVIRONMENT")

 #|

@@ -164,20 +229,6 @@ sysenv

 |#

-(defpackage "ENVIRONMENT"
-  (:nicknames "SYSTEM-ENVIRONMENT" "SYSENV")
-  (:use "COMMON-LISP")
-  (:shadow "FIND-PACKAGE" "FIND-SYMBOL")
-  (:export "FIND-ENVIRONMENT" "FIND-PACKAGE" "FIND-SYMBOL"
-           "UPDATE-READTABLE"
-           "*ENVIRONMENT*")
-  (:documentation "
-Author: Pascal J. Bourguignon <pjb@informatimago.com>
-Copyright: 2013 Pascal J. Bourguignon
-License: AGPL3
-"))
-
-(in-package "ENVIRONMENT")

 ;;; Utilities
ViewGit