source: release/1.3/source/lib/ccl-export-syms.lisp @ 11934

Last change on this file since 11934 was 11934, checked in by gb, 11 years ago

Export REPL-FUNCTION-NAME, not REPL-FUNCTION.

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