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