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

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

Merge source location and code coverage implementation from the trunk. Some of the effects include:

  • make source notes take up less space
  • for code coverage, don't use with-code-coverage in pass2, therefore less impact on produced code.
  • accept method-function's in source location lookup
  • fix some cases that caused function source notes to not get recorded
  • record source files if source locations recording is not on.
  • record source locations in compile-time eval-when's.
  • better tracking of source notes through file compilation in some cases.
  • restore *fasl-eof-forms* support.
  • export a source-note API instead of converting to plists
  • only count emitted notes in cover coverage form totals
  • code coverage now more often has the source note for the whole definition.

Added :CCL-1.4 to *features*, to allow swank to be conditionalized for these changes (which will be part of CCL's 1.4 release)

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