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

Last change on this file since 7330 was 7330, checked in by wws, 13 years ago

(join-process (p process) &key default)

Waits for process p to quit. Returns the values returned by it initial
function if it quits normally. If killed, returns default if
specified, or signals an error otherwise.
Patterned after SBCL's join-thread function.

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