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

Last change on this file since 14423 was 14359, checked in by rme, 9 years ago

Export DELETE-DIRECTORY.

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