← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gclcvs/quantal

« back to all changes in this revision

Viewing changes to pcl/impl/kcl/sys-package.lisp

  • Committer: Bazaar Package Importer
  • Author(s): Camm Maguire
  • Date: 2004-06-24 15:13:46 UTC
  • Revision ID: james.westby@ubuntu.com-20040624151346-xh0xaaktyyp7aorc
Tags: 2.7.0-26
C_GC_OFFSET is 2 on m68k-linux

Show diffs side-by-side

added added

removed removed

Lines of Context:
pcl/impl/kcl/sys-package.lisp
 
1
 
 
2
 
 
3
;;; Definitions for package SLOT-ACCESSOR-NAME of type ESTABLISH
 
4
(LISP::IN-PACKAGE "SLOT-ACCESSOR-NAME" :USE LISP::NIL :NICKNAMES
 
5
    '("S-A-N"))
 
6
 
 
7
;;; Definitions for package PCL of type ESTABLISH
 
8
(LISP::IN-PACKAGE "PCL" :USE LISP::NIL)
 
9
 
 
10
;;; Definitions for package ITERATE of type ESTABLISH
 
11
(LISP::IN-PACKAGE "ITERATE" :USE LISP::NIL)
 
12
 
 
13
;;; Definitions for package WALKER of type ESTABLISH
 
14
(LISP::IN-PACKAGE "WALKER" :USE LISP::NIL)
 
15
 
 
16
;;; Definitions for package SLOT-ACCESSOR-NAME of type EXPORT
 
17
(LISP::IN-PACKAGE "SLOT-ACCESSOR-NAME" :USE 'LISP::NIL :NICKNAMES
 
18
    '("S-A-N"))
 
19
(LISP::IMPORT 'LISP::NIL)
 
20
(LISP::EXPORT 'LISP::NIL)
 
21
 
 
22
;;; Definitions for package PCL of type EXPORT
 
23
(LISP::IN-PACKAGE "PCL" :USE '("LISP" "ITERATE" "WALKER"))
 
24
(LISP::IMPORT 'LISP::NIL)
 
25
(LISP::EXPORT
 
26
    '(PCL::CLASS-PRECEDENCE-LIST PCL::SLOT-DEFINITION
 
27
         PCL::COMPUTE-APPLICABLE-METHODS-USING-CLASSES
 
28
         PCL::SLOT-DEFINITION-WRITERS PCL::CLASS-OF
 
29
         PCL::NO-APPLICABLE-METHOD PCL::STANDARD-WRITER-METHOD
 
30
         PCL::ENSURE-CLASS-USING-CLASS PCL::ENSURE-GENERIC-FUNCTION
 
31
         PCL::FIND-METHOD-COMBINATION PCL::UPDATE-DEPENDENT
 
32
         PCL::MAP-DEPENDENTS PCL::SLOT-MISSING PCL::SPECIALIZER
 
33
         PCL::CALL-NEXT-METHOD PCL::ENSURE-GENERIC-FUNCTION-USING-CLASS
 
34
         PCL::SLOT-MAKUNBOUND-USING-CLASS PCL::MAKE-INSTANCES-OBSOLETE
 
35
         PCL::INTERN-EQL-SPECIALIZER PCL::REMOVE-DIRECT-SUBCLASS
 
36
         PCL::METHOD-GENERIC-FUNCTION PCL::METHOD-QUALIFIERS
 
37
         PCL::FUNCALLABLE-STANDARD-CLASS PCL::EXTRACT-LAMBDA-LIST
 
38
         PCL::STANDARD-CLASS PCL::PRINT-OBJECT PCL::STRUCTURE-CLASS
 
39
         PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION
 
40
         PCL::GENERIC-FUNCTION-DECLARATIONS PCL::MAKE-INSTANCE
 
41
         PCL::METHOD-LAMBDA-LIST PCL::DEFGENERIC
 
42
         PCL::REMOVE-DIRECT-METHOD PCL::STANDARD-DIRECT-SLOT-DEFINITION
 
43
         PCL::GENERIC-FUNCTION-METHODS PCL::VALIDATE-SUPERCLASS
 
44
         PCL::REINITIALIZE-INSTANCE PCL::STANDARD-METHOD
 
45
         PCL::STANDARD-ACCESSOR-METHOD
 
46
         PCL::FUNCALLABLE-STANDARD-INSTANCE PCL::FUNCTION-KEYWORDS
 
47
         PCL::STANDARD PCL::FIND-METHOD PCL::EXTRACT-SPECIALIZER-NAMES
 
48
         PCL::INITIALIZE-INSTANCE PCL::GENERIC-FLET PCL::SLOT-UNBOUND
 
49
         PCL::STANDARD-INSTANCE PCL::SLOT-DEFINITION-TYPE
 
50
         PCL::COMPUTE-EFFECTIVE-METHOD PCL::ALLOCATE-INSTANCE
 
51
         PCL::SYMBOL-MACROLET PCL::GENERIC-FUNCTION
 
52
         PCL::GENERIC-FUNCTION-METHOD-COMBINATION
 
53
         PCL::SPECIALIZER-DIRECT-METHODS PCL::ADD-DIRECT-SUBCLASS
 
54
         PCL::WRITER-METHOD-CLASS PCL::SLOT-DEFINITION-INITARGS
 
55
         PCL::METHOD-SPECIALIZERS PCL::GENERIC-FUNCTION-METHOD-CLASS
 
56
         PCL::ADD-METHOD PCL::WITH-ACCESSORS
 
57
         PCL::SLOT-DEFINITION-ALLOCATION
 
58
         PCL::SLOT-DEFINITION-INITFUNCTION
 
59
         PCL::SLOT-DEFINITION-LOCATION PCL::ADD-DIRECT-METHOD
 
60
         PCL::SLOT-BOUNDP PCL::EQL-SPECIALIZER PCL::SHARED-INITIALIZE
 
61
         PCL::STANDARD-GENERIC-FUNCTION
 
62
         PCL::ACCESSOR-METHOD-SLOT-DEFINITION
 
63
         PCL::SLOT-BOUNDP-USING-CLASS PCL::ADD-DEPENDENT
 
64
         PCL::SPECIALIZER-DIRECT-GENERIC-FUNCTION
 
65
         PCL::WITH-ADDED-METHODS PCL::COMPUTE-CLASS-PRECEDENCE-LIST
 
66
         PCL::REMOVE-DEPENDENT PCL::NEXT-METHOD-P
 
67
         PCL::GENERIC-FUNCTION-NAME PCL::SLOT-VALUE
 
68
         PCL::EFFECTIVE-SLOT-DEFINITION PCL::CLASS-FINALIZED-P
 
69
         PCL::COMPUTE-DISCRIMINATING-FUNCTION PCL::STANDARD-OBJECT
 
70
         PCL::CLASS-DEFAULT-INITARGS PCL::CLASS-DIRECT-SLOTS
 
71
         PCL::FUNCALLABLE-STANDARD-INSTANCE-ACCESS PCL::BUILT-IN-CLASS
 
72
         PCL::NO-NEXT-METHOD PCL::SLOT-MAKUNBOUND
 
73
         PCL::STANDARD-READER-METHOD PCL::GENERIC-FUNCTION-LAMBDA-LIST
 
74
         PCL::GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER
 
75
         PCL::INVALID-METHOD-ERROR PCL::METHOD-COMBINATION-ERROR
 
76
         PCL::SLOT-EXISTS-P PCL::FINALIZE-INHERITANCE
 
77
         PCL::SLOT-DEFINITION-NAME
 
78
         PCL::STANDARD-EFFECTIVE-SLOT-DEFINITION PCL::COMPUTE-SLOTS
 
79
         PCL::CLASS-SLOTS PCL::EFFECTIVE-SLOT-DEFINITION-CLASS
 
80
         PCL::STANDARD-INSTANCE-ACCESS PCL::WITH-SLOTS
 
81
         PCL::DIRECT-SLOT-DEFINITION PCL::DEFINE-METHOD-COMBINATION
 
82
         PCL::MAKE-METHOD-LAMBDA PCL::ENSURE-CLASS
 
83
         PCL::DIRECT-SLOT-DEFINITION-CLASS PCL::METHOD-FUNCTION
 
84
         PCL::STANDARD-SLOT-DEFINITION PCL::CHANGE-CLASS PCL::DEFMETHOD
 
85
         PCL::UPDATE-INSTANCE-FOR-DIFFERENT-CLASS
 
86
         PCL::UPDATE-INSTANCE-FOR-REDEFINED-CLASS
 
87
         PCL::FORWARD-REFERENCED-CLASS PCL::SLOT-DEFINITION-INITFORM
 
88
         PCL::REMOVE-METHOD PCL::READER-METHOD-CLASS PCL::CALL-METHOD
 
89
         PCL::CLASS-PROTOTYPE PCL::CLASS-NAME PCL::FIND-CLASS
 
90
         PCL::DEFCLASS PCL::COMPUTE-APPLICABLE-METHODS
 
91
         PCL::SLOT-VALUE-USING-CLASS PCL::METHOD-COMBINATION
 
92
         PCL::EQL-SPECIALIZER-INSTANCE PCL::GENERIC-LABELS PCL::METHOD
 
93
         PCL::SLOT-DEFINITION-READERS
 
94
         PCL::CLASS-DIRECT-DEFAULT-INITARGS
 
95
         PCL::CLASS-DIRECT-SUBCLASSES PCL::CLASS-DIRECT-SUPERCLASSES
 
96
         PCL::SET-FUNCALLABLE-INSTANCE-FUNCTION))
 
97
 
 
98
;;; Definitions for package ITERATE of type EXPORT
 
99
(LISP::IN-PACKAGE "ITERATE" :USE '("WALKER" "LISP"))
 
100
(LISP::IMPORT 'LISP::NIL)
 
101
(LISP::EXPORT
 
102
    '(ITERATE::SUMMING ITERATE::MINIMIZING ITERATE::PLIST-ELEMENTS
 
103
         ITERATE::ITERATE* ITERATE::MAXIMIZING ITERATE::LIST-TAILS
 
104
         ITERATE::*ITERATE-WARNINGS* ITERATE::GATHERING
 
105
         ITERATE::EACHTIME ITERATE::ELEMENTS ITERATE::GATHER
 
106
         ITERATE::LIST-ELEMENTS ITERATE::WHILE ITERATE::ITERATE
 
107
         ITERATE::UNTIL ITERATE::JOINING ITERATE::COLLECTING
 
108
         ITERATE::WITH-GATHERING ITERATE::INTERVAL))
 
109
 
 
110
;;; Definitions for package WALKER of type EXPORT
 
111
(LISP::IN-PACKAGE "WALKER" :USE '("LISP"))
 
112
(LISP::IMPORT 'LISP::NIL)
 
113
(LISP::EXPORT
 
114
    '(WALKER::DEFINE-WALKER-TEMPLATE WALKER::*VARIABLE-DECLARATIONS*
 
115
         WALKER::NESTED-WALK-FORM WALKER::VARIABLE-DECLARATION
 
116
         WALKER::WALK-FORM-EXPAND-MACROS-P WALKER::VARIABLE-LEXICAL-P
 
117
         WALKER::VARIABLE-SPECIAL-P WALKER::WALK-FORM
 
118
         WALKER::MACROEXPAND-ALL WALKER::VARIABLE-GLOBALLY-SPECIAL-P))
 
119
 
 
120
;;; Definitions for package SLOT-ACCESSOR-NAME of type SHADOW
 
121
(LISP::IN-PACKAGE "SLOT-ACCESSOR-NAME")
 
122
(LISP::SHADOW 'LISP::NIL)
 
123
(LISP::SHADOWING-IMPORT 'LISP::NIL)
 
124
(LISP::IMPORT 'LISP::NIL)
 
125
 
 
126
;;; Definitions for package PCL of type SHADOW
 
127
(LISP::IN-PACKAGE "PCL")
 
128
(LISP::SHADOW '(PCL::DOTIMES PCL::DOCUMENTATION))
 
129
(LISP::SHADOWING-IMPORT 'LISP::NIL)
 
130
(LISP::IMPORT
 
131
    '(SYSTEM::STRUCTURE-REF SYSTEM::STRUCTURE-DEF SYSTEM::STRUCTUREP))
 
132
 
 
133
;;; Definitions for package ITERATE of type SHADOW
 
134
(LISP::IN-PACKAGE "ITERATE")
 
135
(LISP::SHADOW 'LISP::NIL)
 
136
(LISP::SHADOWING-IMPORT 'LISP::NIL)
 
137
(LISP::IMPORT 'LISP::NIL)
 
138
 
 
139
;;; Definitions for package WALKER of type SHADOW
 
140
(LISP::IN-PACKAGE "WALKER")
 
141
(LISP::SHADOW 'LISP::NIL)
 
142
(LISP::SHADOWING-IMPORT 'LISP::NIL)
 
143
(LISP::IMPORT 'LISP::NIL)
 
144
 
 
145
(lisp::in-package 'SI)
 
146
(export '(%structure-name
 
147
          %compiled-function-name
 
148
          %set-compiled-function-name))
 
149
(in-package 'pcl)