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

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

r11450 from trunk: *quit-interrupt-hook*

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