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

Last change on this file since 11130 was 11130, checked in by gz, 12 years ago

Export @, macroexpand-all, get-encoded-string, external-process-creation-failure

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