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

Last change on this file since 11592 was 11592, checked in by rme, 11 years ago

Export %%get-signed-longlong and %%get-unsigned-longlong.

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