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

Last change on this file since 8973 was 8973, checked in by gz, 11 years ago

Add support for a different backtrace formats with new variable
*BACKTRACE-FORMAT*, which can be :DIRECT or :TRADITIONAL.
:TRADITIONAL is the default. If *BACKTRACE-FORMAT* is :DIRECT,
backtrace shows non-toplevel functions being called directly (not
using FUNCALL), and also has assorted other tweaks, including not
showing frame address values, and explicitly labelling the arg and
locals sections and the pc offset.

Extend ccl:print-call-history with new keyword arguments:

:stream - default *debug-io*
:show-internal-frames - default *backtrace-show-internal-frames*
:print-level - default *backtrace-print-level*
:print-length - default *backtrace-print-length*
:format - default *backtrace-format*

Add CCL::BACKTRACE-AS-LIST, so can at least keep an eye on it. Make
it return the actual lfun when that's not a closure.

  • 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     get-source-files
38     edit-definition
39     edit-definition-p
40     *loading-file-source-file*
41     show-documentation
42     %set-toplevel
43     toplevel-loop
44     toplevel-function
45     toplevel
46     *listener-prompt-format*
47     cancel
48     catch-cancel
49     throw-cancel
50     *backtrace-on-break*
51     print-call-history
52     dbg-form
53     *backtrace-print-level*
54     *backtrace-print-length*
55     *backtrace-show-internal-frames*
56     *backtrace-format*
57     *quit-on-eof*
58     compiler-macroexpand
59     compiler-macroexpand-1
60     uncompile-function
61     abort-break
62     *trace-print-level*
63     *trace-print-length*
64     *trace-bar-frequency*
65     trace-function
66     *ignore-extra-close-parenthesis*
67     advise
68     unadvise
69     advisedp
70     nfunction
71     function-name
72
73     assq
74     bignump
75     bitp
76     constant-symbol-p
77     proclaimed-special-p
78     delq
79     fixnump
80     quit
81     include
82     memq
83     nremove
84                                        ;put
85     ratiop
86     structure-typep
87     structurep
88     type-specifier-p
89     displaced-array-p
90     without-interrupts
91     with-interrupts-enabled
92     true
93     false
94     neq
95     whitespacep
96     *print-structure*
97     *print-simple-vector*
98     *print-simple-bit-vector*
99     *print-string-length*
100     *print-abbreviate-quote*
101     *signal-printing-errors*
102     unignore
103     *warn-if-redefine-kernel*
104     require-type
105     dovector
106     debugging-function-name
107     *make-package-use-defaults*
108     *autoload-lisp-package*
109     tyo
110     tyi
111     untyi
112     compiled-lexical-closure           ; the type name
113     lsh
114
115     ;; Arguments, image name, etc.
116     *command-line-argument-list*
117     *unprocessed-command-line-arguments*
118     *heap-image-name*
119
120                                        ; The MOP
121     accessor-method-slot-definition
122     add-dependent
123     add-direct-method
124     add-direct-subclass
125     add-method
126     class-default-initargs
127     class-direct-default-initargs
128     class-direct-slots
129     class-direct-subclasses
130     class-direct-superclasses
131     class-finalized-p
132     class-precedence-list
133     class-prototype
134     class-slots
135     compute-applicable-methods
136     compute-applicable-methods-using-classes
137     compute-class-precedence-list
138     compute-default-initargs
139     compute-discriminating-function
140     compute-effective-method
141     compute-effective-slot-definition
142     compute-slots
143     direct-slot-definition-class
144     effective-slot-definition-class
145     ensure-class
146     ensure-class-using-class
147     ensure-generic-function-using-class
148     eql-specializer
149     eql-specializer-object
150     extract-lambda-list
151     extract-specializer-names
152     finalize-inheritance
153     find-method-combination
154     funcallable-standard-instance-access
155     generic-function-argument-precedence-order
156     generic-function-declarations
157     generic-function-lambda-list
158     generic-function-method-class
159     generic-function-method-combination
160     generic-function-methods
161     generic-function-name
162     intern-eql-specializer
163     make-method-lambda
164     map-dependents
165     method-function
166     method-generic-function
167     method-lambda-list
168     method-name
169     method-specializers
170     method-qualifiers
171     slot-definition-allocation
172     slot-definition-initargs
173     slot-definition-initform
174     slot-definition-initfunction
175     slot-definition-name
176     slot-definition-type
177     slot-definition-readers
178     slot-definition-writers
179     slot-definition-location
180     reader-method-class
181     remove-dependent
182     remove-direct-method
183     remove-direct-subclass
184     remove-method
185     set-funcallable-instance-function
186     slot-boundp-using-class
187     slot-makunbound-using-class
188     slot-value-using-class
189     specializer-direct-generic-functions
190     specializer-direct-methods
191     standard-instance-access
192     update-dependent
193     validate-superclass
194     writer-method-class
195     
196     metaobject
197     long-method-combination
198     short-method-combination
199     standard-accessor-method
200     standard-reader-method
201     standard-writer-method
202     specializer
203
204     funcallable-standard-class
205     funcallable-standard-object
206     forward-referenced-class
207     standard-direct-slot-definition
208     standard-effective-slot-definition
209
210     standard-slot-definition
211     slot-definition
212     effective-slot-definition
213     direct-slot-definition
214     
215     clear-specializer-direct-methods-caches
216     *check-call-next-method-with-args*
217     clear-gf-cache
218     clear-all-gf-caches
219     clear-clos-caches
220
221     method-exists-p
222     method-specializers
223     class-own-wrapper
224     specializer-direct-methods
225     specializer-direct-generic-functions
226     copy-instance
227
228     override-one-method-one-arg-dcode
229     optimize-generic-function-dispatching
230
231     ;; Not MOP
232     string-studlify                    ;** DO NOT REMOVE, DO NOT DOCUMENT
233     nstring-studlify                   ;** DO NOT REMOVE, DO NOT DOCUMENT
234
235                                        ; User Options
236     *compile-definitions*
237     *record-source-file*
238     *save-doc-strings*
239     *warn-if-redefine*
240     *break-on-errors* 
241     *save-definitions*
242     *save-local-symbols*
243     *fasl-save-local-symbols*
244     *always-eval-user-defvars*
245
246                                        ;These 3 need to be set by the user in order for the correspondingly named
247                                        ;functions to return something other than "unspecified".
248     *short-site-name*
249     *long-site-name*
250     machine-owner
251
252     init-list-default
253     fset
254
255                                        ; Files.
256     mac-default-directory
257     current-directory
258     directory-pathname-p
259     full-pathname
260     create-file
261     create-directory
262     file-create-date
263     set-file-write-date
264     set-file-create-date
265     copy-file
266     lock-file
267     unlock-file
268     file-locked-p
269     directoryp
270
271     *module-search-path*
272     *module-provider-functions*
273     *.lisp-pathname*
274     *.fasl-pathname*
275     *pathname-translations-pathname*
276     *default-external-format*
277     *default-line-termination*
278     fasl-concatenate
279     event-ticks
280     set-event-ticks
281     event-dispatch
282     *ticks-per-second*
283
284     *application*
285     arglist
286     arglist-string
287     arglist-to-stream
288     function-args
289
290
291     get-string-from-user
292     with-terminal-input
293     *request-terminal-input-via-break*
294     add-auto-flush-stream
295     remove-auto-flush-stream
296     select-item-from-list
297
298
299                                        ; Low-level
300     %stack-block
301     %vstack-block
302     %get-byte
303     %get-signed-byte
304     %get-unsigned-byte
305     %get-word
306     %get-signed-word
307     %get-unsigned-word
308     %get-long
309     %get-unsigned-long
310     %get-signed-long
311     %get-fixnum
312     %get-point
313     %get-ptr
314     %get-string
315     %get-cstring
316     %str-from-ptr
317     %get-double-float
318     %get-single-float
319     %inc-ptr
320     %incf-ptr
321     %setf-macptr
322     %null-ptr
323     %null-ptr-p
324     %ptr-eql
325     %ptr-to-int
326     %int-to-ptr
327     %word-to-int
328     %address-of
329     ensure-simple-string
330     %copy-float
331     with-macptrs
332     pointerp
333     macptrp
334     macptr
335     rlet
336     rletz
337     make-record
338     pref
339     rref
340     paref
341     with-cstrs
342     with-encoded-cstrs
343     with-string-vector
344     with-pointer-to-ivector
345     +null-ptr+
346     free
347     define-entry-point
348     define-callback
349     defcallback
350     ff-call
351     %ff-call
352     %reference-external-entry-point
353     foreign-symbol-entry
354     foreign-symbol-address
355     def-foreign-type
356
357     uvref
358     uvectorp
359     uvsize
360
361     ;;Streams (should be made more complete sometime)
362     input-stream
363     output-stream
364     stream-eofp
365
366     open-file-streams
367     note-open-file-stream
368     remove-open-file-stream
369     clear-open-file-streams
370     stream-line-length
371     string-output-stream
372     truncating-string-stream
373     make-truncating-string-stream
374     stream-rubout-handler
375
376
377                                        ; Tools
378     gc
379     egc
380     egc-enabled-p
381     egc-active-p
382     configure-egc
383     egc-configuration
384     gccounts
385     gctime
386     lisp-heap-gc-threshold
387     use-lisp-heap-gc-threshold
388     set-lisp-heap-gc-threshold
389     gc-retain-pages
390     gc-retaining-pages
391     gc-verbose
392     gc-verbose-p
393     weak-gc-method
394     *trace-max-indent* 
395     *trace-level* 
396     *fasl-save-doc-strings* 
397     *fasl-save-definitions* 
398     *static-cons-chunk*
399     static-cons
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     defglobal
614
615     getenv
616     setenv
617
618     external-format
619     make-external-format
620     external-format-character-encoding
621     external-format-line-termination
622     character-encoding
623     define-character-encoding
624     describe-character-encoding
625     describe-character-encodings
626     get-character-encoding
627     lookup-character-encoding
628     *terminal-character-encoding-name*
629     *default-file-character-encoding*
630     *default-socket-character-encoding*
631     ;; Mapped files.
632     map-file-to-ivector
633     map-file-to-octet-vector
634     unmap-ivector
635     unmap-octet-vector
636     ;; Miscellany
637     heap-utilization
638                                     
639     ) "CCL"
640   )
641  )
642
643;;; Define a package for MOP extensions.
644(defpackage "OPENMCL-MOP"
645  (:use)
646  (:import-from
647   "CCL"
648   "ACCESSOR-METHOD-SLOT-DEFINITION"
649   "ADD-DEPENDENT"
650   "ADD-DIRECT-METHOD"
651   "ADD-DIRECT-SUBCLASS"
652   "ADD-METHOD"
653   "CLASS-DEFAULT-INITARGS"
654   "CLASS-DIRECT-DEFAULT-INITARGS"
655   "CLASS-DIRECT-SLOTS"
656   "CLASS-DIRECT-SUBCLASSES"
657   "CLASS-DIRECT-SUPERCLASSES"
658   "CLASS-FINALIZED-P"
659   "CLASS-PRECEDENCE-LIST"
660   "CLASS-PROTOTYPE"
661   "CLASS-SLOTS"
662   "COMPUTE-APPLICABLE-METHODS"
663   "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
664   "COMPUTE-CLASS-PRECEDENCE-LIST"
665   "COMPUTE-DEFAULT-INITARGS"
666   "COMPUTE-DISCRIMINATING-FUNCTION"
667   "COMPUTE-EFFECTIVE-METHOD"
668   "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
669   "COMPUTE-SLOTS"
670   "DIRECT-SLOT-DEFINITION-CLASS"
671   "EFFECTIVE-SLOT-DEFINITION-CLASS"
672   "ENSURE-CLASS"
673   "ENSURE-CLASS-USING-CLASS"
674   "ENSURE-GENERIC-FUNCTION-USING-CLASS"
675   "EQL-SPECIALIZER"
676   "EQL-SPECIALIZER-OBJECT"
677   "EXTRACT-LAMBDA-LIST"
678   "EXTRACT-SPECIALIZER-NAMES"
679   "FINALIZE-INHERITANCE"
680   "FIND-METHOD-COMBINATION"
681   "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
682   "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
683   "GENERIC-FUNCTION-DECLARATIONS"
684   "GENERIC-FUNCTION-LAMBDA-LIST"
685   "GENERIC-FUNCTION-METHOD-CLASS"
686   "GENERIC-FUNCTION-METHOD-COMBINATION"
687   "GENERIC-FUNCTION-METHODS"
688   "GENERIC-FUNCTION-NAME"
689   "INTERN-EQL-SPECIALIZER"
690   "MAKE-METHOD-LAMBDA"
691   "MAP-DEPENDENTS"
692   "METHOD-FUNCTION"
693   "METHOD-GENERIC-FUNCTION"
694   "METHOD-LAMBDA-LIST"
695   "METHOD-NAME"
696   "METHOD-SPECIALIZERS"
697   "METHOD-QUALIFIERS"
698   "SLOT-DEFINITION-ALLOCATION"
699   "SLOT-DEFINITION-INITARGS"
700   "SLOT-DEFINITION-INITFORM"
701   "SLOT-DEFINITION-INITFUNCTION"
702   "SLOT-DEFINITION-NAME"
703   "SLOT-DEFINITION-TYPE"
704   "SLOT-DEFINITION-READERS"
705   "SLOT-DEFINITION-WRITERS"
706   "SLOT-DEFINITION-LOCATION"
707   "READER-METHOD-CLASS"
708   "REMOVE-DEPENDENT"
709   "REMOVE-DIRECT-METHOD"
710   "REMOVE-DIRECT-SUBCLASS"
711   "REMOVE-METHOD"
712   "SET-FUNCALLABLE-INSTANCE-FUNCTION"
713   "SLOT-BOUNDP-USING-CLASS"
714   "SLOT-MAKUNBOUND-USING-CLASS"
715   "SLOT-VALUE-USING-CLASS"
716   "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
717   "SPECIALIZER-DIRECT-METHODS"
718   "STANDARD-DIRECT-SLOT-DEFINITION"
719   "STANDARD-EFFECTIVE-SLOT-DEFINITION"
720   "STANDARD-INSTANCE-ACCESS"
721   "UPDATE-DEPENDENT"
722   "VALIDATE-SUPERCLASS"
723   "WRITER-METHOD-CLASS"
724     
725   "METAOBJECT"
726   "LONG-METHOD-COMBINATION"
727   "SHORT-METHOD-COMBINATION"
728   "STANDARD-ACCESSOR-METHOD"
729   "STANDARD-READER-METHOD"
730   "STANDARD-WRITER-METHOD"
731   "SPECIALIZER"
732
733   "FUNCALLABLE-STANDARD-CLASS"
734   "FUNCALLABLE-STANDARD-OBJECT"
735   "FORWARD-REFERENCED-CLASS"
736
737   "CLEAR-SPECIALIZER-DIRECT-METHODS-CACHES"
738   "*CHECK-CALL-NEXT-METHOD-WITH-ARGS*"
739   "CLEAR-GF-CACHE"
740   "CLEAR-ALL-GF-CACHES"
741   "CLEAR-CLOS-CACHES"
742
743   "METHOD-EXISTS-P"
744   "METHOD-SPECIALIZERS"
745   "CLASS-OWN-WRAPPER"
746   "SPECIALIZER-DIRECT-METHODS"
747   "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
748   "COPY-INSTANCE"
749   "STANDARD-SLOT-DEFINITION"
750   "SLOT-DEFINITION"
751   "EFFECTIVE-SLOT-DEFINITION"
752   "DIRECT-SLOT-DEFINITION"
753   )
754  (:export
755   "ACCESSOR-METHOD-SLOT-DEFINITION"
756   "ADD-DEPENDENT"
757   "ADD-DIRECT-METHOD"
758   "ADD-DIRECT-SUBCLASS"
759   "ADD-METHOD"
760   "CLASS-DEFAULT-INITARGS"
761   "CLASS-DIRECT-DEFAULT-INITARGS"
762   "CLASS-DIRECT-SLOTS"
763   "CLASS-DIRECT-SUBCLASSES"
764   "CLASS-DIRECT-SUPERCLASSES"
765   "CLASS-FINALIZED-P"
766   "CLASS-PRECEDENCE-LIST"
767   "CLASS-PROTOTYPE"
768   "CLASS-SLOTS"
769   "COMPUTE-APPLICABLE-METHODS"
770   "COMPUTE-APPLICABLE-METHODS-USING-CLASSES"
771   "COMPUTE-CLASS-PRECEDENCE-LIST"
772   "COMPUTE-DEFAULT-INITARGS"
773   "COMPUTE-DISCRIMINATING-FUNCTION"
774   "COMPUTE-EFFECTIVE-METHOD"
775   "COMPUTE-EFFECTIVE-SLOT-DEFINITION"
776   "COMPUTE-SLOTS"
777   "DIRECT-SLOT-DEFINITION-CLASS"
778   "EFFECTIVE-SLOT-DEFINITION-CLASS"
779   "ENSURE-CLASS"
780   "ENSURE-CLASS-USING-CLASS"
781   "ENSURE-GENERIC-FUNCTION-USING-CLASS"
782   "EQL-SPECIALIZER-OBJECT"
783   "EXTRACT-LAMBDA-LIST"
784   "EXTRACT-SPECIALIZER-NAMES"
785   "FINALIZE-INHERITANCE"
786   "FIND-METHOD-COMBINATION"
787   "FUNCALLABLE-STANDARD-INSTANCE-ACCESS"
788   "GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER"
789   "GENERIC-FUNCTION-DECLARATIONS"
790   "GENERIC-FUNCTION-LAMBDA-LIST"
791   "GENERIC-FUNCTION-METHOD-CLASS"
792   "GENERIC-FUNCTION-METHOD-COMBINATION"
793   "GENERIC-FUNCTION-METHODS"
794   "GENERIC-FUNCTION-NAME"
795   "INTERN-EQL-SPECIALIZER"
796   "MAKE-METHOD-LAMBDA"
797   "MAP-DEPENDENTS"
798   "METHOD-FUNCTION"
799   "METHOD-GENERIC-FUNCTION"
800   "METHOD-LAMBDA-LIST"
801   "METHOD-NAME"
802   "METHOD-SPECIALIZERS"
803   "METHOD-QUALIFIERS"
804   "SLOT-DEFINITION-ALLOCATION"
805   "SLOT-DEFINITION-INITARGS"
806   "SLOT-DEFINITION-INITFORM"
807   "SLOT-DEFINITION-INITFUNCTION"
808   "SLOT-DEFINITION-NAME"
809   "SLOT-DEFINITION-TYPE"
810   "SLOT-DEFINITION-READERS"
811   "SLOT-DEFINITION-WRITERS"
812   "SLOT-DEFINITION-LOCATION"
813   "READER-METHOD-CLASS"
814   "REMOVE-DEPENDENT"
815   "REMOVE-DIRECT-METHOD"
816   "REMOVE-DIRECT-SUBCLASS"
817   "REMOVE-METHOD"
818   "SET-FUNCALLABLE-INSTANCE-FUNCTION"
819   "SLOT-BOUNDP-USING-CLASS"
820   "SLOT-MAKUNBOUND-USING-CLASS"
821   "SLOT-VALUE-USING-CLASS"
822   "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
823   "SPECIALIZER-DIRECT-METHODS"
824   "STANDARD-DIRECT-SLOT-DEFINITION"
825   "STANDARD-EFFECTIVE-SLOT-DEFINITION"
826   "STANDARD-INSTANCE-ACCESS"
827   "UPDATE-DEPENDENT"
828   "VALIDATE-SUPERCLASS"
829   "WRITER-METHOD-CLASS"
830     
831   "METAOBJECT"
832   "LONG-METHOD-COMBINATION"
833   "SHORT-METHOD-COMBINATION"
834   "STANDARD-ACCESSOR-METHOD"
835   "STANDARD-READER-METHOD"
836   "STANDARD-WRITER-METHOD"
837   "SPECIALIZER"
838
839   "FUNCALLABLE-STANDARD-CLASS"
840   "FORWARD-REFERENCED-CLASS"
841
842
843   "CLEAR-SPECIALIZER-DIRECT-METHODS-CACHES"
844   "*CHECK-CALL-NEXT-METHOD-WITH-ARGS*"
845   "CLEAR-GF-CACHE"
846   "CLEAR-ALL-GF-CACHES"
847   "CLEAR-CLOS-CACHES"
848
849   "METHOD-EXISTS-P"
850   "METHOD-SPECIALIZERS"
851   "CLASS-OWN-WRAPPER"
852   "SPECIALIZER-DIRECT-METHODS"
853   "SPECIALIZER-DIRECT-GENERIC-FUNCTIONS"
854   "COPY-INSTANCE"
855   "STANDARD-SLOT-DEFINITION"
856   "SLOT-DEFINITION"
857   "EFFECTIVE-SLOT-DEFINITION"
858   "DIRECT-SLOT-DEFINITION"
859   ))
860
861(unless (eq %lisp-system-fixups% T)
862  (while %lisp-system-fixups%
863    (let* ((fn.source (car %lisp-system-fixups%))
864           (*loading-file-source-file* (cdr fn.source)))
865      (funcall (car fn.source)))
866    (setq %lisp-system-fixups% (cdr %lisp-system-fixups%)))
867  (setq %lisp-system-fixups% T))
868
869
870
871
Note: See TracBrowser for help on using the repository browser.