/[cmucl]/src/pcl/pkg.lisp
ViewVC logotype

Contents of /src/pcl/pkg.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (show annotations) (vendor branch)
Sat Oct 19 16:45:37 1991 UTC (22 years, 6 months ago) by ram
Changes since 1.1: +1 -0 lines
*** empty log message ***
1 ;;;-*-Mode:LISP; Package:(PCL (LISP WALKER)); Base:10; Syntax:Common-lisp -*-
2 ;;;
3 ;;; *************************************************************************
4 ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation.
5 ;;; All rights reserved.
6 ;;;
7 ;;; Use and copying of this software and preparation of derivative works
8 ;;; based upon this software are permitted. Any distribution of this
9 ;;; software or derivative works must comply with all applicable United
10 ;;; States export control laws.
11 ;;;
12 ;;; This software is made available AS IS, and Xerox Corporation makes no
13 ;;; warranty about the software, its performance or its conformity to any
14 ;;; specification.
15 ;;;
16 ;;; Any person obtaining a copy of this software is requested to send their
17 ;;; name and post office or electronic mail address to:
18 ;;; CommonLoops Coordinator
19 ;;; Xerox PARC
20 ;;; 3333 Coyote Hill Rd.
21 ;;; Palo Alto, CA 94304
22 ;;; (or send Arpanet mail to CommonLoops-Coordinator.pa@Xerox.arpa)
23 ;;;
24 ;;; Suggestions, comments and requests for improvements are also welcome.
25 ;;; *************************************************************************
26 ;;;
27
28 (in-package 'pcl)
29
30 ;;;
31 ;;; Some CommonLisps have more symbols in the Lisp package than the ones that
32 ;;; are explicitly specified in CLtL. This causes trouble. Any Lisp that has
33 ;;; extra symbols in the Lisp package should shadow those symbols in the PCL
34 ;;; package.
35 ;;;
36 #+TI
37 (shadow '(string-append once-only destructuring-bind
38 memq assq delq neq true false
39 without-interrupts
40 defmethod)
41 *the-pcl-package*)
42
43 #+GCLisp
44 (shadow '(string-append memq assq delq neq make-instance)
45 *the-pcl-package*)
46
47 #+Genera
48 (shadowing-import '(zl:arglist zwei:indentation) *the-pcl-package*)
49
50 #+Lucid
51 (import #-LCL3.0 'system:arglist
52 #+LCL3.0 'lcl:arglist
53 *the-pcl-package*)
54
55
56
57 (shadow 'documentation)
58
59
60 ;;;
61 ;;; These come from the index pages of 88-002R.
62 ;;;
63 ;;;
64 (eval-when (compile load eval)
65
66 (defvar *exports* '(add-method
67 built-in-class
68 call-method
69 call-next-method
70 change-class
71 class-name
72 class-of
73 compute-applicable-methods
74 defclass
75 defgeneric
76 define-method-combination
77 defmethod
78 ensure-generic-function
79 find-class
80 find-method
81 function-keywords
82 generic-flet
83 generic-labels
84 initialize-instance
85 invalid-method-error
86 make-instance
87 make-instances-obsolete
88 method-combination-error
89 method-qualifiers
90 next-method-p
91 no-applicable-method
92 no-next-method
93 print-object
94 reinitialize-instance
95 remove-method
96 shared-initialize
97 slot-boundp
98 slot-exists-p
99 slot-makunbound
100 slot-missing
101 slot-unbound
102 slot-value
103 standard
104 standard-class
105 standard-generic-function
106 standard-method
107 standard-object
108 structure-class
109 symbol-macrolet
110 update-instance-for-different-class
111 update-instance-for-redefined-class
112 with-accessors
113 with-added-methods
114 with-slots
115 ))
116
117 );eval-when
118
119 #-(or KCL IBCL)
120 (export *exports* *the-pcl-package*)
121
122 #+(or KCL IBCL)
123 (mapc 'export (list *exports*) (list *the-pcl-package*))
124
125
126
127 ;(defvar *chapter-3-exports* '(
128 ; get-setf-function
129 ; get-setf-function-name
130 ;
131 ; class-prototype
132 ; class
133 ; object
134 ;
135 ;; essential-class
136 ;
137 ; class-name
138 ; class-precedence-list
139 ; class-local-supers
140 ; class-local-slots
141 ; class-direct-subclasses
142 ; class-direct-methods
143 ; class-slots
144 ;
145 ;
146 ; method-arglist
147 ; method-argument-specifiers
148 ; method-function
149 ;
150 ; method-equal
151 ;
152 ; slotd-name
153 ; slot-missing
154 ;
155 ;; define-meta-class
156 ;; %allocate-instance
157 ;; %instance-ref
158 ;; %instancep
159 ;; %instance-meta-class
160 ;
161 ; allocate-instance
162 ; optimize-slot-value
163 ; optimize-setf-of-slot-value
164 ; add-named-class
165 ; class-for-redefinition
166 ; add-class
167 ; supers-changed
168 ; slots-changed
169 ; check-super-metaclass-compatibility
170 ; make-slotd
171 ; compute-class-precedence-list
172 ; walk-method-body
173 ; walk-method-body-form
174 ; add-named-method
175 ; remove-named-method
176 ;
177 ;
178 ; ))
179

  ViewVC Help
Powered by ViewVC 1.1.5