USER ! LISPIN-PACKAGE ! KEYWORDDEFPACKAGE!,EXPORT!,QUOTE! ! DEFPACKAGEDEFPACKAGE,PROVIDE -DEFPACKAGE ,IN-PACKAGE USER ,USE-PACKAGE DEFPACKAGE[1FOR1IN,UNLESS1OPTION! -DOCUMENTATION!-SIZE! -NICKNAMES!-SHADOW!-SHADOWING-IMPORT-FROM!-USE! -IMPORT-FROM!-INTERN!-EXPORT! -EXPORT-FROM,DO Proceed, ignoring this option. $~s is not a valid DEFPACKAGE option.32!,WHEN-KEY RDEFPACKAGE option ~s specified more than once. The first value "~a" will be used.42359:!,LIST61COLLECT8; 1DUPLICATE,APPEND 3The symbol ~s cannot coexist in these lists:~{ ~s~}1NUM 3The symbol ~s cannot coexist in these lists:~{ ~s~}1MORE1ON1I1FROM,ELT1AS1ENTRY,=-TEST1L21J ,EVAL-WHEN ,LOAD,EVAL,COMPILE,IF! ,FIND-PACKAGE,PROGN,RENAME-PACKAGE/7 ,UNUSE-PACKAGE,PACKAGE-USE-LIST ,MAKE-PACKAGE/7//4,SETF,GET-KEYWORD/-PACKAGE-DOCUMENTATION,LET ,*PACKAGE*,SHADOW,MAPCAR!,FUNCTION!,INTERN,SHADOWING-IMPORT?,LAMBDA!,SYMBOL@A ,USE-PACKAGE CL,IMPORTA?@.?@,DOLIST!,PACKAGE ,DO-EXTERNAL-SYMBOLSA>B < ,NTH,MULTIPLE-VALUE-LIST ,FIND-SYMBOL!,STRINGA.=@CA1RESULT1THEN1UNTIL,CAR,COUNT,WARN,STRING=,FIND! SYSTEM%INIT  DWARN-VERSION5.0),PROCLAIM/  ,DECLARATION,VALUES1ARGLIST DPUTPROP/0ŒDEFPACKAGE - DEFINED-PACKAGE-NAME {OPTION}* [Macro] This creates a new package, or modifies an existing one, whose name is DEFINED-PACKAGE-NAME. The DEFINED-PACKAGE-NAME may be a string or a symbol; if it is a symbol, only its print name matters, and not what package, if any, the symbol happens to be in. The newly created or modified package is returned as the value of the DEFPACKAGE form. Each standard OPTION is a list of keyword (the name of the option) and associated arguments. No part of a DEFPACKAGE form is evaluated. Except for the :SIZE and :DOCUMENTATION options, more than one option of the same kind may occur within the same DEFPACKAGE form. Valid Options: (:documentation string) (:size integer) (:nicknames {package-name}*) (:shadow {symbol-name}*) (:shadowing-import-from package-name {symbol-name}*) (:use {package-name}*) (:import-from package-name {symbol-name}*) (:intern {symbol-name}*) (:export {symbol-name}*) (:export-from {package-name}*) [Note: :EXPORT-FROM is an extension to DEFPACKAGE. If a symbol is interned in the package being created and if a symbol with the same print name appears as an external symbol of one of the packages in the :EXPORT-FROM option, then the symbol is exported from the package being created. :DOCUMENTATION is an extension to DEFPACKAGE. :SIZE is used only in Genera and Allegro.]/DFUNCTION-DOCUMENTATION DMM/0 ,SETQ! ,*FEATURES* ,ADJOIN -DEFPACKAGEE ,UNINTERN/0/1USER