source: trunk/source/lib/ccl-export-syms.lisp @ 8775

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

Propagate TRACE extensions from r8742 to trunk. Add doc as well.

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