source: branches/working-0711/ccl/lib/ccl-export-syms.lisp @ 11267

Last change on this file since 11267 was 11267, checked in by gz, 13 years ago

Some changes from trunk in suport of other platforms, shouldn't affect anything here

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 20.5 KB
Line 
1;;-*-Mode: LISP; Package: CCL -*-
2;;;
3;;;   Copyright (C) 1994-2001 Digitool, Inc
4;;;   This file is part of OpenMCL. 
5;;;
6;;;   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
7;;;   License , known as the LLGPL and distributed with OpenMCL as the
8;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9;;;   which is distributed with OpenMCL as the file "LGPL".  Where these
10;;;   conflict, the preamble takes precedence. 
11;;;
12;;;   OpenMCL is referenced in the preamble as the "LIBRARY."
13;;;
14;;;   The LLGPL is also available online at
15;;;   http://opensource.franz.com/preamble.html
16
17(in-package "CCL")
18
19(eval-when (:compile-toplevel :load-toplevel :execute)
20  (export                               ;remember "CCL" at end of list
21                                        ;setq %ccl-package-export-syms
22   '(
23     local
24     set-local
25     @
26     *elements-per-buffer*
27     save-application
28     def-load-pointers
29     *save-exit-functions*
30     *restore-lisp-functions*
31     *lisp-cleanup-functions*
32     *lisp-startup-functions*
33     defloadvar
34     defstatic
35     *break-on-warnings*
36                                        ; misc
37     record-source-file
38     definition-source
39     define-definition-type
40     define-definition-name-function
41     define-definition-short-name
42     auxilliary-names
43     find-definitions-for-name
44     find-definitions-of-thing
45     
46     show-documentation
47     %set-toplevel
48     toplevel-loop
49     toplevel-function
50     toplevel
51     *listener-prompt-format*
52     cancel
53     catch-cancel
54     throw-cancel
55     *backtrace-on-break*
56     print-call-history
57     dbg-form
58     *backtrace-print-level*
59     *backtrace-print-length*
60     *backtrace-show-internal-frames*
61     *backtrace-format*
62     *quit-on-eof*
63     macroexpand-all
64     compiler-macroexpand
65     compiler-macroexpand-1
66     uncompile-function
67     abort-break
68     *trace-print-level*
69     *trace-print-length*
70     *trace-bar-frequency*
71     trace-function
72     *ignore-extra-close-parenthesis*
73     advise
74     unadvise
75     advisedp
76     nfunction
77     function-name
78
79     assq
80     bignump
81     bitp
82     constant-symbol-p
83     proclaimed-special-p
84     delq
85     fixnump
86     quit
87     include
88     memq
89     nremove
90                                        ;put
91     ratiop
92     structure-typep
93     structurep
94     type-specifier-p
95     displaced-array-p
96     without-interrupts
97     with-interrupts-enabled
98     true
99     false
100     neq
101     whitespacep
102     *print-structure*
103     *print-simple-vector*
104     *print-simple-bit-vector*
105     *print-string-length*
106     *print-abbreviate-quote*
107     *signal-printing-errors*
108     unignore
109     *warn-if-redefine-kernel*
110     without-duplicate-definition-warnings
111     require-type
112     dovector
113     debugging-function-name
114     *make-package-use-defaults*
115     *autoload-lisp-package*
116     tyo
117     tyi
118     untyi
119     compiled-lexical-closure           ; the type name
120     lsh
121
122     ;; Arguments, image name, etc.
123     *command-line-argument-list*
124     *unprocessed-command-line-arguments*
125     *heap-image-name*
126
127                                        ; The MOP
128     accessor-method-slot-definition
129     add-dependent
130     add-direct-method
131     add-direct-subclass
132     add-method
133     class-default-initargs
134     class-direct-default-initargs
135     class-direct-slots
136     class-direct-subclasses
137     class-direct-superclasses
138     class-finalized-p
139     class-precedence-list
140     class-prototype
141     class-slots
142     compute-applicable-methods
143     compute-applicable-methods-using-classes
144     compute-class-precedence-list
145     compute-default-initargs
146     compute-discriminating-function
147     compute-effective-method
148     compute-effective-slot-definition
149     compute-slots
150     direct-slot-definition-class
151     effective-slot-definition-class
152     ensure-class
153     ensure-class-using-class
154     ensure-generic-function-using-class
155     eql-specializer
156     eql-specializer-object
157     extract-lambda-list
158     extract-specializer-names
159     finalize-inheritance
160     find-method-combination
161     funcallable-standard-instance-access
162     generic-function-argument-precedence-order
163     generic-function-declarations
164     generic-function-lambda-list
165     generic-function-method-class
166     generic-function-method-combination
167     generic-function-methods
168     generic-function-name
169     intern-eql-specializer
170     make-method-lambda
171     map-dependents
172     method-function
173     method-generic-function
174     method-lambda-list
175     method-name
176     method-specializers
177     method-qualifiers
178     slot-definition-allocation
179     slot-definition-initargs
180     slot-definition-initform
181     slot-definition-initfunction
182     slot-definition-name
183     slot-definition-type
184     slot-definition-readers
185     slot-definition-writers
186     slot-definition-location
187     reader-method-class
188     remove-dependent
189     remove-direct-method
190     remove-direct-subclass
191     remove-method
192     set-funcallable-instance-function
193     slot-boundp-using-class
194     slot-makunbound-using-class
195     slot-value-using-class
196     specializer-direct-generic-functions
197     specializer-direct-methods
198     standard-instance-access
199     update-dependent
200     validate-superclass
201     writer-method-class
202     
203     metaobject
204     long-method-combination
205     short-method-combination
206     standard-accessor-method
207     standard-reader-method
208     standard-writer-method
209     specializer
210
211     funcallable-standard-class
212     funcallable-standard-object
213     forward-referenced-class
214     standard-direct-slot-definition
215     standard-effective-slot-definition
216
217     standard-slot-definition
218     slot-definition
219     effective-slot-definition
220     direct-slot-definition
221     
222     clear-specializer-direct-methods-caches
223     *check-call-next-method-with-args*
224     clear-gf-cache
225     clear-all-gf-caches
226     clear-clos-caches
227
228     method-exists-p
229     method-specializers
230     class-own-wrapper
231     specializer-direct-methods
232     specializer-direct-generic-functions
233     copy-instance
234
235     override-one-method-one-arg-dcode
236     optimize-generic-function-dispatching
237
238     ;; Not MOP
239     string-studlify                    ;** DO NOT REMOVE, DO NOT DOCUMENT
240     nstring-studlify                   ;** DO NOT REMOVE, DO NOT DOCUMENT
241
242                                        ; User Options
243     *compile-definitions*
244     *record-source-file*
245     *save-doc-strings*
246     *warn-if-redefine*
247     *break-on-errors* 
248     *save-definitions*
249     *save-local-symbols*
250     *fasl-save-local-symbols*
251     *always-eval-user-defvars*
252
253                                        ;These 3 need to be set by the user in order for the correspondingly named
254                                        ;functions to return something other than "unspecified".
255     *short-site-name*
256     *long-site-name*
257     machine-owner
258
259     init-list-default
260     fset
261
262                                        ; Files.
263     mac-default-directory
264     current-directory
265     directory-pathname-p
266     full-pathname
267     create-file
268     create-directory
269     file-create-date
270     set-file-write-date
271     set-file-create-date
272     copy-file
273     lock-file
274     unlock-file
275     file-locked-p
276     directoryp
277
278
279     *module-search-path*
280     *module-provider-functions*
281     *.lisp-pathname*
282     *.fasl-pathname*
283     *pathname-translations-pathname*
284     *default-external-format*
285     *default-line-termination*
286     pathname-encoding-name
287     with-filename-cstrs
288     get-foreign-namestring
289     fasl-concatenate
290     event-ticks
291     set-event-ticks
292     event-dispatch
293     *ticks-per-second*
294
295     *application*
296     arglist
297     arglist-string
298     arglist-to-stream
299     function-args
300
301
302     get-string-from-user
303     with-terminal-input
304     *request-terminal-input-via-break*
305     add-auto-flush-stream
306     remove-auto-flush-stream
307     select-item-from-list
308
309
310                                        ; Low-level
311     %stack-block
312     %vstack-block
313     %get-byte
314     %get-signed-byte
315     %get-unsigned-byte
316     %get-word
317     %get-signed-word
318     %get-unsigned-word
319     %get-long
320     %get-unsigned-long
321     %get-signed-long
322     %get-fixnum
323     %get-point
324     %get-ptr
325     %get-string
326     %get-cstring
327     %str-from-ptr
328     %get-double-float
329     %get-single-float
330     %inc-ptr
331     %incf-ptr
332     %setf-macptr
333     %null-ptr
334     %null-ptr-p
335     %ptr-eql
336     %ptr-to-int
337     %int-to-ptr
338     %word-to-int
339     %address-of
340     ensure-simple-string
341     %copy-float
342     with-macptrs
343     pointerp
344     macptrp
345     macptr
346     rlet
347     rletz
348     make-record
349     pref
350     rref
351     paref
352     with-cstrs
353     with-encoded-cstrs
354     with-string-vector
355     with-pointer-to-ivector
356     get-encoded-string
357     +null-ptr+
358     free
359     define-entry-point
360     define-callback
361     defcallback
362     ff-call
363     %ff-call
364     %reference-external-entry-point
365     foreign-symbol-entry
366     foreign-symbol-address
367     def-foreign-type
368
369     uvref
370     uvectorp
371     uvsize
372
373     ;;Streams (should be made more complete sometime)
374     input-stream
375     output-stream
376     stream-eofp
377
378     open-file-streams
379     note-open-file-stream
380     remove-open-file-stream
381     clear-open-file-streams
382     stream-line-length
383     string-output-stream
384     truncating-string-stream
385     make-truncating-string-stream
386     stream-rubout-handler
387
388
389                                        ; Tools
390     gc
391     egc
392     egc-enabled-p
393     egc-active-p
394     configure-egc
395     egc-configuration
396     gccounts
397     gctime
398     lisp-heap-gc-threshold
399     use-lisp-heap-gc-threshold
400     set-lisp-heap-gc-threshold
401     gc-retain-pages
402     gc-retaining-pages
403     gc-verbose
404     gc-verbose-p
405     weak-gc-method
406     *trace-max-indent* 
407     *trace-level* 
408     *fasl-save-doc-strings* 
409     *fasl-save-definitions* 
410     *static-cons-chunk*
411     static-cons
412
413     compiler-let
414
415
416     COMPILER-POLICY
417     CURRENT-COMPILER-POLICY
418     CURRENT-FILE-COMPILER-POLICY
419     FIND-MACTYPE
420     NEW-COMPILER-POLICY
421     SET-CURRENT-COMPILER-POLICY
422     SET-CURRENT-FILE-COMPILER-POLICY
423     STANDARD-METHOD-COMBINATION
424     STREAM-DEVICE
425     STREAM-DIRECTION
426     *current-process*
427     PROCESS
428     all-processes
429     process-preset
430     process-reset
431     process-reset-and-enable
432     process-enable
433     process-abort
434     process-kill
435     process-interrupt
436     process-name
437     process-run-function
438     make-process
439     process-suspend-count
440     process-initial-form
441     process-whostate
442     process-priority
443     process-total-run-time
444     process-creation-time
445     clear-process-run-time
446     process-resume
447     process-suspend
448     let-globally
449     process-wait
450     process-wait-with-timeout
451     process-allow-schedule
452     process-kill-issued
453     process-termination-semaphore
454     process-allocation-quantum
455     default-allocation-quantum
456     current-process-allocation-quantum
457     join-process
458
459     *HOST-PAGE-SIZE*
460     
461     make-lock
462     lock-name
463     with-lock-grabbed
464     grab-lock
465     release-lock
466     try-lock
467     lock
468     read-write-lock
469     lock-not-owner
470
471     lock-acquisition-status
472     clear-lock-acquisition-status
473     lock-acquisition
474     make-lock-acquisition
475
476     semaphore-notification-status
477     clear-semaphore-notification-status
478     semaphore-notification
479     make-semaphore-notification
480     
481     make-read-write-lock
482     with-read-lock
483     with-write-lock
484     symbol-value-in-process
485
486     make-semaphore
487     wait-on-semaphore
488     timed-wait-on-semaphore
489     signal-semaphore
490     semaphore
491
492     process-input-wait
493     process-output-wait
494                                        ; termination
495     terminate-when-unreachable
496     terminate
497     drain-termination-queue
498     cancel-terminate-when-unreachable
499     termination-function
500     *enable-automatic-termination*
501
502     get-fpu-mode
503     set-fpu-mode
504
505                                        ; There's more. Like...
506
507     *listener-indent*
508     *error-print-circle*
509     *break-loop-when-uninterruptable*
510
511     application-error
512     application-name
513     application-init-file
514
515     cwd
516
517     ;; Old CLtL2 stuff:
518
519     *applyhook*
520     *evalhook*
521     applyhook
522     augment-environment
523     declaration-information
524     define-declaration
525     define-setf-method
526     evalhook
527     enclose
528     function-information
529     generic-flet
530     generic-labels
531     get-setf-method
532     get-setf-method-multiple-value
533     parse-macro
534     variable-information
535     with-added-methods
536
537     ;; Gray Streams
538     fundamental-stream
539     fundamental-input-stream
540     fundamental-output-stream
541     fundamental-character-stream
542     fundamental-character-input-stream
543     fundamental-character-output-stream
544     fundamental-binary-stream
545     fundamental-binary-input-stream
546     fundamental-binary-output-stream
547
548     stream-read-char
549     stream-unread-char
550     stream-read-char-no-hang
551     stream-peek-char
552     stream-listen
553     stream-read-line
554     stream-clear-input
555
556     stream-write-char
557     stream-line-column
558     stream-start-line-p
559     stream-write-string
560     stream-terpri
561     stream-fresh-line
562     stream-force-output
563     stream-clear-output
564     stream-advance-to-column
565
566     stream-read-byte
567     stream-write-byte
568
569     stream-read-ivector
570     stream-write-ivector
571
572     stream-read-list
573     stream-write-list
574     stream-read-vector
575     stream-write-vector
576
577     stream-input-timeout
578     stream-output-timeout
579     with-input-timeout
580     with-output-timeout
581     stream-deadline
582
583     input-timeout
584     output-timeout
585     communication-deadline-expired
586
587     make-heap-ivector
588     dispose-heap-ivector
589     ;;
590     external
591     external-call
592     open-shared-library
593     close-shared-library
594     shlib
595     external-entry-point
596     use-interface-dir
597     unuse-interface-dir
598     create-interfaces
599     ;;
600     run-program
601     external-process
602     signal-external-process
603     external-process-id
604     external-process-input-stream
605     external-process-output-stream
606     external-process-error-stream
607     external-process-status
608     ;;
609     *altivec-available*
610     altivec-available-p
611     *altivec-lapmacros-maintain-vrsave-p*
612     ;;
613     *alternate-line-terminator*
614     ;;
615     set-user-environment
616     set-development-environment
617     *resident-editor-hook*
618     cpu-count
619     *report-time-function*
620     ;;
621     compile-ccl
622     xcompile-ccl
623     xload-level-0
624     rebuild-ccl
625     update-ccl
626     test-ccl
627     defglobal
628
629     getenv
630     setenv
631
632     external-format
633     make-external-format
634     external-format-character-encoding
635     external-format-line-termination
636     character-encoding
637     define-character-encoding
638     describe-character-encoding
639     describe-character-encodings
640     get-character-encoding
641     lookup-character-encoding
642     *terminal-character-encoding-name*
643     *default-file-character-encoding*
644     *default-socket-character-encoding*
645     ;; Mapped files.
646     map-file-to-ivector
647     map-file-to-octet-vector
648     unmap-ivector
649     unmap-octet-vector
650     ;; Miscellany
651     heap-utilization
652
653     external-process-creation-failure
654
655     ) "CCL"
656   )
657  )
658
659;;; Define a package for MOP extensions.
660(defpackage "OPENMCL-MOP"
661  (:use)
662  (:import-from
663   "CCL"
664   "ACCESSOR-METHOD-SLOT-DEFINITION"
665   "ADD-DEPENDENT"
666   "ADD-DIRECT-METHOD"
667   "ADD-DIRECT-SUBCLASS"
668   "ADD-METHOD"
669   "CLASS-DEFAULT-INITARGS"
670   "CLASS-DIRECT-DEFAULT-INITARGS"
671   "CLASS-DIRECT-SLOTS"
672   "CLASS-DIRECT-SUBCLASSES"
673   "CLASS-DIRECT-SUPERCLASSES"
674   "CLASS-FINALIZED-P"
675   "CLASS-PRECEDENCE-LIST"
676   "CLASS-PROTOTYPE"
677   "CLASS-SLOTS"
678   "COMPUTE-APPLICABLE-METHODS"
679   "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
680   "COMPUTE-CLASS-PRECEDENCE-LIST"
681   "COMPUTE-DEFAULT-INITARGS"
682   "COMPUTE-DISCRIMINATING-FUNCTION"
683   "COMPUTE-EFFECTIVE-METHOD"
684   "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
685   "COMPUTE-SLOTS"
686   "DIRECT-SLOT-DEFINITION-CLASS"
687   "EFFECTIVE-SLOT-DEFINITION-CLASS"
688   "ENSURE-CLASS"
689   "ENSURE-CLASS-USING-CLASS"
690   "ENSURE-GENERIC-FUNCTION-USING-CLASS"
691   "EQL-SPECIALIZER"
692   "EQL-SPECIALIZER-OBJECT"
693   "EXTRACT-LAMBDA-LIST"
694   "EXTRACT-SPECIALIZER-NAMES"
695   "FINALIZE-INHERITANCE"
696   "FIND-METHOD-COMBINATION"
697   "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
698   "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
699   "GENERIC-FUNCTION-DECLARATIONS"
700   "GENERIC-FUNCTION-LAMBDA-LIST"
701   "GENERIC-FUNCTION-METHOD-CLASS"
702   "GENERIC-FUNCTION-METHOD-COMBINATION"
703   "GENERIC-FUNCTION-METHODS"
704   "GENERIC-FUNCTION-NAME"
705   "INTERN-EQL-SPECIALIZER"
706   "MAKE-METHOD-LAMBDA"
707   "MAP-DEPENDENTS"
708   "METHOD-FUNCTION"
709   "METHOD-GENERIC-FUNCTION"
710   "METHOD-LAMBDA-LIST"
711   "METHOD-NAME"
712   "METHOD-SPECIALIZERS"
713   "METHOD-QUALIFIERS"
714   "SLOT-DEFINITION-ALLOCATION"
715   "SLOT-DEFINITION-INITARGS"
716   "SLOT-DEFINITION-INITFORM"
717   "SLOT-DEFINITION-INITFUNCTION"
718   "SLOT-DEFINITION-NAME"
719   "SLOT-DEFINITION-TYPE"
720   "SLOT-DEFINITION-READERS"
721   "SLOT-DEFINITION-WRITERS"
722   "SLOT-DEFINITION-LOCATION"
723   "READER-METHOD-CLASS"
724   "REMOVE-DEPENDENT"
725   "REMOVE-DIRECT-METHOD"
726   "REMOVE-DIRECT-SUBCLASS"
727   "REMOVE-METHOD"
728   "SET-FUNCALLABLE-INSTANCE-FUNCTION"
729   "SLOT-BOUNDP-USING-CLASS"
730   "SLOT-MAKUNBOUND-USING-CLASS"
731   "SLOT-VALUE-USING-CLASS"
732   "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
733   "SPECIALIZER-DIRECT-METHODS"
734   "STANDARD-DIRECT-SLOT-DEFINITION"
735   "STANDARD-EFFECTIVE-SLOT-DEFINITION"
736   "STANDARD-INSTANCE-ACCESS"
737   "UPDATE-DEPENDENT"
738   "VALIDATE-SUPERCLASS"
739   "WRITER-METHOD-CLASS"
740     
741   "METAOBJECT"
742   "LONG-METHOD-COMBINATION"
743   "SHORT-METHOD-COMBINATION"
744   "STANDARD-ACCESSOR-METHOD"
745   "STANDARD-READER-METHOD"
746   "STANDARD-WRITER-METHOD"
747   "SPECIALIZER"
748
749   "FUNCALLABLE-STANDARD-CLASS"
750   "FUNCALLABLE-STANDARD-OBJECT"
751   "FORWARD-REFERENCED-CLASS"
752
753   "CLEAR-SPECIALIZER-DIRECT-METHODS-CACHES"
754   "*CHECK-CALL-NEXT-METHOD-WITH-ARGS*"
755   "CLEAR-GF-CACHE"
756   "CLEAR-ALL-GF-CACHES"
757   "CLEAR-CLOS-CACHES"
758
759   "METHOD-EXISTS-P"
760   "METHOD-SPECIALIZERS"
761   "CLASS-OWN-WRAPPER"
762   "SPECIALIZER-DIRECT-METHODS"
763   "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
764   "COPY-INSTANCE"
765   "STANDARD-SLOT-DEFINITION"
766   "SLOT-DEFINITION"
767   "EFFECTIVE-SLOT-DEFINITION"
768   "DIRECT-SLOT-DEFINITION"
769   )
770  (:export
771   "ACCESSOR-METHOD-SLOT-DEFINITION"
772   "ADD-DEPENDENT"
773   "ADD-DIRECT-METHOD"
774   "ADD-DIRECT-SUBCLASS"
775   "ADD-METHOD"
776   "CLASS-DEFAULT-INITARGS"
777   "CLASS-DIRECT-DEFAULT-INITARGS"
778   "CLASS-DIRECT-SLOTS"
779   "CLASS-DIRECT-SUBCLASSES"
780   "CLASS-DIRECT-SUPERCLASSES"
781   "CLASS-FINALIZED-P"
782   "CLASS-PRECEDENCE-LIST"
783   "CLASS-PROTOTYPE"
784   "CLASS-SLOTS"
785   "COMPUTE-APPLICABLE-METHODS"
786   "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
787   "COMPUTE-CLASS-PRECEDENCE-LIST"
788   "COMPUTE-DEFAULT-INITARGS"
789   "COMPUTE-DISCRIMINATING-FUNCTION"
790   "COMPUTE-EFFECTIVE-METHOD"
791   "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
792   "COMPUTE-SLOTS"
793   "DIRECT-SLOT-DEFINITION-CLASS"
794   "EFFECTIVE-SLOT-DEFINITION-CLASS"
795   "ENSURE-CLASS"
796   "ENSURE-CLASS-USING-CLASS"
797   "ENSURE-GENERIC-FUNCTION-USING-CLASS"
798   "EQL-SPECIALIZER-OBJECT"
799   "EXTRACT-LAMBDA-LIST"
800   "EXTRACT-SPECIALIZER-NAMES"
801   "FINALIZE-INHERITANCE"
802   "FIND-METHOD-COMBINATION"
803   "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
804   "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
805   "GENERIC-FUNCTION-DECLARATIONS"
806   "GENERIC-FUNCTION-LAMBDA-LIST"
807   "GENERIC-FUNCTION-METHOD-CLASS"
808   "GENERIC-FUNCTION-METHOD-COMBINATION"
809   "GENERIC-FUNCTION-METHODS"
810   "GENERIC-FUNCTION-NAME"
811   "INTERN-EQL-SPECIALIZER"
812   "MAKE-METHOD-LAMBDA"
813   "MAP-DEPENDENTS"
814   "METHOD-FUNCTION"
815   "METHOD-GENERIC-FUNCTION"
816   "METHOD-LAMBDA-LIST"
817   "METHOD-NAME"
818   "METHOD-SPECIALIZERS"
819   "METHOD-QUALIFIERS"
820   "SLOT-DEFINITION-ALLOCATION"
821   "SLOT-DEFINITION-INITARGS"
822   "SLOT-DEFINITION-INITFORM"
823   "SLOT-DEFINITION-INITFUNCTION"
824   "SLOT-DEFINITION-NAME"
825   "SLOT-DEFINITION-TYPE"
826   "SLOT-DEFINITION-READERS"
827   "SLOT-DEFINITION-WRITERS"
828   "SLOT-DEFINITION-LOCATION"
829   "READER-METHOD-CLASS"
830   "REMOVE-DEPENDENT"
831   "REMOVE-DIRECT-METHOD"
832   "REMOVE-DIRECT-SUBCLASS"
833   "REMOVE-METHOD"
834   "SET-FUNCALLABLE-INSTANCE-FUNCTION"
835   "SLOT-BOUNDP-USING-CLASS"
836   "SLOT-MAKUNBOUND-USING-CLASS"
837   "SLOT-VALUE-USING-CLASS"
838   "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
839   "SPECIALIZER-DIRECT-METHODS"
840   "STANDARD-DIRECT-SLOT-DEFINITION"
841   "STANDARD-EFFECTIVE-SLOT-DEFINITION"
842   "STANDARD-INSTANCE-ACCESS"
843   "UPDATE-DEPENDENT"
844   "VALIDATE-SUPERCLASS"
845   "WRITER-METHOD-CLASS"
846     
847   "METAOBJECT"
848   "LONG-METHOD-COMBINATION"
849   "SHORT-METHOD-COMBINATION"
850   "STANDARD-ACCESSOR-METHOD"
851   "STANDARD-READER-METHOD"
852   "STANDARD-WRITER-METHOD"
853   "SPECIALIZER"
854
855   "FUNCALLABLE-STANDARD-CLASS"
856   "FORWARD-REFERENCED-CLASS"
857
858
859   "CLEAR-SPECIALIZER-DIRECT-METHODS-CACHES"
860   "*CHECK-CALL-NEXT-METHOD-WITH-ARGS*"
861   "CLEAR-GF-CACHE"
862   "CLEAR-ALL-GF-CACHES"
863   "CLEAR-CLOS-CACHES"
864
865   "METHOD-EXISTS-P"
866   "METHOD-SPECIALIZERS"
867   "CLASS-OWN-WRAPPER"
868   "SPECIALIZER-DIRECT-METHODS"
869   "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
870   "COPY-INSTANCE"
871   "STANDARD-SLOT-DEFINITION"
872   "SLOT-DEFINITION"
873   "EFFECTIVE-SLOT-DEFINITION"
874   "DIRECT-SLOT-DEFINITION"
875   ))
876
877(unless (eq %lisp-system-fixups% T)
878  (while %lisp-system-fixups%
879    (let* ((fn.source (car %lisp-system-fixups%))
880           (*loading-file-source-file* (cdr fn.source)))
881      (funcall (car fn.source)))
882    (setq %lisp-system-fixups% (cdr %lisp-system-fixups%)))
883  (setq %lisp-system-fixups% T))
884
885
886
887
Note: See TracBrowser for help on using the repository browser.