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

Last change on this file since 12091 was 12091, checked in by gz, 11 years ago

Merge r12090 from trunk

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