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

Last change on this file since 9602 was 9602, checked in by gz, 14 years ago

toplevel command/inspector tweaks:

  • Export ccl::@
  • add *default-integer-command* to allow support for commands that are integers, used by inspector
  • try to interpret otherwise-unbound/unfbound toplevel expressions as commands
  • TTY-INSPECTOR changes:

-- New command :Q exits call to inspect regardless of current nesting level.
-- :POP now reshows the object being returned to
-- just typing an integer <n> is the same as (:I <n>)
-- refer to CCL:@ in description of :show, just so it's mentioned somewhere.

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