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

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

Export GET-ENCODED-STRING.

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