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

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

Add CCL:TEST-CCL - runs the gcl test suite (checking it out into ccl:tests;
if necessary). This will print out a bunch of warnings early on (for now),
then sit there for a while (about 3 mins on a MacBook? Pro) and finally
report "No tests failed".

Propagate assorted small fixes from trunk:

r8996 - fix case of spurious defvar warning
r9027 - check arg count before deciding to use builtin-call
r9046 - small fix for ~@:C
r9047 - report a TYPE-ERROR when make-broadcast-stream is given a non-output-stream
r9048 - Make make-file-stream rejected wildcarded pathnames. Various tweaks to make

meta-. work when using pathnames relative to the file system's "current directory".

r9049 - make defclass check for illegal class options
r9052 - Don't constant-fold if arg count is obviously wrong.
r9059 - Try harder to do function calls as function calls when (OPTIMIZE (SAFETY 3))

is in effect.

r9060, r9061 - CTYPE-SUBTYPE: try harder in some cases.
r9068, r9069, r9103, r9104 - PPC2-REF-SYMBOL-VALUE: force boundp checks unless

*ppc2-reckless* (same policy as x86; the per-thread binding lookup is generally
more expensive than boundp trap these days.). Unless skipping boundp check, don't
ignore unused result (so we can error when safety is 3, mostly.)

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