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

Last change on this file since 11964 was 11964, checked in by rme, 10 years ago

Export *SHOW-RESTARTS-ON-BREAK*.

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