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

Last change on this file since 13463 was 13463, checked in by gb, 10 years ago

Export *VECTOR-OUTPUT-STREAM-DEFAULT-INITIAL-ALLOCATION*.

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