1 |
|
|
2 |
|
#(#! |
3 |
|
(lisp::in-package :defpackage)#! |
4 |
|
(lisp::export (lisp::quote (defpackage::defpackage)))#! |
5 |
|
(lisp::use-package :sloop)#! |
6 |
|
(lisp::provide :defpackage)#! |
7 |
|
(lisp::in-package "USER")#! |
8 |
|
(lisp::use-package "DEFPACKAGE") |
9 |
|
#((:documentation :size :nicknames :shadow :shadowing-import-from :use :import-from :intern :export :export-from) "Proceed, ignoring this option." "~s is not a valid option." (:size :documentation) :key :invalid-form "DEFPACKAGE option ~s specified more than once." :nicknames :documentation :size :shadow :intern :export :shadowing-import-from :import-from :export-from "The symbol ~s cannot coexist in these lists:~{ ~s~}" 1 2 3 4 "The symbol ~s cannot coexist in these lists:~{ ~s~}" :test 2147483646 lisp::eval-when (lisp::load lisp::eval lisp::compile) lisp::if lisp::find-package lisp::progn lisp::rename-package lisp::quote :use lisp::unuse-package lisp::package-use-list lisp::make-package (lisp::quote :use) (lisp::quote lisp::nil) (lisp::quote :nicknames) lisp::setf lisp::get :keyword (lisp::quote system::package-documentation) lisp::let lisp::*package* lisp::shadow lisp::mapcar (lisp::function lisp::intern) lisp::shadowing-import lisp::function lisp::lambda (lisp::symbol) lisp::find-symbol lisp::symbol lisp::intern lisp::specific-correctable-error :package-error "" (lisp::format lisp::nil "Symbol ~S not present~%" lisp::symbol) lisp::use-package "LISP" lisp::import (lisp::symbol) "" (lisp::format lisp::nil "Symbol ~S not present~%" lisp::symbol) (lisp::function lisp::intern) lisp::export (lisp::function lisp::intern) lisp::dolist lisp::package (lisp::do-external-symbols (lisp::symbol (lisp::find-package lisp::package)) (lisp::when (lisp::nth 1 (lisp::multiple-value-list (lisp::find-symbol (lisp::string lisp::symbol)))) (lisp::export (lisp::list (lisp::intern (lisp::string lisp::symbol)))))) lisp::count lisp::car lisp::specific-error lisp::find lisp::string= lisp::type-error (system::%init . #((lisp::proclaim (lisp::quote (lisp::declaration lisp::values defpackage::arglist))) (system::putprop (lisp::quote defpackage::defpackage) "DEFPACKAGE - DEFINED-PACKAGE-NAME {OPTION}* [Macro] |
10 |
|
|
11 |
|
This creates a new package, or modifies an existing one, whose name is |
12 |
|
DEFINED-PACKAGE-NAME. The DEFINED-PACKAGE-NAME may be a string or a |
13 |
|
symbol; if it is a symbol, only its print name matters, and not what |
14 |
|
package, if any, the symbol happens to be in. The newly created or |
15 |
|
modified package is returned as the value of the DEFPACKAGE form. |
16 |
|
|
17 |
|
Each standard OPTION is a list of keyword (the name of the option) |
18 |
|
and associated arguments. No part of a DEFPACKAGE form is evaluated. |
19 |
|
Except for the :SIZE and :DOCUMENTATION options, more than one option |
20 |
|
of the same kind may occur within the same DEFPACKAGE form. |
21 |
|
|
22 |
|
Valid Options: |
23 |
|
(:documentation string) |
24 |
|
(:size integer) |
25 |
|
(:nicknames {package-name}*) |
26 |
|
(:shadow {symbol-name}*) |
27 |
|
(:shadowing-import-from package-name {symbol-name}*) |
28 |
|
(:use {package-name}*) |
29 |
|
(:import-from package-name {symbol-name}*) |
30 |
|
(:intern {symbol-name}*) |
31 |
|
(:export {symbol-name}*) |
32 |
|
(:export-from {package-name}*) |
33 |
|
|
34 |
|
[Note: :EXPORT-FROM is an extension to DEFPACKAGE. |
35 |
|
If a symbol is interned in the package being created and |
36 |
|
if a symbol with the same print name appears as an external |
37 |
|
symbol of one of the packages in the :EXPORT-FROM option, |
38 |
|
then the symbol is exported from the package being created. |
39 |
|
|
40 |
|
:DOCUMENTATION is an extension to DEFPACKAGE. |
41 |
|
|
42 |
|
:SIZE is used only in Genera and Allegro.]" (lisp::quote system::function-documentation)) (system::mm (lisp::quote defpackage::defpackage) 0) (lisp::let* ((#0=#:g1503 :defpackage)) (lisp::setq lisp::*features* (lisp::adjoin #0# lisp::*features*))) (lisp::unintern (lisp::quote defpackage::defpackage) (lisp::quote defpackage::user))))) |
43 |
|
) |