source: branches/working-0711/ccl/lib/ccl-export-syms.lisp @ 11591

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

export compile-user-function

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