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

Last change on this file since 8488 was 8488, checked in by gb, 13 years ago

Export stream-input-timeout, stream-output-timeout, with-xxx-timeout
macros.

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