source: branches/1.1/ccl/lib/ccl-export-syms.lisp @ 8697

Last change on this file since 8697 was 8697, checked in by gb, 14 years ago

Export FREEZE.

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