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

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

Add ccl:*break-hook*; Also make c signal a specific condition class, ccl:interrupt-signal-condition

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