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

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

Backport compiler source location changes from trunk, mostly reorg and move file-compiler stuff out of the compiler, but also a fix to record a source note for inner functions

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