/[gcl]/gcl/lsp/gcl_defpackage.data
ViewVC logotype

Diff of /gcl/lsp/gcl_defpackage.data

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.2 by camm, Sun Sep 14 02:43:04 2003 UTC
# Line 0  Line 1 
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    )

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26