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

Last change on this file since 10942 was 10942, checked in by gz, 12 years ago

Propagate r10938:r10941 (duplicate definition warnings) to trunk

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