source: branches/qres/ccl/lib/ccl-export-syms.lisp @ 14308

Last change on this file since 14308 was 14049, checked in by gz, 9 years ago

Misc tweaks and fixes from trunk (r13550,r13560,r13568,r13569,r13581,r13583,r13633-13636,r13647,r13648,r13657-r13659,r13675,r13678,r13688,r13743,r13744,r13769,r13773,r13782,r13813,r13814,r13869,r13870,r13873,r13901,r13930,r13943,r13946,r13954,r13961,r13974,r13975,r13978,r13990,r14010,r14012,r14020,r14028-r14030)

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