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

Last change on this file since 12463 was 12463, checked in by gz, 10 years ago

Some changes in support of Slime:

Implement CCL:COMPUTE-APPLICABLE-METHODS-USING-CLASSES

Add a :stream-args argument to CCL:ACCEPT-CONNECTION, for one-time initargs for the stream being created. E.g. (accept-connection listener :stream-args `(:external-format ,external-format-for-this-connection-only))

Add CCL:TEMP-PATHNAME

Bind new var CCL:*TOP-ERROR-FRAME* to the error frame in break loops, to make it available to debugger/break hooks.

Add CCL:*SELECT-INTERACTIVE-PROCESS-HOOK* and call it to select the process to use for handling SIGINT.

Add CCL:*MERGE-COMPILER-WARNINGS* to control whether warnings with the same format string and args but different source locations should be merged.

Export CCL:COMPILER-WARNING, CCL:STYLE-WARNING, CCL:COMPILER-WARNING-FUNCTION-NAME and CCL:COMPILER-WARNING-SOURCE-NOTE.

Create a CCL:COMPILER-WARNING-SOURCE-NOTE even if not otherwise saving source locations, just using the fasl file and toplevel stream position, but taking into account compile-file-original-truename and compiler-file-original-buffer-offset. Get rid of stream-position and file-name slots in compiler warnings.

Export CCL:REPORT-COMPILER-WARNING, and make it accept a :SHORT keyword arg to skip the textual representation of the warning location.

Export CCL:NAME-OF, and make it return the fully qualified name for methods, return object for eql-specializer

Make CCL:FIND-DEFINITION-SOURCES handle xref-entries.

Export CCL:SETF-FUNCTION-SPEC-NAME, make it explicitly ignore the long-form setf method case.

Export the basic inspector API from the inspector package.

Export EQL-SPECIALIZER and SLOT-DEFINITION-DOCUMENTATION from OPENMCL-MOP

Refactor things a bit in backtrace code, define and export an API for examining backtraces:

CCL:MAP-CALL-FRAMES
CCL:FRAME-FUNCTION
CCL:FRAME-SUPPLIED-ARGUMENTS
CCL:FRAME-NAMED-VARIABLES

other misc new exports:

CCL:DEFINITION-TYPE
CCL;CALLER-FUNCTIONS
CCL:SLOT-DEFINITION-DOCUMENTATION
CCL:*SAVE-ARGLIST-INFO*
CCL:NATIVE-TRANSLATED-NAMESTRING
CCL:NATIVE-TO-PATHNAME
CCL:HASH-TABLE-WEAK-P
CCL;PROCESS-SERIAL-NUMBER
CCL:PROCESS-EXHAUSTED-P
CCL:APPLY-IN-FRAME

Other misc tweaks:

Make cbreak-loop use the break message when given a uselessly empty condition.

Use setf-function-name-p more consistently

Make find-applicable-methods handle eql specializers better.

Try to more consistently recognize lists of the form (:method ...) as method names.

Add xref-entry-full-name (which wasn't needed in the end)

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