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

Last change on this file since 12368 was 12368, checked in by rme, 10 years ago

Export and document string-size-in-octets, encode-string-to-octets,
count-characters-in-octet-vector, and decode-string-from-octets.

(ticket:532)

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