2 # SOME DESCRIPTIVE TITLE
4 # FIRST AUTHOR <EMAIL@ADDRESS>, YEAR
9 "Project-Id-Version: CMUCL 20b\n"
10 "Report-Msgid-Bugs-To: \n"
11 "PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\n"
12 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
13 "Language-Team: LANGUAGE <LL@li.org>\n"
16 "Content-Type: text/plain; charset=UTF-8\n"
17 "Content-Transfer-Encoding: 8bit\n"
19 #: src/code/struct.lisp
20 msgid "The size of a stream in-buffer."
21 msgstr "스트림 인 버퍼의 크기."
23 #: src/pcl/cpl.lisp src/pcl/dfun.lisp src/pcl/vector.lisp src/pcl/boot.lisp
24 #: src/pcl/cache.lisp src/pcl/fngen.lisp src/pcl/defs.lisp src/pcl/info.lisp
25 #: src/pcl/defsys.lisp src/compiler/byte-comp.lisp src/compiler/eval-comp.lisp
26 #: src/compiler/generic/new-genesis.lisp src/compiler/generic/core.lisp
27 #: src/compiler/dump.lisp src/compiler/dyncount.lisp src/compiler/xref.lisp
28 #: src/compiler/srctran.lisp src/compiler/ir1util.lisp src/compiler/main.lisp
29 #: src/compiler/knownfun.lisp src/compiler/new-assem.lisp
30 #: src/compiler/disassem.lisp src/compiler/meta-vmdef.lisp
31 #: src/compiler/vop.lisp src/compiler/ctype.lisp src/compiler/node.lisp
32 #: src/compiler/sset.lisp src/compiler/backend.lisp
33 #: src/compiler/generic/vm-macs.lisp src/compiler/macros.lisp
34 #: src/code/intl.lisp src/compiler/globaldb.lisp src/code/defstruct.lisp
35 #: src/code/remote.lisp src/code/wire.lisp src/code/internet.lisp
36 #: src/code/loop.lisp src/code/run-program.lisp src/code/parse-time.lisp
37 #: src/code/profile.lisp src/code/ntrace.lisp src/code/rand-mt19937.lisp
38 #: src/code/debug.lisp src/code/debug-int.lisp src/code/debug-info.lisp
39 #: src/code/eval.lisp src/code/filesys.lisp src/code/pathname.lisp
40 #: src/code/fd-stream.lisp src/code/extfmts.lisp src/code/serve-event.lisp
41 #: src/code/reader.lisp src/code/package.lisp src/code/format.lisp
42 #: src/code/pprint.lisp src/code/stream.lisp src/code/room.lisp
43 #: src/code/dfixnum.lisp src/code/commandline.lisp src/code/unidata.lisp
44 #: src/compiler/proclaim.lisp src/code/hash-new.lisp src/code/byte-interp.lisp
45 #: src/code/c-call.lisp src/code/alieneval.lisp src/code/type.lisp
46 #: src/code/class.lisp src/code/typedefs.lisp src/code/error.lisp
47 #: src/code/fwrappers.lisp src/code/struct.lisp
48 msgid "Class not yet defined: ~S"
49 msgstr "분류명 정의되지 않음 : ~S"
51 #: src/code/sysmacs.lisp
52 msgid "Register the feature as having influenced the CMUCL build process."
53 msgstr "CMUCL 구축 과정에 영향을 주는 속성으로 입력."
55 #: src/code/sysmacs.lisp
57 "Register the feature as having influenced the CMUCL build process,\n"
58 "and also the CMUCL C runtime."
59 msgstr "CMUCL 구축 과정과 CMUCL C 런타임에 영향을 주는 속성으로 입력."
61 #: src/code/sysmacs.lisp
63 "Given any Array, binds Data-Var to the array's data vector and Start-Var "
65 " End-Var to the start and end of the designated portion of the data "
67 " Svalue and Evalue are any start and end specified to the original "
69 " and are factored into the bindings of Start-Var and End-Var. Offset-Var "
71 " the cumulative offset of all displacements encountered, and does not\n"
75 #: src/code/sysmacs.lisp
76 msgid "Executes the forms in the body without doing a garbage collection."
79 #: src/code/kernel.lisp
81 "Return the 24 bits of data in the header of object X, which must be an\n"
82 " other-pointer object."
85 #: src/code/kernel.lisp
87 "Sets the 24 bits of data in the header of object X (which must be an\n"
88 " other-pointer object) to VAL."
91 #: src/code/kernel.lisp
93 "Returns the length of the closure X. This is one more than the number\n"
94 " of variables closed over."
97 #: src/code/kernel.lisp
98 msgid "Returns the three-bit lowtag for the object X."
101 #: src/code/kernel.lisp
102 msgid "Returns the 8-bit header type for the object X."
105 #: src/code/kernel.lisp
107 "Return a System-Area-Pointer pointing to the data for the vector X, which\n"
111 #: src/code/kernel.lisp
112 msgid "Return a System-Area-Pointer pointing to the end of the binding stack."
115 #: src/code/kernel.lisp
117 "Returns a System-Area-Pointer pointing to the next free work of the current\n"
121 #: src/code/kernel.lisp
122 msgid "Return a System-Area-Pointer pointing to the end of the control stack."
125 #: src/code/kernel.lisp
126 msgid "Return the header typecode for FUNCTION. Can be set with SETF."
129 #: src/code/kernel.lisp
130 msgid "Extracts the arglist from the function header FUNC."
133 #: src/code/kernel.lisp
134 msgid "Extracts the name from the function header FUNC."
137 #: src/code/kernel.lisp
138 msgid "Extracts the type from the function header FUNC."
141 #: src/code/kernel.lisp
142 msgid "Extracts the function from CLOSURE."
145 #: src/code/kernel.lisp
147 "Return the length of VECTOR. There is no reason to use this, 'cause\n"
148 " (length (the vector foo)) is the same."
151 #: src/code/kernel.lisp
152 msgid "Return the SXHASH for the simple-string STRING."
155 #: src/code/kernel.lisp
157 "Return the SXHASH for the first LENGTH characters of the simple-string\n"
161 #: src/code/kernel.lisp
162 msgid "Extract the INDEXth slot from CLOSURE."
165 #: src/code/kernel.lisp
167 "Allocate a unboxed, simple vector with type code TYPE, length LENGTH, and\n"
168 " WORDS words long. Note: it is your responsibility to assure that the\n"
169 " relation between LENGTH and WORDS is correct."
172 #: src/code/kernel.lisp
173 msgid "Allocate an array header with type code TYPE and rank RANK."
176 #: src/code/kernel.lisp
177 msgid "Return a SAP pointing to the instructions part of CODE-OBJ."
180 #: src/code/kernel.lisp
182 "Extract the INDEXth element from the header of CODE-OBJ. Can be set with\n"
186 #: src/code/format.lisp src/code/print.lisp src/code/irrat-dd.lisp
187 #: src/code/irrat.lisp src/code/float.lisp src/code/numbers.lisp
188 #: src/code/kernel.lisp
189 msgid "Argument ~A is not a ~S: ~S."
192 #: src/code/lispinit.lisp
194 "Holds a list of symbols that describe features provided by the\n"
198 #: src/code/lispinit.lisp
199 msgid "Features affecting the runtime"
202 #: src/code/lispinit.lisp
203 msgid "The fixnum closest in value to positive infinity."
206 #: src/code/lispinit.lisp
207 msgid "The fixnum closest in value to negative infinity."
210 #: src/code/lispinit.lisp
212 "When (typep condition *break-on-signals*) is true, then calls to SIGNAL "
214 " enter the debugger prior to signalling that condition."
217 #: src/code/lispinit.lisp
219 "Invokes the signal facility on a condition formed from datum and arguments.\n"
220 " If the condition is not handled, nil is returned. If\n"
221 " (TYPEP condition *BREAK-ON-SIGNALS*) is true, the debugger is invoked "
223 " any signalling is done."
226 #: src/code/lispinit.lisp
227 msgid "~A~%Break entered because of *break-on-signals* (now NIL.)"
230 #: src/code/lispinit.lisp
231 msgid "Ignore the additional arguments."
234 #: src/code/lispinit.lisp
236 "You may not supply additional arguments ~\n"
237 "\t\t\t\t when giving ~S to ~S."
240 #: src/code/lispinit.lisp
241 msgid "Bad argument to ~S: ~S"
244 #: src/code/lispinit.lisp
246 "Invokes the signal facility on a condition formed from datum and arguments.\n"
247 " If the condition is not handled, the debugger is invoked."
250 #: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
254 #: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
255 msgid " nested errors. "
258 #: src/pcl/dfun.lisp src/code/interr.lisp src/code/lispinit.lisp
259 msgid "KERNEL:*MAXIMUM-ERROR-DEPTH* exceeded."
262 #: src/code/lispinit.lisp
264 "Prints a message and invokes the debugger without allowing any possibility\n"
265 " of condition handling occurring."
268 #: src/code/lispinit.lisp
269 msgid "Return from BREAK."
272 #: src/code/lispinit.lisp
274 "Warns about a situation by signalling a condition formed by datum and\n"
275 " arguments. While the condition is being signaled, a muffle-warning "
277 " exists that causes WARN to immediately return nil."
280 #: src/code/lispinit.lisp
281 msgid "a warning condition"
284 #: src/code/lispinit.lisp
285 msgid "Skip warning."
288 #: src/code/lispinit.lisp
289 msgid "~&~@<Warning: ~3i~:_~A~:>~%"
292 #: src/code/lispinit.lisp
294 "Invokes the signal facility on a condition formed from datum and arguments.\n"
295 " If the condition is not handled, the debugger is invoked. This function\n"
296 " is just like error, except that the condition type defaults to the type\n"
297 " simple-program-error, instead of program-error."
300 #: src/code/lispinit.lisp
301 msgid "Gives the world a shove and hopes it spins."
304 #: src/code/lispinit.lisp
305 msgid "Functions to be invoked during cleanup at Lisp exit."
308 #: src/code/lispinit.lisp
310 "Terminates the current Lisp. Things are cleaned up unless Recklessly-P is\n"
314 #: src/code/lispinit.lisp
316 "This function causes execution to be suspended for N seconds. N may\n"
317 " be any non-negative, non-complex number."
320 #: src/code/lispinit.lisp
322 "Zero the unused portion of the control stack so that old objects are not\n"
323 " kept alive because of uninitialized stack variables."
326 #: src/code/lispinit.lisp
328 "Holds a list of all the values returned by the most recent top-level EVAL."
331 #: src/code/lispinit.lisp
332 msgid "Gets the previous value of / when a new value is computed."
335 #: src/code/lispinit.lisp
336 msgid "Gets the previous value of // when a new value is computed."
339 #: src/code/lispinit.lisp
340 msgid "Holds the value of the most recent top-level EVAL."
343 #: src/code/lispinit.lisp
344 msgid "Gets the previous value of * when a new value is computed."
347 #: src/code/lispinit.lisp
348 msgid "Gets the previous value of ** when a new value is computed."
351 #: src/code/lispinit.lisp
352 msgid "Holds the value of the most recent top-level READ."
355 #: src/code/lispinit.lisp
356 msgid "Gets the previous value of + when a new value is read."
359 #: src/code/lispinit.lisp
360 msgid "Gets the previous value of ++ when a new value is read."
363 #: src/code/lispinit.lisp
364 msgid "Holds the form curently being evaluated."
367 #: src/code/lispinit.lisp
369 "The top-level prompt string. This also may be a function of no arguments\n"
370 " that returns a simple-string."
373 #: src/code/lispinit.lisp
375 "True if we are within the Top-Level-Catcher. This is used by interrupt\n"
376 " handlers to see whether it is o.k. to throw."
379 #: src/code/lispinit.lisp
381 "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, +"
383 " +, ///, //, /, and -."
386 #: src/code/lispinit.lisp
387 msgid "Go on with * set to NIL."
390 #: src/code/lispinit.lisp
391 msgid "EVAL returned an unbound marker."
394 #: src/code/lispinit.lisp
396 "How many pages to reserve from the total heap space so we can handle\n"
400 #: src/code/lispinit.lisp
401 msgid "Top-level READ-EVAL-PRINT loop. Do not call this."
404 #: src/code/lispinit.lisp
406 "~&Received EOF on *standard-input*, ~\n"
407 "\t\t\t\t\tswitching to *terminal-io*.~%"
410 #: src/code/lispinit.lisp
411 msgid "~&Received more than ~D EOFs; Aborting.~%"
414 #: src/code/lispinit.lisp
415 msgid "~&Received EOF.~%"
418 #: src/code/lispinit.lisp
419 msgid "Return to Top-Level."
424 "~@<The evaluator was called to evaluate a form in a macroexpansion ~\n"
425 " environment constructed by the PCL portable code walker. These ~\n"
426 " environments are only useful for macroexpansion, they cannot be ~\n"
427 " used for evaluation. ~\n"
428 " This error should never occur when using PCL. ~\n"
429 " This most likely source of this error is a program which tries to "
431 " to use the PCL portable code walker to build its own evaluator.~@:>"
435 msgid "~@<~S is not a recognized variable declaration.~@:>"
439 msgid "~@<Can't get template for ~S.~@:>"
444 "~@<~S is a special form, not defined in the CommonLisp ~\n"
445 "\t\t manual. This code walker doesn't know how to walk it. ~\n"
446 "\t\t Define a template for this special form and try again.~@:>"
451 "~@<While handling repeat: ~\n"
452 " Ran into stop while still in repeat template.~@:>"
457 "~@<Encountered declare ~S in a place where a ~\n"
458 " declare was not expected.~@:>"
462 msgid "~@<Can't understand something in the arglist ~S.~@:>"
467 "~@<In the form ~S: ~\n"
468 " IF only accepts three arguments, you are using ~D. ~\n"
469 " It is true that some Common Lisps support this, but "
471 " it is not truly legal Common Lisp. For now, this "
473 " walker is interpreting the extra arguments as extra "
475 " Even if this is what you intended, you should fix "
476 "your source code.~@:>"
479 #: src/code/fwrappers.lisp
481 "A funcallable instance used to implement fwrappers.\n"
482 " The CONSTRUCTOR slot is a function defined with DEFINE-FWRAPPER.\n"
483 " This function returns an instance closure closing over an \n"
484 " fwrapper object, which is installed as the funcallable-instance\n"
485 " function of the fwrapper object."
488 #: src/code/fwrappers.lisp
489 msgid "Print-function for struct FWRAPPER."
492 #: src/code/fwrappers.lisp
493 msgid "Return FUN if it is an fwrapper or nil if it isn't."
496 #: src/code/fwrappers.lisp
498 "Evaluate BODY with VAR bound to consecutive fwrappers of\n"
499 " FDEFN. Return RESULT at the end."
502 #: src/code/fwrappers.lisp
503 msgid "Return tha last encapsulation of FDEFN or NIL if none."
506 #: src/code/fwrappers.lisp
508 "Prepend encapsulation F to the definition of FUNCTION-NAME.\n"
509 " Signal an error if FUNCTION-NAME is an undefined function."
512 #: src/code/fwrappers.lisp
513 msgid "Remove fwrapper F from the definition of FUNCTION-NAME."
516 #: src/code/fwrappers.lisp
518 "Return a list of all fwrappers of FUNCTION-NAME, ordered\n"
519 " from outermost to innermost."
522 #: src/code/fwrappers.lisp
524 "Set FUNCTION-NAMES's fwrappers to elements of the list\n"
525 " FWRAPPERS, which is assumed to be ordered from outermost to\n"
526 " innermost. FWRAPPERS null means remove all fwrappers."
529 #: src/code/fwrappers.lisp
531 "Wrap the function named FUNCTION-NAME in an fwrapper of type TYPE,\n"
532 " created by calling CONSTRUCTOR. CONSTRUCTOR is a function\n"
533 " defined with DEFINE-FWRAPPER, or the name of such a function.\n"
534 " Return the fwrapper created. USER-DATA is arbitrary data to be\n"
535 " associated with the fwrapper. It is accessible in wrapper\n"
536 " functions defined with DEFINE-FWRAPPER as (FWRAPPER-USER-DATA\n"
540 #: src/code/fwrappers.lisp
542 "Remove fwrappers from the function named FUNCTION-NAME.\n"
543 " If TYPE is supplied, remove fwrappers whose type is equal to TYPE.\n"
544 " If TEST is supplied, remove fwrappers satisfying TEST.\n"
545 " If both are not specified, remove all fwrappers."
548 #: src/code/fwrappers.lisp
550 "Update the funcallable instance function of fwrapper F from its\n"
554 #: src/code/fwrappers.lisp
556 "Update fwrapper function definitions of FUNCTION-NAME.\n"
557 " If TYPE is supplied, update fwrappers whose type is equal to TYPE.\n"
558 " If TEST is supplied, update fwrappers satisfying TEST."
561 #: src/code/fwrappers.lisp
563 "Find an fwrapper of FUNCTION-NAME.\n"
564 " If TYPE is supplied, find an fwrapper whose type is equal to TYPE.\n"
565 " If TEST is supplied, find an fwrapper satisfying TEST."
568 #: src/code/fwrappers.lisp
570 "Like DEFUN, but define a function wrapper.\n"
571 " In BODY, the symbol FWRAPPERS:FWRAPPERS refers to the currently\n"
572 " executing fwrapper. FWRAPPERS:CALL-NEXT-FUNCTION can be used\n"
573 " in BODY to call the next fwrapper or the primary function. When\n"
574 " called with no arguments, CALL-NEXT-FUNCTION invokes the next\n"
575 " function with the original args to the fwrapper, otherwise it\n"
576 " invokes the next function with the supplied args."
579 #: src/code/fwrappers.lisp
580 msgid "Return the expansion of a DEFINE-FWRAPPER."
583 #: src/code/fwrappers.lisp
585 "First value is true if BODY refers to any of the variables in\n"
586 " OPTIONALS, KEYS or REST, which are what KERNEL:PARSE-LAMBDA-LIST\n"
587 " returns. Second value is true if BODY refers to REST."
590 #: src/code/fwrappers.lisp
591 msgid "&MORE not supported in fwrapper lambda lists"
594 #: src/code/fwrappers.lisp
595 msgid "Fwrapper for old-style encapsulations."
598 #: src/code/fwrappers.lisp
599 msgid "This function is deprecated; use fwrappers instead."
602 #: src/code/fdefinition.lisp
604 "Define (NAME ...) to be a valid function name whose syntax is checked\n"
605 " by BODY. In BODY, VAR is bound to an actual function name of the\n"
606 " form (NAME ...) to check. BODY should return two values.\n"
607 " First value true means the function name is valid. Second value\n"
608 " is the name, a symbol, of the function for use in the BLOCK of DEFUNs\n"
609 " and in similar situations."
612 #: src/code/fdefinition.lisp
614 "First value is true if NAME has valid function name syntax.\n"
615 " Second value is the name, a symbol, to use as a block name in DEFUNs\n"
616 " and in similar situations."
619 #: src/code/fdefinition.lisp
621 "Return the fdefn object for NAME. If it doesn't already exist and CREATE\n"
622 " is non-NIL, create a new (unbound) one."
625 #: src/code/fdefinition.lisp
626 msgid "Invalid function name: ~S"
629 #: src/code/fdefinition.lisp
631 "Return the FDEFN of NAME. Signal an error if there is none\n"
632 " or if it's function is null."
635 #: src/code/fdefinition.lisp
637 "Returns the definition for name, including any encapsulations. Settable\n"
641 #: src/code/fdefinition.lisp
643 "Return FUNCTION-NAME's global function definition.\n"
644 " If FUNCTION-NAME is fwrapped, return the primary function definition\n"
645 " stored in the innermost fwrapper."
648 #: src/code/fdefinition.lisp
650 "This holds functions that (SETF FDEFINITION) invokes before storing the\n"
651 " new value. These functions take the function name and the new value."
654 #: src/code/fdefinition.lisp
656 "Set FUNCTION-NAME's global function definition to NEW-VALUE.\n"
657 " If FUNCTION-NAME is fwrapped, set the primary function stored\n"
658 " in the innermost fwrapper."
661 #: src/code/fdefinition.lisp
662 msgid "Return true if name has a global function definition."
665 #: src/code/fdefinition.lisp
666 msgid "Make Name have no global function definition."
669 #: src/code/error.lisp
670 msgid "&rest keyword is ~:[missing~;misplaced~]."
673 #: src/code/error.lisp
675 "Return a list of all the currently active restarts ordered from most\n"
676 " recently established to less recently established. If Condition is\n"
677 " specified, then only restarts associated with Condition (or with no\n"
678 " condition) will be returned."
681 #: src/code/error.lisp
682 msgid "Returns the name of the given restart object."
685 #: src/code/error.lisp
687 "WITH-CONDITION-RESTARTS Condition-Form Restarts-Form Form*\n"
688 " Evaluates the Forms in a dynamic environment where the restarts in the "
690 " Restarts-Form are associated with the condition returned by Condition-"
692 " This allows FIND-RESTART, etc., to recognize restarts that are not "
694 " to the error currently being debugged. See also RESTART-CASE."
697 #: src/code/error.lisp
699 "Executes forms in a dynamic context where the given restart bindings are\n"
700 " in effect. Users probably want to use RESTART-CASE. When clauses "
702 " the same restart name, FIND-RESTART will find the first such clause."
705 #: src/code/error.lisp
707 "Unnamed restart does not have a ~\n"
708 "\t\t\t\t\treport function -- ~S"
711 #: src/code/error.lisp
713 "Returns the first restart named name. If name is a restart, it is returned\n"
714 " if it is currently active. If no such restart is found, nil is "
716 " It is an error to supply nil as a name. If Condition is specified and "
718 " NIL, then only restarts associated with that condition (or with no\n"
719 " condition) will be returned."
722 #: src/code/error.lisp
724 "Calls the function associated with the given restart, passing any given\n"
725 " arguments. If the argument restart is not a restart or a currently "
727 " non-nil restart name, then a control-error is signalled."
730 #: src/code/error.lisp
731 msgid "Restart ~S is not active."
734 #: src/code/error.lisp
736 "Calls the function associated with the given restart, prompting for any\n"
737 " necessary arguments. If the argument restart is not a restart or a\n"
738 " currently active non-nil restart name, then a control-error is signalled."
741 #: src/code/error.lisp
743 "(RESTART-CASE form\n"
744 " {(case-name arg-list {keyword value}* body)}*)\n"
745 " The form is evaluated in a dynamic context where the clauses have "
747 " meanings as points to which control may be transferred (see INVOKE-"
749 " When clauses contain the same case-name, FIND-RESTART will find the "
751 " such clause. If Expression is a call to SIGNAL, ERROR, CERROR or WARN "
753 " macroexpands into such) then the signalled condition will be associated "
758 #: src/code/error.lisp
760 "(WITH-SIMPLE-RESTART (restart-name format-string format-arguments)\n"
762 " If restart-name is not invoked, then all values returned by forms are\n"
763 " returned. If control is transferred to this restart, it immediately\n"
764 " returns the values nil and t."
767 #: src/code/error.lisp
768 msgid "Condition ~S was signalled."
771 #: src/code/error.lisp
772 msgid "No REPORT? Shouldn't happen!"
775 #: src/code/error.lisp
776 msgid "Condition slot is not bound: ~S"
779 #: src/code/error.lisp
780 msgid "Slot ~S of ~S missing."
783 #: src/code/error.lisp
784 msgid "Make an instance of a condition object using the specified initargs."
787 #: src/code/error.lisp
788 msgid "~S is not a condition class."
791 #: src/code/error.lisp
792 msgid "Bad thing for class arg:~% ~S"
795 #: src/code/error.lisp
796 msgid "Condition already names a declaration: ~S."
799 #: src/code/error.lisp
801 "DEFINE-CONDITION Name (Parent-Type*) (Slot-Spec*) Option*\n"
802 " Define NAME as a condition type. This new type inherits slots and its\n"
803 " report function from the specified PARENT-TYPEs. A slot spec is either\n"
804 " a symbol denoting the name of the slot, or a list of the form:\n"
806 " (slot-name {slot-option value}*)\n"
808 " where slot-option is one of :READER, :WRITER, :ACCESSOR, :ALLOCATION,\n"
809 " :INITARG, :INITFORM, :DOCUMENTATION, and :TYPE.\n"
811 " Each overall option is of the form\n"
813 " (option-name {value}*)\n"
815 " where option-name is one of :DEFAULT-INITARGS, :DOCUMENTATION,\n"
818 " The :REPORT option is peculiar to DEFINE-CONDITION. Its argument is "
820 " a string or a two-argument lambda or function name. If a function, the\n"
821 " function is called with the condition and stream to report the "
823 " If a string, the string is printed.\n"
825 " Condition types are classes, but (as allowed by ANSI and not as described "
827 " CLtL2) are neither STANDARD-OBJECTs nor STRUCTURE-OBJECTs. WITH-SLOTS "
829 " SLOT-VALUE may not be used on condition objects."
832 #: src/code/error.lisp
833 msgid "Keyword slot name indicates probable syntax error:~% ~S"
836 #: src/code/error.lisp
837 msgid "Malformed condition slot spec:~% ~S."
840 #: src/code/error.lisp
841 msgid "More than one :INITFORM in:~% ~S"
844 #: src/code/error.lisp
845 msgid "More than one slot :DOCUMENTATION in~% ~s"
848 #: src/code/error.lisp
849 msgid "Slot :DOCUMENTATION is not a string in~% ~s"
852 #: src/code/error.lisp
853 msgid "Unknown slot option:~% ~S"
856 #: src/code/error.lisp
857 msgid "Bad option:~% ~S"
860 #: src/compiler/new-assem.lisp src/code/error.lisp
861 msgid "Unknown option: ~S"
864 #: src/code/error.lisp
866 "(HANDLER-BIND ( {(type handler)}* ) body)\n"
867 " Executes body in a dynamic context where the given handler bindings are\n"
868 " in effect. Each handler must take the condition being signalled as an\n"
869 " argument. The bindings are searched first to last in the event of a\n"
870 " signalled condition."
873 #: src/code/error.lisp
874 msgid "Ill-formed handler bindings."
877 #: src/code/error.lisp
878 msgid "~&~@<Error in function ~S: ~3i~:_~?~:>"
881 #: src/code/error.lisp
882 msgid "Control stack overflow"
885 #: src/code/error.lisp
886 msgid "Heap (dynamic space) overflow"
889 #: src/code/error.lisp
890 msgid "~@<Type-error in ~S: ~3i~:_~S is not of type ~S~:>"
893 #: src/code/error.lisp
895 "Layout-invalid error in ~S:~@\n"
896 "\t\t Type test of class ~S was passed obsolete instance:~% ~S"
899 #: src/code/error.lisp
900 msgid "~@<~S fell through ~S expression. ~:_Wanted one of ~:S.~:>"
903 #: src/code/error.lisp
904 msgid "End-of-File on ~S"
907 #: src/code/error.lisp
908 msgid "~&~@<File-error in function ~S: ~3i~:_~?~:>"
911 #: src/code/error.lisp
912 msgid "Error in ~S: the variable ~S is unbound."
915 #: src/code/error.lisp
916 msgid "Error in ~S: the function ~S is undefined."
919 #: src/code/error.lisp
921 "~@<Destructive function ~S called on ~\n"
922 " constant data.~@:>"
925 #: src/code/error.lisp
926 msgid "Arithmetic error ~S signalled."
929 #: src/code/error.lisp
930 msgid "~%Operation was ~S, operands ~S."
933 #: src/code/error.lisp
935 "(HANDLER-CASE form\n"
936 " { (type ([var]) body) }* )\n"
937 " Executes form in a context with handlers established for the condition\n"
938 " types. A peculiar property allows type to be :no-error. If such a "
940 " occurs, and form returns normally, all its values are passed to this "
942 " as if by MULTIPLE-VALUE-CALL. The :no-error clause accepts more than "
944 " var specification."
947 #: src/code/error.lisp
949 "Executes forms after establishing a handler for all error conditions that\n"
950 " returns from this form nil and the condition signalled."
953 #: src/code/error.lisp
954 msgid "Found an \"abort\" restart that failed to transfer control dynamically."
957 #: src/code/error.lisp
959 "Transfers control to a restart named abort, signalling a control-error if\n"
963 #: src/code/error.lisp
965 "Transfers control to a restart named muffle-warning, signalling a\n"
966 " control-error if none exists."
969 #: src/code/error.lisp
971 "Transfer control to a restart named continue, returning nil if none exists."
974 #: src/code/error.lisp
976 "Transfer control and value to a restart named store-value, returning nil if\n"
980 #: src/code/error.lisp
982 "Transfer control and value to a restart named use-value, returning nil if\n"
986 #: src/code/typedefs.lisp
987 msgid "Forms that must happen before top level forms are run."
990 #: src/code/typedefs.lisp
991 msgid "Can't cold-load-init other forms along with an eval-when."
994 #: src/code/typedefs.lisp
995 msgid "~S is not a defined type class."
998 #: src/code/typedefs.lisp
999 msgid "Missing type method for ~S"
1002 #: src/code/typedefs.lisp
1003 msgid "~S is not a defined type class method."
1006 #: src/code/typedefs.lisp
1007 msgid "DEFINE-TYPE-METHOD (Class-Name Method-Name+) Lambda-List Form*"
1010 #: src/code/typedefs.lisp
1011 msgid "DEFINE-TYPE-CLASS Name [Inherits]"
1014 #: src/code/class.lisp
1015 msgid "Layout for ~S~@[, Invalid=~S~]"
1018 #: src/code/class.lisp
1019 msgid "The inclusive upper bound on LAYOUT-HASH values."
1022 #: src/code/class.lisp
1024 "Layout depth conflict: ~S~% ~\n"
1025 "\t\t (~S collides at ~S with ~S)~%"
1028 #: src/code/class.lisp
1029 msgid "Can't use anonymous or undefined class as constant:~% ~S"
1032 #: src/code/class.lisp
1033 msgid "~:[<anonymous>~;~:*~S~]~@[ (~(~A~))~]"
1036 #: src/code/class.lisp
1038 "Return the class with the specified Name. If ERRORP is false, then NIL is\n"
1039 " returned when no such class exists."
1042 #: src/code/class.lisp
1043 msgid "Class not yet defined:~% ~S"
1046 #: src/code/class.lisp
1047 msgid "Illegal to redefine standard type ~S."
1050 #: src/code/class.lisp
1051 msgid "Changing meta-class of ~S from ~S to ~S."
1054 #: src/code/class.lisp
1055 msgid "Redefining DEFTYPE type to be a class: ~S."
1058 #: src/code/class.lisp
1060 "Return the class of the supplied object, which may be any Lisp object, not\n"
1061 " just a CLOS STANDARD-OBJECT."
1064 #: src/code/class.lisp
1065 msgid "Modifing ~(~A~) class ~S; making it writable."
1068 #: src/code/class.lisp
1069 msgid "Subclassing sealed class ~S; unsealing it."
1072 #: src/code/class.lisp
1074 "Change in the inheritance structure of class ~S~% ~\n"
1075 "\t\t between the ~A definition and the ~A definition."
1078 #: src/code/class.lisp
1080 "Change in instance length of class ~S:~% ~\n"
1081 "\t\t ~A length: ~D~% ~\n"
1082 "\t\t ~A length: ~D"
1085 #: src/code/class.lisp
1087 "In class ~S:~% ~\n"
1088 "\t\t ~:(~A~) definition of superclass ~S incompatible with~% ~\n"
1089 "\t\t ~A definition."
1092 #: src/code/class.lisp
1094 "Change in superclasses of class ~S:~% ~\n"
1095 "\t\t ~A superclasses: ~S~% ~\n"
1096 "\t\t ~A superclasses: ~S"
1099 #: src/code/class.lisp
1101 "Loading a reference to class ~S when the compile~\n"
1102 "\t\t ~% time definition was incompatible with the current ~\n"
1106 #: src/code/class.lisp
1107 msgid "Invalidate current definition."
1110 #: src/code/class.lisp
1111 msgid "Smash current layout, preserving old code."
1114 #: src/code/class.lisp
1115 msgid "Ignore the incompatibility, leave class alone."
1118 #: src/code/class.lisp
1119 msgid "New definition of ~S must be loaded eventually."
1122 #: src/code/class.lisp
1124 "Any old ~S instances will be in a bad way.~@\n"
1125 "\t\t I hope you know what you're doing..."
1128 #: src/code/class.lisp
1130 "Assuming the current definition of ~S is correct, and~@\n"
1131 "\t\t that the loaded code doesn't care about the ~\n"
1132 "\t\t incompatibility."
1135 #: src/code/class.lisp
1136 msgid "Topological sort failed due to constraint on ~S."
1139 #: src/code/class.lisp
1140 msgid "Something strange with forward layout for ~S:~% ~S"
1143 #: src/code/type.lisp
1145 "*Use-Implementation-Types* is a semi-public flag which determines how\n"
1146 " restrictive we are in determining type membership. If two types are the\n"
1147 " same in the implementation, then we will consider them them the same "
1149 " this switch is on. When it is off, we try to be as restrictive as the\n"
1150 " language allows, allowing us to detect more errors. Currently, this "
1152 " affects array types."
1155 #: src/code/type.lisp
1156 msgid "Subtypep is illegal on this type:~% ~S"
1159 #: src/code/type.lisp
1160 msgid "&Aux in a FUNCTION or VALUES type: ~S."
1163 #: src/code/type.lisp
1164 msgid "Keyword type description is not a two-list: ~S."
1167 #: src/code/type.lisp
1168 msgid "Repeated keyword ~S in lambda list: ~S."
1171 #: src/code/type.lisp
1173 "The maximum length of a union of integer types before we take a\n"
1174 " short cut and return a simpler union."
1177 #: src/code/type.lisp
1178 msgid "Bad thing to be a type specifier: ~S."
1181 #: src/code/type.lisp
1182 msgid "VALUES type illegal in this context:~% ~S"
1185 #: src/code/type.lisp
1186 msgid "Bad N specified for MOD type specifier: ~S."
1189 #: src/code/type.lisp
1190 msgid "Bad size specified for SIGNED-BYTE type specifier: ~S."
1193 #: src/code/type.lisp
1194 msgid "Bad size specified for UNSIGNED-BYTE type specifier: ~S."
1197 #: src/code/type.lisp
1198 msgid "Bad float format: ~S."
1201 #: src/code/type.lisp
1202 msgid "Arrays can't have a negative number of dimensions: ~D."
1205 #: src/code/type.lisp
1206 msgid "Array type has too many dimensions: ~S."
1209 #: src/code/type.lisp
1210 msgid "Bad dimension in array type: ~S."
1213 #: src/code/type.lisp
1214 msgid "Array dimensions is not a list, integer or *:~% ~S"
1217 #: src/code/type.lisp
1218 msgid "Type of characters that aren't base-char's. None in CMU CL."
1221 #: src/code/type.lisp
1222 msgid "Type corresponding to the charaters required by the standard."
1225 #: src/code/type.lisp
1226 msgid "Type for any keyword symbol."
1229 #: src/code/type.lisp
1230 msgid "&KEY or &ALLOW-OTHER-KEYS in values type: ~s"
1233 #: src/code/type.lisp
1234 msgid "The SATISFIES predicate name is not a symbol: ~S"
1237 #: src/code/type.lisp
1238 msgid "Weird CONS type ~S"
1241 #: src/code/type.lisp
1242 msgid "The component type for COMPLEX is not numeric: ~S"
1245 #: src/code/type.lisp
1246 msgid "The component type for COMPLEX is not real: ~S"
1249 #: src/code/type.lisp
1251 "The component type for COMPLEX (EQL X) ~\n"
1255 #: src/code/type.lisp
1257 "~@<(known bug #145): The type ~S is too hairy to be \n"
1258 " used for a COMPLEX component.~:@>"
1261 #: src/code/type.lisp
1262 msgid "Bound is not *, a ~A or a list of a ~A: ~S"
1265 #: src/compiler/generic/vm-type.lisp
1266 msgid "~S isn't an integer type?"
1269 #: src/code/pred.lisp
1270 msgid "Return T if OBJECT is an array-header-p and NIL otherwise."
1273 #: src/code/pred.lisp
1274 msgid "Return T if OBJECT is an arrayp and NIL otherwise."
1277 #: src/code/pred.lisp
1278 msgid "Return T if OBJECT is an atom and NIL otherwise."
1281 #: src/code/pred.lisp
1282 msgid "Return T if OBJECT is a base-char-p and NIL otherwise."
1285 #: src/code/pred.lisp
1286 msgid "Return T if OBJECT is a bignump and NIL otherwise."
1289 #: src/code/pred.lisp
1290 msgid "Return T if OBJECT is a bit-vector-p and NIL otherwise."
1293 #: src/code/pred.lisp
1294 msgid "Return T if OBJECT is a characterp and NIL otherwise."
1297 #: src/code/pred.lisp
1298 msgid "Return T if OBJECT is a code-component-p and NIL otherwise."
1301 #: src/code/pred.lisp
1302 msgid "Return T if OBJECT is a consp and NIL otherwise."
1305 #: src/code/pred.lisp
1306 msgid "Return T if OBJECT is a compiled-function-p and NIL otherwise."
1309 #: src/code/pred.lisp
1310 msgid "Return T if OBJECT is a complexp and NIL otherwise."
1313 #: src/code/pred.lisp
1314 msgid "Return T if OBJECT is a complex-double-float-p and NIL otherwise."
1317 #: src/code/pred.lisp
1318 msgid "Return T if OBJECT is a complex-float-p and NIL otherwise."
1321 #: src/code/pred.lisp
1323 "Return T if OBJECT is a complex-double-double-float-p and NIL otherwise."
1326 #: src/code/pred.lisp
1327 msgid "Return T if OBJECT is a complex-rational-p and NIL otherwise."
1330 #: src/code/pred.lisp
1331 msgid "Return T if OBJECT is a complex-single-float-p and NIL otherwise."
1334 #: src/code/pred.lisp
1335 msgid "Return T if OBJECT is a double-double-float-p and NIL otherwise."
1338 #: src/code/pred.lisp
1339 msgid "Return T if OBJECT is a double-float-p and NIL otherwise."
1342 #: src/code/pred.lisp
1343 msgid "Return T if OBJECT is a fdefn-p and NIL otherwise."
1346 #: src/code/pred.lisp
1347 msgid "Return T if OBJECT is a fixnump and NIL otherwise."
1350 #: src/code/pred.lisp
1351 msgid "Return T if OBJECT is a floatp and NIL otherwise."
1354 #: src/code/pred.lisp
1355 msgid "Return T if OBJECT is a functionp and NIL otherwise."
1358 #: src/code/pred.lisp
1359 msgid "Return T if OBJECT is an integerp and NIL otherwise."
1362 #: src/code/pred.lisp
1363 msgid "Return T if OBJECT is a listp and NIL otherwise."
1366 #: src/code/pred.lisp
1367 msgid "Return T if OBJECT is a long-float-p and NIL otherwise."
1370 #: src/code/pred.lisp
1371 msgid "Return T if OBJECT is a lra-p and NIL otherwise."
1374 #: src/code/pred.lisp
1375 msgid "Return T if OBJECT is a not and NIL otherwise."
1378 #: src/code/pred.lisp
1379 msgid "Return T if OBJECT is a null and NIL otherwise."
1382 #: src/code/pred.lisp
1383 msgid "Return T if OBJECT is a numberp and NIL otherwise."
1386 #: src/code/pred.lisp
1387 msgid "Return T if OBJECT is a rationalp and NIL otherwise."
1390 #: src/code/pred.lisp
1391 msgid "Return T if OBJECT is a ratiop and NIL otherwise."
1394 #: src/code/pred.lisp
1395 msgid "Return T if OBJECT is a realp and NIL otherwise."
1398 #: src/code/pred.lisp
1399 msgid "Return T if OBJECT is a scavenger-hook-p and NIL otherwise."
1402 #: src/code/pred.lisp
1403 msgid "Return T if OBJECT is a short-float-p and NIL otherwise."
1406 #: src/code/pred.lisp
1407 msgid "Return T if OBJECT is a simple-array-p and NIL otherwise."
1410 #: src/code/pred.lisp
1411 msgid "Return T if OBJECT is a simple-bit-vector-p and NIL otherwise."
1414 #: src/code/pred.lisp
1415 msgid "Return T if OBJECT is a simple-string-p and NIL otherwise."
1418 #: src/code/pred.lisp
1419 msgid "Return T if OBJECT is a simple-vector-p and NIL otherwise."
1422 #: src/code/pred.lisp
1423 msgid "Return T if OBJECT is a single-float-p and NIL otherwise."
1426 #: src/code/pred.lisp
1427 msgid "Return T if OBJECT is a stringp and NIL otherwise."
1430 #: src/code/pred.lisp
1431 msgid "Return T if OBJECT is a %instancep and NIL otherwise."
1434 #: src/code/pred.lisp
1435 msgid "Return T if OBJECT is a symbolp and NIL otherwise."
1438 #: src/code/pred.lisp
1439 msgid "Return T if OBJECT is a system-area-pointer-p and NIL otherwise."
1442 #: src/code/pred.lisp
1443 msgid "Return T if OBJECT is a weak-pointer-p and NIL otherwise."
1446 #: src/code/pred.lisp
1447 msgid "Return T if OBJECT is a vectorp and NIL otherwise."
1450 #: src/code/pred.lisp
1451 msgid "Return T if OBJECT is an unsigned-byte-32-p and NIL otherwise."
1454 #: src/code/pred.lisp
1455 msgid "Return T if OBJECT is a signed-byte-32-p and NIL otherwise."
1458 #: src/code/pred.lisp
1460 "Return T if OBJECT is a simple-array-unsigned-byte-2-p and NIL otherwise."
1463 #: src/code/pred.lisp
1465 "Return T if OBJECT is a simple-array-unsigned-byte-4-p and NIL otherwise."
1468 #: src/code/pred.lisp
1470 "Return T if OBJECT is a simple-array-unsigned-byte-8-p and NIL otherwise."
1473 #: src/code/pred.lisp
1475 "Return T if OBJECT is a simple-array-unsigned-byte-16-p and NIL otherwise."
1478 #: src/code/pred.lisp
1480 "Return T if OBJECT is a simple-array-unsigned-byte-32-p and NIL otherwise."
1483 #: src/code/pred.lisp
1484 msgid "Return T if OBJECT is a simple-array-signed-byte-8-p and NIL otherwise."
1487 #: src/code/pred.lisp
1489 "Return T if OBJECT is a simple-array-signed-byte-16-p and NIL otherwise."
1492 #: src/code/pred.lisp
1494 "Return T if OBJECT is a simple-array-signed-byte-30-p and NIL otherwise."
1497 #: src/code/pred.lisp
1499 "Return T if OBJECT is a simple-array-signed-byte-32-p and NIL otherwise."
1502 #: src/code/pred.lisp
1503 msgid "Return T if OBJECT is a simple-array-single-float-p and NIL otherwise."
1506 #: src/code/pred.lisp
1507 msgid "Return T if OBJECT is a simple-array-double-float-p and NIL otherwise."
1510 #: src/code/pred.lisp
1512 "Return T if OBJECT is a simple-array-double-double-float-p and NIL otherwise."
1515 #: src/code/pred.lisp
1517 "Return T if OBJECT is a simple-array-complex-single-float-p and NIL "
1521 #: src/code/pred.lisp
1523 "Return T if OBJECT is a simple-array-complex-double-float-p and NIL "
1527 #: src/code/pred.lisp
1529 "Return T if OBJECT is a simple-array-complex-double-double-float-p and NIL "
1533 #: src/code/pred.lisp
1534 msgid "Return the type of OBJECT."
1537 #: src/code/pred.lisp
1539 "Return the element type that will actually be used to implement an array\n"
1540 " with the specifier :ELEMENT-TYPE Spec."
1543 #: src/code/pred.lisp
1545 "Return two values indicating the relationship between type1 and type2:\n"
1546 " T and T: type1 definitely is a subtype of type2.\n"
1547 " NIL and T: type1 definitely is not a subtype of type2.\n"
1548 " NIL and NIL: who knows?"
1551 #: src/code/pred.lisp
1552 msgid "Return T iff OBJECT is of type TYPE."
1555 #: src/code/pred.lisp
1556 msgid "~@<unknown element type in array type: ~2I~_~S~:>"
1559 #: src/code/pred.lisp
1560 msgid "Unknown type specifier: ~S"
1563 #: src/code/pred.lisp
1564 msgid "Invalid type specifier: ~S"
1567 #: src/code/pred.lisp
1568 msgid "Function types are not a legal argument to TYPEP:~% ~S"
1571 #: src/code/pred.lisp
1572 msgid "Class has not yet been defined: ~S"
1575 #: src/code/pred.lisp
1576 msgid "TYPEP on obsolete object (was class ~S)."
1579 #: src/code/pred.lisp
1580 msgid "Class is currently invalid: ~S"
1583 #: src/code/pred.lisp
1584 msgid "Return T if OBJ1 and OBJ2 are the same object, otherwise NIL."
1587 #: src/code/pred.lisp
1589 "Returns T if X and Y are EQL or if they are structured components\n"
1590 " whose elements are EQUAL. Strings and bit-vectors are EQUAL if they\n"
1591 " are the same length and have indentical components. Other arrays must be\n"
1595 #: src/code/pred.lisp
1597 "Just like EQUAL, but more liberal in several respects.\n"
1598 " Numbers may be of different types, as long as the values are identical\n"
1599 " after coercion. Characters may differ in alphabetic case. Vectors and\n"
1600 " arrays must have identical dimensions and EQUALP elements, but may differ\n"
1601 " in their type restriction."
1604 #: src/code/alieneval.lisp
1605 msgid "No alien type class ~S"
1608 #: src/code/alieneval.lisp
1609 msgid "No method ~S"
1612 #: src/code/alieneval.lisp
1614 "Parse the list structure TYPE as an alien type specifier and return\n"
1615 " the resultant alien-type structure."
1618 #: src/code/alieneval.lisp
1619 msgid "Unknown alien type: ~S"
1622 #: src/code/alieneval.lisp
1623 msgid "No translator for primitive alien type ~S?"
1626 #: src/code/alieneval.lisp
1627 msgid "Definition missing for alien type ~S?"
1630 #: src/code/alieneval.lisp
1631 msgid "Attempt to multiple define ~A ~S."
1634 #: src/code/alieneval.lisp
1635 msgid "Attempt to shadow definition of ~A ~S."
1638 #: src/code/alieneval.lisp
1640 "Convert the alien-type structure TYPE back into a list specification of\n"
1644 #: src/code/alieneval.lisp
1645 msgid "Method ~S not defined for ~S"
1648 #: src/code/alieneval.lisp
1650 "Define the alien type NAME to be equivalent to TYPE. Name may be NIL for\n"
1651 " STRUCT and UNION types, in which case the name is taken from the type\n"
1655 #: src/code/alieneval.lisp
1656 msgid "Redefining ~A ~S to be:~% ~S,~%was:~% ~S"
1659 #: src/code/alieneval.lisp
1660 msgid "~S is a built-in alien type."
1663 #: src/code/alieneval.lisp
1664 msgid "Redefining ~S to be:~% ~S,~%was~% ~S"
1667 #: src/code/alieneval.lisp
1668 msgid "Return T iff TYPE1 and TYPE2 describe equivalent alien types."
1671 #: src/code/alieneval.lisp
1673 "Return T iff the alien type TYPE1 is a subtype of TYPE2. Currently, the\n"
1674 " only supported subtype relationships are that any pointer type is a\n"
1675 " subtype of (* t), and any array type's first dimension will match \n"
1676 " (array <eltype> nil ...). Otherwise, the two types have to be\n"
1680 #: src/code/alieneval.lisp
1681 msgid "Return T iff OBJECT is an alien of type TYPE."
1684 #: src/code/alieneval.lisp
1685 msgid "Cannot represent ~S typed aliens."
1688 #: src/code/alieneval.lisp
1689 msgid "Cannot pass aliens of type ~S as arguments to call-out"
1692 #: src/code/alieneval.lisp
1693 msgid "Cannot return aliens of type ~S from call-out"
1696 #: src/code/alieneval.lisp
1697 msgid "Cannot extract ~D bit integers."
1700 #: src/code/alieneval.lisp
1701 msgid "Redefining alien enum ~S"
1704 #: src/code/alieneval.lisp
1705 msgid "Unknown enum type: ~S"
1708 #: src/code/alieneval.lisp
1709 msgid "Empty enum type: ~S"
1712 #: src/code/alieneval.lisp
1713 msgid "An enumeration must contain at least one element."
1716 #: src/code/alieneval.lisp
1717 msgid "Enumeration element ~S is not a keyword."
1720 #: src/code/alieneval.lisp
1721 msgid "Element value ~S is not an integer."
1724 #: src/code/alieneval.lisp
1725 msgid "Element value ~S used more than once."
1728 #: src/code/alieneval.lisp
1729 msgid "Enumeration element ~S used more than once."
1732 #: src/code/alieneval.lisp
1733 msgid "Can't represent enums needing more than 32 bits."
1736 #: src/code/alieneval.lisp
1737 msgid "Cannot deposit aliens of type ~S (unknown size)."
1740 #: src/code/alieneval.lisp
1741 msgid "First dimension is not a non-negative fixnum or NIL: ~S"
1744 #: src/code/alieneval.lisp
1745 msgid "Dimension is not a non-negative fixnum: ~S"
1748 #: src/pcl/env.lisp src/pcl/fixup.lisp src/pcl/methods.lisp src/pcl/cpl.lisp
1749 #: src/pcl/seal.lisp src/pcl/dfun.lisp
1750 #: src/pcl/method-slot-access-optimization.lisp src/pcl/boot.lisp
1751 #: src/pcl/dlisp.lisp src/pcl/cache.lisp src/pcl/defclass.lisp
1752 #: src/pcl/low.lisp src/compiler/disassem.lisp src/code/pathname.lisp
1753 #: src/code/pprint-loop.lisp src/code/pprint.lisp src/code/bignum.lisp
1754 #: src/code/alieneval.lisp
1755 msgid "Required argument missing"
1758 #: src/compiler/aliencomp.lisp src/code/alieneval.lisp
1759 msgid "Unknown size: ~S"
1762 #: src/code/alieneval.lisp
1763 msgid "Unknown alignment: ~S"
1766 #: src/code/alieneval.lisp
1767 msgid "A hash table used to detect cycles while comparing record types."
1770 #: src/code/alieneval.lisp
1772 "Test if TYPE1 and TYPE2 are in the *MATCH-HISTORY*.\n"
1773 "If so return true; otherwise call ALTERNATIVE."
1776 #: src/code/alieneval.lisp
1777 msgid "Cannot use values types here."
1780 #: src/code/alieneval.lisp
1781 msgid "Badly formed alien name."
1784 #: src/code/alieneval.lisp
1786 "Define NAME as an external alien variable of type TYPE. NAME should be\n"
1787 " a list of a string holding the alien name and a symbol to use as the "
1789 " name. If NAME is just a symbol or string, then the other name is "
1791 " from the one supplied."
1794 #: src/code/alieneval.lisp
1796 "Access the alien variable named NAME, assuming it is of type TYPE. This\n"
1800 #: src/code/alieneval.lisp
1802 "Establish some local alien variables. Each BINDING is of the form:\n"
1803 " VAR TYPE [ ALLOCATION ] [ INITIAL-VALUE | EXTERNAL-NAME ]\n"
1804 " ALLOCATION should be one of:\n"
1805 " :LOCAL (the default)\n"
1806 " The alien is allocated on the stack, and has dynamic extent.\n"
1808 " The alien is allocated on the heap, and has infinate extent. The "
1810 " is allocated at load time, so the same piece of memory is used each "
1812 " this form executes.\n"
1814 " No alien is allocated, but VAR is established as a local name for\n"
1815 " the external alien given by EXTERNAL-NAME."
1818 #: src/code/alieneval.lisp
1820 "Return true if X (which must be an Alien pointer) is null, false otherwise."
1823 #: src/code/alieneval.lisp
1825 "Convert the System-Area-Pointer SAP to an Alien of the specified Type (not\n"
1826 " evaluated.) Type must be pointer-like."
1829 #: src/code/alieneval.lisp
1830 msgid "Cannot make aliens of type ~S out of SAPs"
1833 #: src/code/alieneval.lisp
1834 msgid "Return a System-Area-Pointer pointing to Alien's data."
1837 #: src/code/alieneval.lisp
1839 "Allocate an alien of type TYPE and return an alien pointer to it. If SIZE\n"
1840 " is supplied, how it is interpreted depends on TYPE. If TYPE is an array\n"
1841 " type, SIZE is used as the first dimension for the allocated array. If "
1843 " is not an array, then SIZE is the number of elements to allocate. The\n"
1844 " memory is allocated using ``malloc'', so it can be passed to foreign\n"
1845 " functions which use ``free''."
1848 #: src/code/alieneval.lisp
1849 msgid "Size of ~S unknown."
1852 #: src/code/alieneval.lisp
1853 msgid "Alignment of ~S unknown."
1856 #: src/code/alieneval.lisp
1857 msgid "Cannot override the size of zero-dimensional arrays."
1860 #: src/code/alieneval.lisp
1862 "Dispose of the storage pointed to by ALIEN. ALIEN must have been allocated\n"
1863 " by MAKE-ALIEN or ``malloc''."
1866 #: src/code/alieneval.lisp
1867 msgid "No slot named ~S in ~S"
1870 #: src/code/alieneval.lisp
1872 "Extract SLOT from the Alien STRUCT or UNION ALIEN. May be set with SETF."
1875 #: src/code/alieneval.lisp
1876 msgid "Too many indices when derefing ~S: ~D"
1879 #: src/code/alieneval.lisp
1880 msgid "Incorrect number of indices when derefing ~S: ~D"
1883 #: src/code/alieneval.lisp
1885 "De-reference an Alien pointer or array. If an array, the indices are used\n"
1886 " as the indices of the array element to access. If a pointer, one index "
1888 " optionally be specified, giving the equivalent of C pointer arithmetic."
1891 #: src/code/alieneval.lisp
1892 msgid "Something is wrong; local-alien-info not found: ~S"
1895 #: src/code/alieneval.lisp
1896 msgid "~S isn't forced to memory. Something went wrong."
1899 #: src/code/alieneval.lisp
1901 "Return an Alien pointer to the data addressed by Expr, which must be a call\n"
1902 " to SLOT or DEREF, or a reference to an Alien variable."
1905 #: src/code/alieneval.lisp
1906 msgid "~S is not a valid L-value"
1909 #: src/code/alieneval.lisp
1910 msgid "Something is wrong, local-alien-info not found: ~S"
1913 #: src/code/alieneval.lisp
1915 "Convert ALIEN to an Alien of the specified TYPE (not evaluated). Both "
1917 " must be Alien array, pointer or function types."
1920 #: src/code/alieneval.lisp
1921 msgid "~S cannot be cast."
1924 #: src/compiler/aliencomp.lisp src/code/alieneval.lisp
1925 msgid "Cannot cast to alien type ~S"
1928 #: src/code/alieneval.lisp
1930 "Return the size of the alien type TYPE. UNITS specifies the units to\n"
1931 " use and can be either :BITS, :BYTES, or :WORDS."
1934 #: src/code/alieneval.lisp
1935 msgid "Unknown size for alien type ~S."
1938 #: src/code/alieneval.lisp
1940 "Call the foreign function ALIEN with the specified arguments. ALIEN's\n"
1941 " type specifies the argument and result types."
1944 #: src/code/alieneval.lisp
1945 msgid "Wrong number of arguments for ~S~%Expected ~D, got ~D."
1948 #: src/code/alieneval.lisp
1949 msgid "~S is not an alien function."
1952 #: src/code/alieneval.lisp
1954 "Def-Alien-Routine Name Result-Type\n"
1955 " {(Arg-Name Arg-Type [Style])}*\n"
1957 " Define a foreign interface function for the routine with the specified "
1959 " which may be either a string, symbol or list of the form (string symbol).\n"
1960 " Return-Type is the Alien type for the function return value. VOID may be\n"
1961 " used to specify a function with no result.\n"
1963 " The remaining forms specify individual arguments that are passed to the\n"
1964 " routine. Arg-Name is a symbol that names the argument, primarily for\n"
1965 " documentation. Arg-Type is the C-Type of the argument. Style specifies "
1967 " way that the argument is passed.\n"
1970 " An :In argument is simply passed by value. The value to be passed "
1972 " obtained from argument(s) to the interface function. No values are\n"
1973 " returned for :In arguments. This is the default mode.\n"
1976 " The specified argument type must be a pointer to a fixed sized "
1978 " A pointer to a preallocated object is passed to the routine, and "
1980 " the object is accessed on return, with the value being returned "
1982 " the interface function. :OUT and :IN-OUT cannot be used with "
1984 " to arrays, records or functions.\n"
1987 " Similar to :IN, except that the argument values are stored in on\n"
1988 " the stack, and a pointer to the object is passed instead of\n"
1989 " the values themselves.\n"
1992 " A combination of :OUT and :COPY. A pointer to the argument is "
1994 " with the object being initialized from the supplied argument and\n"
1995 " the return value being determined by accessing the object on return."
1998 #: src/code/alieneval.lisp
1999 msgid "Bogus argument style ~S in ~S."
2002 #: src/code/alieneval.lisp
2003 msgid "Can't use :out or :in-out on pointer-like type:~% ~S"
2006 #: src/code/alieneval.lisp
2007 msgid "Vector of all callbacks."
2010 #: src/compiler/tn.lisp src/compiler/main.lisp src/code/describe.lisp
2011 #: src/code/debug-int.lisp src/code/debug-info.lisp
2012 #: src/code/foreign-linkage.lisp src/code/reader.lisp src/code/stream.lisp
2013 #: src/code/hash-new.lisp src/code/array.lisp src/code/alieneval.lisp
2014 msgid "~S is not an array with a fill-pointer."
2017 #: src/code/alieneval.lisp
2018 msgid "Unable to mprotect ~S bytes (~S) at ~S (~S). Callbacks may not work."
2021 #: src/code/alieneval.lisp
2022 msgid "Return the trampoline pointer for the callback NAME."
2025 #: src/code/alieneval.lisp
2028 "Attempt to redefine callback with incompatible return type.\n"
2029 " Old type was: ~A \n"
2033 #: src/code/alieneval.lisp
2036 "Create new trampoline (old trampoline calls old lisp function)."
2039 #: src/code/alieneval.lisp
2040 msgid "Unsupported argument type: ~A"
2043 #: src/code/alieneval.lisp
2044 msgid "Unsupported return type: ~A"
2047 #: src/code/alieneval.lisp
2049 "(defcallback NAME (RETURN-TYPE {(ARG-NAME ARG-TYPE)}*)\n"
2050 " {doc-string} {decls}* {FORM}*)\n"
2052 "Define a function which can be called by foreign code. The pointer\n"
2053 "returned by (callback NAME), when called by foreign code, invokes the\n"
2054 "lisp function. The lisp function expects alien arguments of the\n"
2055 "specified ARG-TYPEs and returns an alien of type RETURN-TYPE.\n"
2057 "If (callback NAME) is already a callback function pointer, its value\n"
2058 "is not changed (though it's arranged that an updated version of the\n"
2059 "lisp callback function will be called). This feature allows for\n"
2060 "incremental redefinition of callback functions."
2063 #: src/code/sap.lisp
2064 msgid "Return T iff the SAP X points to a smaller address then the SAP Y."
2067 #: src/code/sap.lisp
2069 "Return T iff the SAP X points to a smaller or the same address as\n"
2073 #: src/code/sap.lisp
2074 msgid "Return T iff the SAP X points to the same address as the SAP Y."
2077 #: src/code/sap.lisp
2079 "Return T iff the SAP X points to a larger or the same address as\n"
2083 #: src/code/sap.lisp
2084 msgid "Return T iff the SAP X points to a larger address then the SAP Y."
2087 #: src/code/sap.lisp
2088 msgid "Return a new sap OFFSET bytes from SAP."
2091 #: src/code/sap.lisp
2092 msgid "Return the byte offset between SAP1 and SAP2."
2095 #: src/code/sap.lisp
2096 msgid "Converts a System Area Pointer into an integer."
2099 #: src/code/sap.lisp
2100 msgid "Converts an integer into a System Area Pointer."
2103 #: src/code/sap.lisp
2104 msgid "Returns the 8-bit byte at OFFSET bytes from SAP."
2107 #: src/code/sap.lisp
2108 msgid "Returns the 16-bit word at OFFSET bytes from SAP."
2111 #: src/code/sap.lisp
2112 msgid "Returns the 32-bit dualword at OFFSET bytes from SAP."
2115 #: src/code/sap.lisp
2116 msgid "Returns the 64-bit quadword at OFFSET bytes from SAP."
2119 #: src/code/sap.lisp
2120 msgid "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
2123 #: src/code/sap.lisp
2124 msgid "Returns the 32-bit single-float at OFFSET bytes from SAP."
2127 #: src/code/sap.lisp
2128 msgid "Returns the 64-bit double-float at OFFSET bytes from SAP."
2131 #: src/code/sap.lisp
2132 msgid "Returns the long-float at OFFSET bytes from SAP."
2135 #: src/code/sap.lisp
2136 msgid "Returns the signed 8-bit byte at OFFSET bytes from SAP."
2139 #: src/code/sap.lisp
2140 msgid "Returns the signed 16-bit word at OFFSET bytes from SAP."
2143 #: src/code/sap.lisp
2144 msgid "Returns the signed 32-bit dualword at OFFSET bytes from SAP."
2147 #: src/code/sap.lisp
2148 msgid "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
2151 #: src/code/bit-bash.lisp
2152 msgid "The number of bits to process at a time."
2155 #: src/code/bit-bash.lisp
2156 msgid "The maximum number of bits that can be dealt with during a single call."
2159 #: src/code/bit-bash.lisp
2161 "Shift NUMBER by COUNT bits, adding zero bits at the ``end'' and removing\n"
2162 " bits from the ``start.'' On big-endian machines this is a left-shift and\n"
2163 " on little-endian machines this is a right-shift. Note: only the low 5/6 "
2165 " of count are significant."
2168 #: src/code/bit-bash.lisp
2170 "Shift NUMBER by COUNT bits, adding zero bits at the ``start'' and removing\n"
2171 " bits from the ``end.'' On big-endian machines this is a right-shift and\n"
2172 " on little-endian machines this is a left-shift."
2175 #: src/code/bit-bash.lisp
2177 "Produce a mask that contains 1's for the COUNT ``start'' bits and 0's for\n"
2178 " the remaining ``end'' bits. Only the lower 5 bits of COUNT are "
2182 #: src/code/bit-bash.lisp
2184 "Produce a mask that contains 1's for the COUNT ``end'' bits and 0's for\n"
2185 " the remaining ``start'' bits. Only the lower 5 bits of COUNT are\n"
2189 #: src/code/bit-bash.lisp
2190 msgid "Align the SAP to a word boundry, and update the offset accordingly."
2193 #: src/code/bit-bash.lisp
2195 "Fill DST with VALUE starting at DST-OFFSET and continuing for LENGTH bits."
2198 #: src/code/byte-interp.lisp
2199 msgid "This is the interpreter's evaluation stack."
2202 #: src/code/byte-interp.lisp
2203 msgid "This is the next free element of the interpreter's evaluation stack."
2206 #: src/code/byte-interp.lisp
2207 msgid "Undefined XOP."
2210 #: src/code/byte-interp.lisp
2211 msgid "Unbound variable: ~S"
2214 #: src/code/byte-interp.lisp
2215 msgid "Non-list argument to CAR: ~S"
2218 #: src/code/byte-interp.lisp
2219 msgid "Non-list argument to CDR: ~S"
2222 #: src/code/byte-interp.lisp
2223 msgid "Unknown inline function, id=~D"
2226 #: src/code/byte-interp.lisp
2227 msgid "Wrong number of arguments."
2230 #: src/code/byte-interp.lisp
2231 msgid "Not enough arguments."
2234 #: src/pcl/boot.lisp src/code/byte-interp.lisp
2235 msgid "Too many arguments."
2238 #: src/pcl/combin.lisp src/code/interr.lisp src/code/byte-interp.lisp
2239 msgid "Odd number of keyword arguments."
2242 #: src/code/interr.lisp src/code/byte-interp.lisp
2243 msgid "Unknown keyword: ~S"
2246 #: src/code/byte-interp.lisp
2247 msgid "function-end breakpoints not supported."
2250 #: src/code/array.lisp
2251 msgid "The exclusive upper bound on the rank of an array."
2254 #: src/code/array.lisp
2255 msgid "The exclusive upper bound any given dimension of an array."
2258 #: src/code/array.lisp
2259 msgid "The exclusive upper bound on the total number of elements in an array."
2262 #: src/code/array.lisp
2263 msgid "Start ~D is greater than end ~D."
2266 #: src/code/array.lisp
2267 msgid "End ~D is greater than total size ~D."
2270 #: src/code/array.lisp
2272 "List of weak-pointers to static vectors. Needed for GCing static vectors"
2275 #: src/code/array.lisp
2276 msgid "Cannot make a static array of element type ~S"
2279 #: src/code/array.lisp
2280 msgid "Failed to allocate space for static array of length ~S of type ~S"
2283 #: src/code/array.lisp
2285 "Creates an array of the specified Dimensions and properties. See the\n"
2286 " manual for details.\n"
2289 " The type of objects that the array can hold \n"
2290 " :Initial-element\n"
2291 " Each element of the array is initialized to this value, if supplied.\n"
2292 " If not supplied, 0 of the appropriate type is used.\n"
2293 " :Initial-contents\n"
2294 " The contents of the array are initialized to this.\n"
2296 " If non-Nil, make an expressly adjustable array.\n"
2298 " For one-dimensional array, set the fill-pointer to the given value.\n"
2299 " If T, use the actual length of the array.\n"
2301 " Create an array that is displaced to the target array specified\n"
2302 " by :displaced-to.\n"
2303 " :Displaced-index-offset\n"
2304 " Index offset to the displaced array. That is, index 0 of this array "
2306 " actually index displaced-index-offset of the target displaced array. \n"
2308 " How to allocate the array. If :MALLOC, a static, nonmovable array is\n"
2309 " created. This array is created by calling malloc."
2312 #: src/code/array.lisp
2313 msgid "Can't specify :displaced-index-offset without :displaced-to"
2316 #: src/code/array.lisp
2317 msgid "Cannot make an adjustable static array"
2320 #: src/code/array.lisp
2321 msgid "Cannot make a displaced array static"
2324 #: src/code/array.lisp
2326 "Cannot specify both :initial-element and ~\n"
2327 "\t\t:initial-contents"
2330 #: src/code/array.lisp
2332 "~D elements in the initial-contents, but the ~\n"
2333 "\t\tvector length is ~D."
2336 #: src/code/array.lisp
2337 msgid "Only vectors can have fill pointers."
2340 #: src/code/array.lisp
2341 msgid "Invalid fill-pointer ~D"
2344 #: src/code/array.lisp
2346 "Neither :initial-element nor :initial-contents ~\n"
2347 "\t\t can be specified along with :displaced-to"
2350 #: src/code/array.lisp
2352 "One can't displace an array of type ~S into ~\n"
2353 " another of type ~S."
2356 #: src/code/array.lisp
2357 msgid "~S doesn't have enough elements."
2360 #: src/code/array.lisp
2361 msgid "If non-NIL, print some debugging information when GC'ing static arrays"
2364 #: src/code/array.lisp
2365 msgid "~&Freeing foreign vector at #x~X~%"
2368 #: src/code/array.lisp
2369 msgid "Finalizing static vectors ~S~%"
2372 #: src/code/array.lisp
2373 msgid "static vector ~A. header = ~X~%"
2376 #: src/code/array.lisp
2377 msgid " static vector ~A in use~%"
2380 #: src/code/array.lisp
2381 msgid " Free static vector ~A~%"
2384 #: src/code/array.lisp
2386 "Cannot supply both :initial-contents and :initial-element to\n"
2387 " either make-array or adjust-array."
2390 #: src/code/array.lisp
2391 msgid "~S cannot be used to initialize an array of type ~S."
2394 #: src/code/array.lisp
2396 "Malformed :initial-contents. ~S is not a ~\n"
2397 "\t\t\t sequence, but ~D more layer needed."
2399 "Malformed :initial-contents. ~S is not a ~\n"
2400 "\t\t\t sequence, but ~D more layers needed."
2404 #: src/code/array.lisp
2406 "Malformed :initial-contents. Dimension of ~\n"
2407 "\t\t\t axis ~D is ~D, but ~S is ~D long."
2410 #: src/code/array.lisp
2411 msgid "Constructs a simple-vector from the given objects."
2414 #: src/code/array.lisp
2415 msgid "Wrong number of subscripts, ~D, for array of rank ~D"
2418 #: src/code/array.lisp
2419 msgid "Invalid index ~D~[~;~:; on axis ~:*~D~] in ~S"
2422 #: src/code/array.lisp
2423 msgid "Invalid index ~D in ~S"
2426 #: src/code/array.lisp
2427 msgid "Returns T if the Subscipts are in bounds for the Array, Nil otherwise."
2430 #: src/code/array.lisp
2431 msgid "Returns the element of the Array specified by the Subscripts."
2434 #: src/code/array.lisp
2436 "Returns the element of array corressponding to the row-major index. This "
2441 #: src/code/array.lisp
2442 msgid "Returns the Index'th element of the given Simple-Vector."
2445 #: src/code/array.lisp
2446 msgid "Returns the bit from the Bit-Array at the specified Subscripts."
2449 #: src/code/array.lisp
2450 msgid "Returns the bit from the Simple-Bit-Array at the specified Subscripts."
2453 #: src/code/array.lisp
2454 msgid "Returns the type of the elements of the array"
2457 #: src/code/array.lisp
2458 msgid "Returns the number of dimensions of the Array."
2461 #: src/code/array.lisp
2462 msgid "Returns length of dimension Axis-Number of the Array."
2465 #: src/code/array.lisp
2466 msgid "Vector axis is not zero: ~S"
2469 #: src/code/array.lisp
2470 msgid "~D is too big; ~S only has ~D dimension"
2471 msgid_plural "~D is too big; ~S only has ~D dimensions"
2475 #: src/code/array.lisp
2476 msgid "Returns a list whose elements are the dimensions of the array"
2479 #: src/code/array.lisp
2480 msgid "Returns the total number of elements in the Array."
2483 #: src/code/array.lisp
2485 "Returns values of :displaced-to and :displaced-index-offset options to\n"
2486 " make-array, or the defaults nil and 0 if not a displaced array."
2489 #: src/code/array.lisp
2491 "Returns T if (adjust-array array...) would return an array identical\n"
2492 " to the argument, this happens for complex arrays."
2495 #: src/code/array.lisp
2496 msgid "Returns T if the given Array has a fill pointer, or Nil otherwise."
2499 #: src/code/array.lisp
2500 msgid "Returns the Fill-Pointer of the given Vector."
2503 #: src/code/array.lisp
2504 msgid "New fill pointer, ~S, is larger than the length of the vector."
2507 #: src/code/array.lisp
2509 "Attempts to set the element of Array designated by the fill pointer\n"
2510 " to New-El and increment fill pointer by one. If the fill pointer is\n"
2511 " too large, Nil is returned, otherwise the index of the pushed element "
2516 #: src/code/array.lisp
2518 "Like Vector-Push except that if the fill pointer gets too large, the\n"
2519 " Array is extended rather than Nil being returned."
2522 #: src/code/array.lisp
2524 "Attempts to decrease the fill-pointer by 1 and return the element\n"
2525 " pointer to by the new fill pointer. If the original value of the fill\n"
2526 " pointer is 0, an error occurs."
2529 #: src/code/array.lisp
2530 msgid "Nothing left to pop."
2533 #: src/code/array.lisp
2534 msgid "Adjusts the Array's dimensions to the given Dimensions and stuff."
2537 #: src/code/array.lisp
2538 msgid "Number of dimensions not equal to rank of array."
2541 #: src/code/array.lisp
2542 msgid "New element type, ~S, is incompatible with old."
2545 #: src/code/array.lisp
2546 msgid "Static arrays are not adjustable."
2549 #: src/code/array.lisp
2550 msgid "Multidimensional arrays can't have fill pointers."
2553 #: src/code/array.lisp
2555 "Initial contents may not be specified with ~\n"
2556 "\t\t the :initial-element or :displaced-to option."
2559 #: src/code/array.lisp
2561 "The :initial-element option may not be specified ~\n"
2562 "\t with :displaced-to."
2565 #: src/code/array.lisp
2567 "One can't displace an array of type ~S into another of ~\n"
2571 #: src/code/array.lisp
2572 msgid "The :displaced-to array is too small."
2575 #: src/code/array.lisp
2577 "Cannot adjust-array an array (~S) to a size (~S) that is ~\n"
2578 "\t smaller than it's fill pointer (~S)."
2581 #: src/code/array.lisp
2583 "Cannot supply a non-NIL value (~S) for :fill-pointer ~\n"
2584 "\t in adjust-array unless the array (~S) was originally ~\n"
2585 " \t created with a fill pointer."
2588 #: src/code/array.lisp
2590 "Cannot supply a value for :fill-pointer (~S) that is larger ~\n"
2591 "\t than the new length of the vector (~S)."
2594 #: src/code/array.lisp
2595 msgid "Bogus value for :fill-pointer in adjust-array: ~S"
2598 #: src/code/array.lisp
2600 "Destructively alters the Vector, changing its length to New-Size, which\n"
2601 " must be less than or equal to its current size."
2604 #: src/code/array.lisp
2605 msgid "Fills in array header with provided information. Returns array."
2608 #: src/code/array.lisp
2609 msgid "~S and ~S do not have the same dimensions."
2610 msgstr "~S 와 ~S 는 그 요소의 수가 다르다."
2612 #: src/code/array.lisp
2614 "Perform a bit-wise LOGAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2615 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2616 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2618 " created. All the arrays must have the same rank and dimensions."
2621 #: src/code/array.lisp
2623 "Perform a bit-wise LOGIOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2624 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2625 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2627 " created. All the arrays must have the same rank and dimensions."
2630 #: src/code/array.lisp
2632 "Perform a bit-wise LOGXOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2633 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2634 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2636 " created. All the arrays must have the same rank and dimensions."
2639 #: src/code/array.lisp
2641 "Perform a bit-wise LOGEQV on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2642 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2643 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2645 " created. All the arrays must have the same rank and dimensions."
2648 #: src/code/array.lisp
2650 "Perform a bit-wise LOGNAND on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2651 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2652 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2654 " created. All the arrays must have the same rank and dimensions."
2657 #: src/code/array.lisp
2659 "Perform a bit-wise LOGNOR on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2660 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2661 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2663 " created. All the arrays must have the same rank and dimensions."
2666 #: src/code/array.lisp
2668 "Perform a bit-wise LOGANDC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2669 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2670 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2672 " created. All the arrays must have the same rank and dimensions."
2675 #: src/code/array.lisp
2677 "Perform a bit-wise LOGANDC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2678 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2679 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2681 " created. All the arrays must have the same rank and dimensions."
2684 #: src/code/array.lisp
2686 "Perform a bit-wise LOGORC1 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2687 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2688 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2690 " created. All the arrays must have the same rank and dimensions."
2693 #: src/code/array.lisp
2695 "Perform a bit-wise LOGORC2 on the elements of BIT-ARRAY-1 and BIT-ARRAY-2,\n"
2696 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2697 " BIT-ARRAY-1 is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array "
2699 " created. All the arrays must have the same rank and dimensions."
2702 #: src/code/array.lisp
2704 "Performs a bit-wise logical NOT on the elements of BIT-ARRAY,\n"
2705 " putting the results in RESULT-BIT-ARRAY. If RESULT-BIT-ARRAY is T,\n"
2706 " BIT-ARRAY is used. If RESULT-BIT-ARRAY is NIL or omitted, a new array is\n"
2707 " created. Both arrays must have the same rank and dimensions."
2710 #: src/code/hash-new.lisp
2711 msgid "Structure used to implement hash tables."
2714 #: src/code/hash-new.lisp
2716 "Almost-Primify returns an almost prime number greater than or equal\n"
2720 #: src/code/hash-new.lisp
2721 msgid "Define a new kind of hash table test."
2724 #: src/code/hash-new.lisp
2726 "Creates and returns a new hash table. The keywords are as follows:\n"
2727 " :TEST -- Indicates what kind of test to use. Only EQ, EQL, EQUAL,\n"
2728 " and EQUALP are currently supported.\n"
2729 " :SIZE -- A hint as to how many elements will be put in this hash\n"
2731 " :REHASH-SIZE -- Indicates how to expand the table when it fills up.\n"
2732 " If an integer, add space for that many elements. If a floating\n"
2733 " point number (which must be greater than 1.0), multiple the size\n"
2734 " by that amount.\n"
2735 " :REHASH-THRESHOLD -- Indicates how dense the table can become before\n"
2736 " forcing a rehash. Can be any positive number <= to 1, with density\n"
2737 " approaching zero as the threshold approaches 0. Density 1 means an\n"
2738 " average of one entry per bucket.\n"
2739 " CMUCL Extension:\n"
2740 " :WEAK-P -- Weak hash table. Can only be used when the key is 'eq or "
2742 " An entry in the table is remains if the condition holds:\n"
2744 " :KEY -- key is referenced elsewhere\n"
2745 " :VALUE -- value is referenced elsewhere\n"
2746 " :KEY-AND-VALUE -- key and value are referenced elsewhere\n"
2747 " :KEY-OR-VALUE -- key or value is referenced elsewhere\n"
2749 " If the condition does not hold, the entry is removed. For\n"
2750 " backward compatibility, a value of T is the same as :KEY."
2753 #: src/code/hash-new.lisp
2754 msgid "Cannot make a weak ~A hashtable with test: ~S"
2757 #: src/code/hash-new.lisp
2758 msgid "Unknown :TEST for MAKE-HASH-TABLE: ~S"
2761 #: src/code/hash-new.lisp
2762 msgid "Returns the number of entries in the given HASH-TABLE."
2765 #: src/code/hash-new.lisp
2766 msgid "Return the rehash-size HASH-TABLE was created with."
2769 #: src/code/hash-new.lisp
2770 msgid "Return the rehash-threshold HASH-TABLE was created with."
2773 #: src/code/hash-new.lisp
2775 "Return a size that can be used with MAKE-HASH-TABLE to create a hash\n"
2776 " table that can hold however many entries HASH-TABLE can hold without\n"
2777 " having to be grown."
2780 #: src/code/hash-new.lisp
2781 msgid "Return the test HASH-TABLE was created with."
2784 #: src/code/hash-new.lisp
2786 "Return T if HASH-TABLE will not keep entries for keys that would\n"
2787 " otherwise be garbage, and NIL if it will."
2790 #: src/code/hash-new.lisp
2792 "Finds the entry in HASH-TABLE whose key is KEY and returns the associated\n"
2793 " value and T as multiple values, or returns DEFAULT and NIL if there is "
2795 " such entry. Entries can be added using SETF."
2798 #: src/code/hash-new.lisp
2800 "Remove the entry in HASH-TABLE associated with KEY. Returns T if there\n"
2801 " was such an entry, and NIL if not."
2804 #: src/code/hash-new.lisp
2806 "This removes all the entries from HASH-TABLE and returns the hash table\n"
2810 #: src/code/hash-new.lisp
2812 "This removes all the entries from HASH-TABLE and returns the hash table\n"
2813 " itself, shrinking the size to free memory."
2816 #: src/code/hash-new.lisp
2818 "For each entry in HASH-TABLE, calls MAP-FUNCTION on the key and value\n"
2819 " of the entry; returns NIL."
2822 #: src/code/hash-new.lisp
2824 "WITH-HASH-TABLE-ITERATOR ((function hash-table) &body body)\n"
2825 " provides a method of manually looping over the elements of a hash-table.\n"
2826 " FUNCTION is bound to a generator-macro that, within the scope of the\n"
2827 " invocation, returns one or three values. The first value tells whether\n"
2828 " any objects remain in the hash table. When the first value is non-NIL, \n"
2829 " the second and third values are the key and the value of the next object."
2832 #: src/pcl/slots.lisp src/code/hash-new.lisp
2833 msgid "What kind of instance is this?"
2836 #: src/code/hash-new.lisp
2837 msgid "Computes a hash code for S-EXPR and returns it as an integer."
2840 #: src/code/list.lisp
2841 msgid "Returns the 1st object in a list."
2844 #: src/code/list.lisp
2845 msgid "Returns all but the first object."
2848 #: src/code/list.lisp
2849 msgid "Returns the 2nd object in a list."
2852 #: src/code/list.lisp
2853 msgid "Returns the cdr of the 1st sublist."
2856 #: src/code/list.lisp
2857 msgid "Returns the car of the 1st sublist."
2860 #: src/code/list.lisp
2861 msgid "Returns all but the 1st two objects of a list."
2864 #: src/code/list.lisp
2865 msgid "Returns the 1st object in the cddr of a list."
2868 #: src/code/list.lisp
2869 msgid "Returns the 1st object in the cadr of a list."
2872 #: src/code/list.lisp
2873 msgid "Returns the 1st object in the caar of a list."
2876 #: src/code/list.lisp
2877 msgid "Returns the cdr of the caar of a list."
2880 #: src/code/list.lisp
2881 msgid "Returns the cdr of the cdar of a list."
2884 #: src/code/list.lisp
2885 msgid "Returns the cdr of the cddr of a list."
2888 #: src/code/list.lisp
2889 msgid "Returns the car of the cdar of a list."
2892 #: src/code/list.lisp
2893 msgid "Returns the cdr of the cadr of a list."
2896 #: src/code/list.lisp
2897 msgid "Returns the car of the caaar of a list."
2900 #: src/code/list.lisp
2901 msgid "Returns the car of the caadr of a list."
2904 #: src/code/list.lisp
2905 msgid "Returns the car of the caddr of a list."
2908 #: src/code/list.lisp
2909 msgid "Returns the car of the cdddr of a list."
2912 #: src/code/list.lisp
2913 msgid "Returns the cdr of the cdddr of a list."
2916 #: src/code/list.lisp
2917 msgid "Returns the cdr of the caaar of a list."
2920 #: src/code/list.lisp
2921 msgid "Returns the cdr of the cdaar of a list."
2924 #: src/code/list.lisp
2925 msgid "Returns the cdr of the cddar of a list."
2928 #: src/code/list.lisp
2929 msgid "Returns the car of the cadar of a list."
2932 #: src/code/list.lisp
2933 msgid "Returns the car of the cdaar of a list."
2936 #: src/code/list.lisp
2937 msgid "Returns the car of the cdadr of a list."
2940 #: src/code/list.lisp
2941 msgid "Returns the car of the cddar of a list."
2944 #: src/code/list.lisp
2945 msgid "Returns the cdr of the caadr of a list."
2948 #: src/code/list.lisp
2949 msgid "Returns the cdr of the cadar of a list."
2952 #: src/code/list.lisp
2953 msgid "Returns the cdr of the caddr of a list."
2956 #: src/code/list.lisp
2957 msgid "Returns the cdr of the cdadr of a list."
2960 #: src/code/list.lisp
2961 msgid "Returns a list with se1 as the car and se2 as the cdr."
2964 #: src/code/list.lisp
2965 msgid "Returns T if X and Y are isomorphic trees with identical leaves."
2968 #: src/code/list.lisp
2970 "The recommended way to test for the end of a list. True if Object is nil,\n"
2971 " false if Object is a cons, and an error for any other types of arguments."
2974 #: src/code/list.lisp
2975 msgid "Returns the length of the given List, or Nil if the List is circular."
2978 #: src/code/list.lisp
2979 msgid "Returns the nth object in a list where the car is the zero-th element."
2982 #: src/code/list.lisp
2983 msgid "Returns the 1st object in a list or NIL if the list is empty."
2986 #: src/code/list.lisp
2987 msgid "Returns the 2nd object in a list or NIL if there is no 2nd object."
2990 #: src/code/list.lisp
2991 msgid "Returns the 3rd object in a list or NIL if there is no 3rd object."
2994 #: src/code/list.lisp
2995 msgid "Returns the 4th object in a list or NIL if there is no 4th object."
2998 #: src/code/list.lisp
2999 msgid "Returns the 5th object in a list or NIL if there is no 5th object."
3002 #: src/code/list.lisp
3003 msgid "Returns the 6th object in a list or NIL if there is no 6th object."
3006 #: src/code/list.lisp
3007 msgid "Returns the 7th object in a list or NIL if there is no 7th object."
3010 #: src/code/list.lisp
3011 msgid "Returns the 8th object in a list or NIL if there is no 8th object."
3014 #: src/code/list.lisp
3015 msgid "Returns the 9th object in a list or NIL if there is no 9th object."
3018 #: src/code/list.lisp
3019 msgid "Returns the 10th object in a list or NIL if there is no 10th object."
3022 #: src/code/list.lisp
3023 msgid "Means the same as the cdr of a list."
3026 #: src/code/list.lisp
3027 msgid "Performs the cdr function n times on a list."
3030 #: src/code/list.lisp
3031 msgid "Returns the last N conses (not the last element!) of a list."
3034 #: src/code/list.lisp
3035 msgid "Returns constructs and returns a list of its arguments."
3038 #: src/code/list.lisp
3039 msgid "Returns a list of the arguments with last cons a dotted pair"
3042 #: src/code/list.lisp
3043 msgid "Constructs a list with size elements each set to value"
3046 #: src/code/list.lisp
3047 msgid "~S is not a proper list"
3050 #: src/code/list.lisp
3052 "Typically, returns a new list that is the concatenation of Args.\n"
3054 " Each Arg in Args must be a proper list except the last one, which\n"
3055 " may be any object. The function is not destructive: for all but the\n"
3056 " last Arg, its list structure is copied. The last argument is not\n"
3057 " copied; it becomes the cdr of the final dotted pair of the\n"
3058 " concatenation of the preceding lists, or is returned directly if\n"
3059 " there are no preceding non-empty lists. In the latter case, if the\n"
3060 " last Arg is not a list, the returned value is not a list either."
3063 #: src/code/list.lisp
3064 msgid "~S is not a list."
3067 #: src/code/list.lisp
3068 msgid "Returns a new list EQUAL but not EQ to list"
3071 #: src/code/list.lisp
3072 msgid "Returns a new association list equal to alist, constructed in space"
3075 #: src/code/list.lisp
3076 msgid "Copy-Tree recursively copys trees of conses."
3079 #: src/code/list.lisp
3080 msgid "Returns (append (reverse x) y)"
3083 #: src/code/list.lisp
3084 msgid "Concatenates the lists given as arguments (by changing them)"
3087 #: src/code/list.lisp
3088 msgid "Argument is not a list -- ~S."
3091 #: src/code/list.lisp
3092 msgid "Returns (nconc (nreverse x) y)"
3095 #: src/code/list.lisp
3096 msgid "First argument is not a proper list."
3099 #: src/code/list.lisp
3101 "Returns a new list the same as List without the last N conses.\n"
3102 " List must not be circular."
3105 #: src/code/list.lisp
3106 msgid "Modifies List to remove the last N conses. List must not be circular."
3109 #: src/code/list.lisp
3111 "Returns a new list, whose elements are those of List that appear before\n"
3112 " Object. If Object is not a tail of List, a copy of List is returned.\n"
3113 " List must be a proper list or a dotted list."
3116 #: src/code/list.lisp
3117 msgid "Changes the car of x to y and returns the new x."
3120 #: src/code/list.lisp
3121 msgid "Changes the cdr of x to y and returns the new x."
3124 #: src/code/list.lisp
3125 msgid "Sets the Nth element of List (zero based) to Newval."
3128 #: src/code/list.lisp
3129 msgid "~S is too large an index for SETF of NTH."
3132 #: src/code/list.lisp
3133 msgid "Returns what was passed to it."
3136 #: src/code/list.lisp
3138 "Builds a new function that returns T whenever FUNCTION returns NIL and\n"
3139 " NIL whenever FUNCTION returns T."
3142 #: src/code/list.lisp
3143 msgid "Builds a function that always returns VALUE, and posisbly MORE-VALUES."
3146 #: src/code/list.lisp
3147 msgid "Substitutes new for subtrees matching old."
3150 #: src/code/list.lisp
3151 msgid "Substitutes new for subtrees for which test is true."
3154 #: src/code/list.lisp
3155 msgid "Substitutes new for subtrees for which test is false."
3158 #: src/code/list.lisp
3159 msgid "Substitutes new for subtrees of tree for which test is true."
3162 #: src/code/list.lisp
3163 msgid "Substitutes new for subtrees of tree for which test is false."
3166 #: src/code/list.lisp
3167 msgid "Substitutes from alist into tree nondestructively."
3170 #: src/code/list.lisp
3172 "Returns tail of list beginning with first element satisfying EQLity,\n"
3173 " :test, or :test-not with a given item."
3176 #: src/code/list.lisp
3178 "Returns tail of list beginning with first element satisfying test(element)"
3181 #: src/code/list.lisp
3183 "Returns tail of list beginning with first element not satisfying test(el)"
3186 #: src/code/list.lisp
3188 "Returns true if Object is the same as some tail of List, otherwise\n"
3189 " returns false. List must be a proper list or a dotted list."
3192 #: src/code/list.lisp
3193 msgid "Add item to list unless it is already a member"
3196 #: src/code/list.lisp
3197 msgid "Returns the union of list1 and list2."
3200 #: src/code/list.lisp
3201 msgid "Test and test-not both supplied."
3204 #: src/code/list.lisp
3205 msgid "Destructively returns the union list1 and list2."
3208 #: src/code/list.lisp
3209 msgid "Returns the intersection of list1 and list2."
3212 #: src/code/list.lisp
3213 msgid "Destructively returns the intersection of list1 and list2."
3216 #: src/code/list.lisp
3217 msgid "Returns the elements of list1 which are not in list2."
3220 #: src/code/list.lisp
3221 msgid "Destructively returns the elements of list1 which are not in list2."
3224 #: src/code/list.lisp
3225 msgid "Return new list of elements appearing exactly once in LIST1 and LIST2."
3228 #: src/code/list.lisp
3230 "Destructively return a list with elements which appear but once in LIST1\n"
3234 #: src/code/list.lisp
3235 msgid "Returns T if every element in list1 is also in list2."
3238 #: src/code/list.lisp
3239 msgid "Construct a new alist by adding the pair (key . datum) to alist"
3242 #: src/code/list.lisp
3243 msgid "Construct an association list from keys and data (adding to alist)"
3246 #: src/code/list.lisp
3247 msgid "The lists of keys and data are of unequal length."
3250 #: src/code/list.lisp
3252 "Returns the cons in alist whose car is equal (by a given test or EQL) to\n"
3256 #: src/code/list.lisp
3258 "Returns the first cons in alist whose car satisfies the Predicate. If\n"
3259 " key is supplied, apply it to the car of each cons before testing."
3262 #: src/code/list.lisp
3264 "Returns the first cons in alist whose car does not satisfiy the Predicate.\n"
3265 " If key is supplied, apply it to the car of each cons before testing."
3268 #: src/code/list.lisp
3270 "Returns the cons in alist whose cdr is equal (by a given test or EQL) to\n"
3274 #: src/code/list.lisp
3276 "Returns the first cons in alist whose cdr satisfies the Predicate. If key\n"
3277 " is supplied, apply it to the cdr of each cons before testing."
3280 #: src/code/list.lisp
3282 "Returns the first cons in alist whose cdr does not satisfy the Predicate.\n"
3283 " If key is supplied, apply it to the cdr of each cons before testing."
3286 #: src/code/list.lisp
3288 "This function is called by mapc, mapcar, mapcan, mapl, maplist, and mapcon.\n"
3289 " It Maps function over the arglists in the appropriate way. It is done when "
3291 " of the arglists runs out. Until then, it CDRs down the arglists calling "
3293 " function and accumulating results as desired."
3296 #: src/code/list.lisp
3298 "Applies Function to successive elements of each List, and returns\n"
3299 " its second argument."
3302 #: src/code/list.lisp
3304 "Applies Function to successive elements of each List, and returns a\n"
3308 #: src/code/list.lisp
3310 "Applies Function to successive elements of each List, and returns\n"
3311 " NCONC of results."
3314 #: src/code/list.lisp
3315 msgid "Applies Function to successive CDRs of each List, and returns ()."
3318 #: src/code/list.lisp
3320 "Applies Function to successive CDRs of each List, and returns list\n"
3324 #: src/code/list.lisp
3326 "Applies Function to successive CDRs of each List, and returns NCONC\n"
3330 #: src/code/list.lisp
3331 msgid "Returns tail of list beginning with first element eq to item"
3334 #: src/code/list.lisp
3335 msgid "Return the first pair of alist where item EQ the key of pair"
3338 #: src/code/list.lisp
3339 msgid "Returns list with all elements with all elements EQ to ITEM deleted."
3342 #: src/code/seq.lisp
3344 "Returns a list of the Nth element of each of the sequences. Used by MAP\n"
3348 #: src/code/seq.lisp
3349 msgid "Returns a sequence of the same type as SEQUENCE and the given LENGTH."
3352 #: src/code/seq.lisp
3353 msgid "Returns the broad class of which TYPE is a specific subclass."
3356 #: src/code/seq.lisp
3357 msgid "NIL output type invalid for this sequence function."
3360 #: src/code/seq.lisp
3361 msgid "~S is too hairy for sequence functions."
3364 #: src/code/seq.lisp
3365 msgid "~S is a bad type specifier for sequence functions."
3368 #: src/code/seq.lisp
3369 msgid "Error in ~S: ~S: Index too large."
3372 #: src/code/seq.lisp
3373 msgid "Returns a sequence of the given TYPE and LENGTH."
3376 #: src/code/seq.lisp
3377 msgid "Returns the element of SEQUENCE specified by INDEX."
3380 #: src/code/seq.lisp
3381 msgid "Store NEWVAL as the component of SEQUENCE specified by INDEX."
3384 #: src/code/seq.lisp
3385 msgid "Returns an integer that is the length of SEQUENCE."
3388 #: src/code/seq.lisp
3389 msgid "~S is a bad type specifier for sequences"
3392 #: src/code/seq.lisp
3393 msgid "Shouldn't happen! Weird type"
3396 #: src/code/seq.lisp
3398 "The length of ~S does not match the specified ~\n"
3402 #: src/code/seq.lisp
3404 "Returns a sequence of the given Type and Length, with elements initialized\n"
3405 " to :Initial-Element."
3408 #: src/code/seq.lisp
3410 "The length of ~S does not match the specified ~\n"
3414 #: src/code/seq.lisp
3415 msgid "~S is a bad type specifier for sequences."
3418 #: src/code/seq.lisp
3420 "Returns a copy of a subsequence of SEQUENCE starting with element number \n"
3421 " START and continuing to the end of SEQUENCE or the optional END."
3424 #: src/code/seq.lisp
3425 msgid "Returns a copy of SEQUENCE which is EQUAL to SEQUENCE but not EQ."
3428 #: src/code/seq.lisp
3429 msgid "Replace the specified elements of SEQUENCE with ITEM."
3432 #: src/code/seq.lisp
3434 "The target sequence is destructively modified by copying successive\n"
3435 " elements into it from the source sequence."
3438 #: src/code/seq.lisp
3440 "Returns a new sequence containing the same elements but in reverse order."
3443 #: src/code/seq.lisp
3445 "Returns a sequence of the same elements in reverse order; the argument\n"
3449 #: src/code/seq.lisp
3451 "Returns a new sequence of all the argument sequences concatenated together\n"
3452 " which shares no structure with the original argument sequences of the\n"
3453 " specified OUTPUT-TYPE-SPEC."
3456 #: src/code/seq.lisp
3458 "FUNCTION must take as many arguments as there are sequences provided. The \n"
3459 " result is a sequence such that element i is the result of applying "
3461 " to element i of each of the argument sequences."
3464 #: src/code/seq.lisp
3466 "PREDICATE is applied to the elements with index 0 of the sequences, then \n"
3467 " possibly to those with index 1, and so on. SOME returns the first \n"
3468 " non-() value encountered, or () if the end of a sequence is reached."
3471 #: src/code/seq.lisp
3473 "PREDICATE is applied to the elements with index 0 of the sequences, then\n"
3474 " possibly to those with index 1, and so on. EVERY returns () as soon\n"
3475 " as any invocation of PREDICATE returns (), or T if every invocation\n"
3479 #: src/code/seq.lisp
3481 "PREDICATE is applied to the elements with index 0 of the sequences, then \n"
3482 " possibly to those with index 1, and so on. NOTANY returns () as soon\n"
3483 " as any invocation of PREDICATE returns a non-() value, or T if the end\n"
3484 " of a sequence is reached."
3487 #: src/code/seq.lisp
3489 "PREDICATE is applied to the elements with index 0 of the sequences, then\n"
3490 " possibly to those with index 1, and so on. NOTEVERY returns T as soon\n"
3491 " as any invocation of PREDICATE returns (), or () if every invocation\n"
3495 #: src/code/seq.lisp
3497 "The specified Sequence is ``reduced'' using the given Function.\n"
3498 " See manual for details."
3501 #: src/code/seq.lisp
3502 msgid "Coerces the Object to an object of type Output-Type-Spec."
3505 #: src/code/seq.lisp
3506 msgid "~S can't be converted to type ~S."
3509 #: src/code/seq.lisp
3511 "Returns a sequence formed by destructively removing the specified Item from\n"
3512 " the given Sequence."
3515 #: src/code/seq.lisp
3517 "Returns a sequence formed by destructively removing the elements satisfying\n"
3518 " the specified Predicate from the given Sequence."
3521 #: src/code/seq.lisp
3523 "Returns a sequence formed by destructively removing the elements not\n"
3524 " satisfying the specified Predicate from the given Sequence."
3527 #: src/code/seq.lisp
3529 "Returns a copy of SEQUENCE with elements satisfying the test (default is\n"
3530 " EQL) with ITEM removed."
3533 #: src/code/seq.lisp
3535 "Returns a copy of sequence with elements such that predicate(element)\n"
3536 " is non-null are removed"
3539 #: src/code/seq.lisp
3541 "Returns a copy of sequence with elements such that predicate(element)\n"
3542 " is null are removed"
3545 #: src/code/seq.lisp
3547 "The elements of Sequence are compared pairwise, and if any two match,\n"
3548 " the one occuring earlier is discarded, unless FROM-END is true, in\n"
3549 " which case the one later in the sequence is discarded. The resulting\n"
3550 " sequence is returned.\n"
3552 " The :TEST-NOT argument is deprecated."
3555 #: src/code/seq.lisp
3557 "The elements of Sequence are examined, and if any two match, one is\n"
3558 " discarded. The resulting sequence, which may be formed by destroying "
3560 " given sequence, is returned.\n"
3562 " The :TEST-NOT argument is deprecated."
3565 #: src/code/seq.lisp
3567 "Returns a sequence of the same kind as Sequence with the same elements\n"
3568 " except that all elements equal to Old are replaced with New. See manual\n"
3572 #: src/code/seq.lisp
3574 "Returns a sequence of the same kind as Sequence with the same elements\n"
3575 " except that all elements satisfying the Test are replaced with New. See\n"
3576 " manual for details."
3579 #: src/code/seq.lisp
3581 "Returns a sequence of the same kind as Sequence with the same elements\n"
3582 " except that all elements not satisfying the Test are replaced with New.\n"
3583 " See manual for details."
3586 #: src/code/seq.lisp
3588 "Returns a sequence of the same kind as Sequence with the same elements\n"
3589 " except that all elements equal to Old are replaced with New. The "
3591 " may be destroyed. See manual for details."
3594 #: src/code/seq.lisp
3596 "Returns a sequence of the same kind as Sequence with the same elements\n"
3597 " except that all elements satisfying the Test are replaced with New. The\n"
3598 " Sequence may be destroyed. See manual for details."
3601 #: src/code/seq.lisp
3603 "Returns a sequence of the same kind as Sequence with the same elements\n"
3604 " except that all elements not satisfying the Test are replaced with New.\n"
3605 " The Sequence may be destroyed. See manual for details."
3608 #: src/code/seq.lisp
3610 "Returns the zero-origin index of the first element in SEQUENCE\n"
3611 " satisfying the test (default is EQL) with the given ITEM"
3614 #: src/code/seq.lisp
3615 msgid "Returns the zero-origin index of the first element satisfying test(el)"
3618 #: src/code/seq.lisp
3620 "Returns the zero-origin index of the first element not satisfying test(el)"
3621 msgstr "현재의 역동적인 공간은 ~D입니다.~%"
3623 #: src/code/seq.lisp
3625 "Returns the first element in SEQUENCE satisfying the test (default\n"
3626 " is EQL) with the given ITEM"
3629 #: src/code/seq.lisp
3630 msgid "Returns the first element in SEQUENCE satisfying the test."
3633 #: src/code/seq.lisp
3634 msgid "Returns the first element in SEQUENCE not satisfying the test."
3637 #: src/code/seq.lisp
3639 "Returns the number of elements in SEQUENCE satisfying a test with ITEM,\n"
3640 " which defaults to EQL."
3643 #: src/code/seq.lisp
3644 msgid ":TEST and :TEST-NOT are both present."
3647 #: src/code/seq.lisp
3648 msgid "Returns the number of elements in SEQUENCE satisfying TEST(el)."
3651 #: src/code/seq.lisp
3653 "The specified subsequences of Sequence1 and Sequence2 are compared\n"
3654 " element-wise. If they are of equal length and match in every element, "
3656 " result is NIL. Otherwise, the result is a non-negative integer, the "
3658 " within Sequence1 of the leftmost position at which they fail to match; "
3660 " if one is shorter than and a matching prefix of the other, the index "
3662 " Sequence1 beyond the last position tested is returned. If a non-Nil\n"
3663 " :From-End keyword argument is given, then one plus the index of the\n"
3664 " rightmost position in which the sequences differ is returned."
3667 #: src/code/seq.lisp
3669 "A search is conducted using EQL for the first subsequence of sequence2 \n"
3670 " which element-wise matches sequence1. If there is such a subsequence "
3672 " sequence2, the index of the its leftmost element is returned; \n"
3673 " otherwise () is returned."
3676 #: src/code/string.lisp
3678 "Test if C is a surrogate. C may be either an integer or a\n"
3679 " character. Surrogate-type indicates what kind of surrogate to test\n"
3680 " for. :High means to test for the high (leading) surrogate; :Low\n"
3681 " tests for the low (trailing surrogate). A value of :Any or Nil\n"
3682 " tests for any surrogate value (high or low)."
3685 #: src/code/string.lisp
3687 "Convert the given Hi and Lo surrogate characters to the\n"
3688 " corresponding codepoint value"
3691 #: src/code/string.lisp
3693 "Return the codepoint value from String at position I. If that\n"
3694 " position is a surrogate, it is combined with either the previous or\n"
3695 " following character (when possible) to compute the codepoint. The\n"
3696 " second return value is NIL if the position is not a surrogate pair.\n"
3697 " Otherwise +1 or -1 is returned if the position is the high or low\n"
3698 " surrogate value, respectively."
3701 #: src/code/string.lisp
3703 "Return the high and low surrogate characters for Codepoint. If\n"
3704 " Codepoint is in the BMP, the first return value is the corresponding\n"
3705 " character and the second is NIL."
3708 #: src/code/string.lisp
3710 "Set the codepoint at string position I to the Codepoint. If the\n"
3711 " codepoint requires a surrogate pair, the high (leading surrogate) is\n"
3712 " stored at position I and the low (trailing) surrogate is stored at\n"
3716 #: src/code/string.lisp
3718 "Check if String is a valid UTF-16 string. If the string is valid,\n"
3719 " T is returned. If the string is not valid, NIL is returned, and the\n"
3720 " second value is the index into the string of the invalid character.\n"
3721 " A string is also invalid if it contains any unassigned codepoints."
3724 #: src/code/string.lisp
3726 "Coerces X into a string. If X is a string, X is returned. If X is a\n"
3727 " symbol, X's pname is returned. If X is a character then a one element\n"
3728 " string containing that character is returned. If X cannot be coerced\n"
3729 " into a string, an error occurs."
3732 #: src/code/string.lisp
3733 msgid "~S cannot be coerced to a string."
3736 #: src/code/string.lisp
3738 "Given a string and a non-negative integer index less than the length of\n"
3739 " the string, returns the character object representing the character at\n"
3740 " that position in the string."
3743 #: src/code/string.lisp
3745 "SCHAR returns the character object at an indexed position in a string\n"
3746 " just as CHAR does, except the string must be a simple-string."
3749 #: src/code/string.lisp
3751 "Given two strings, if the first string is lexicographically less than\n"
3752 " the second string, returns the longest common prefix (using char=)\n"
3753 " of the two strings. Otherwise, returns ()."
3756 #: src/code/string.lisp
3758 "Given two strings, if the first string is lexicographically greater than\n"
3759 " the second string, returns the longest common prefix (using char=)\n"
3760 " of the two strings. Otherwise, returns ()."
3763 #: src/code/string.lisp
3765 "Given two strings, if the first string is lexicographically less than\n"
3766 " or equal to the second string, returns the longest common prefix\n"
3767 " (using char=) of the two strings. Otherwise, returns ()."
3770 #: src/code/string.lisp
3772 "Given two strings, if the first string is lexicographically greater\n"
3773 " than or equal to the second string, returns the longest common prefix\n"
3774 " (using char=) of the two strings. Otherwise, returns ()."
3777 #: src/code/string.lisp
3779 "Given two strings (string1 and string2), and optional integers start1,\n"
3780 " start2, end1 and end2, compares characters in string1 to characters in\n"
3781 " string2 (using char=)."
3784 #: src/code/string.lisp
3786 "Given two strings, if the first string is not lexicographically equal\n"
3787 " to the second string, returns the longest common prefix (using char=)\n"
3788 " of the two strings. Otherwise, returns ()."
3791 #: src/code/string.lisp
3793 "Return a new string with the case folded according to Casing as follows:\n"
3795 " :SIMPLE Unicode simple case folding (preserving length)\n"
3796 " :FULL Unicode full case folding (possibly changing length)\n"
3798 " Default Casing is :SIMPLE."
3801 #: src/code/string.lisp
3803 "Given two strings (string1 and string2), and optional integers start1,\n"
3804 " start2, end1 and end2, compares characters in string1 to characters in\n"
3805 " string2 (using char-equal)."
3808 #: src/code/string.lisp
3809 msgid "Improper bounds for string comparison."
3812 #: src/code/string.lisp
3814 "Given two strings, if the first string is not lexicographically equal\n"
3815 " to the second string, returns the longest common prefix (using char-"
3817 " of the two strings. Otherwise, returns ()."
3820 #: src/code/string.lisp
3821 msgid "Improper substring for comparison."
3824 #: src/code/string.lisp
3826 "Given two strings, if the first string is lexicographically less than\n"
3827 " the second string, returns the longest common prefix (using char-equal)\n"
3828 " of the two strings. Otherwise, returns ()."
3831 #: src/code/string.lisp
3833 "Given two strings, if the first string is lexicographically greater than\n"
3834 " the second string, returns the longest common prefix (using char-equal)\n"
3835 " of the two strings. Otherwise, returns ()."
3838 #: src/code/string.lisp
3840 "Given two strings, if the first string is lexicographically greater\n"
3841 " than or equal to the second string, returns the longest common prefix\n"
3842 " (using char-equal) of the two strings. Otherwise, returns ()."
3845 #: src/code/string.lisp
3847 "Given two strings, if the first string is lexicographically less than\n"
3848 " or equal to the second string, returns the longest common prefix\n"
3849 " (using char-equal) of the two strings. Otherwise, returns ()."
3852 #: src/code/string.lisp
3854 "Given a character count and an optional fill character, makes and returns\n"
3855 " a new string Count long filled with the fill character."
3858 #: src/code/string.lisp
3860 "Given a string, returns a new string that is a copy of it with all\n"
3861 " lower case alphabetic characters converted to uppercase."
3864 #: src/code/string.lisp
3866 "Given a string, returns a new string that is a copy of it with all\n"
3867 " lower case alphabetic characters converted to uppercase. Casing is\n"
3868 " :simple or :full for simple or full case conversion, respectively."
3871 #: src/code/string.lisp
3873 "Given a string, returns a new string that is a copy of it with all\n"
3874 " upper case alphabetic characters converted to lowercase."
3877 #: src/code/string.lisp
3879 "Given a string, returns a new string that is a copy of it with all\n"
3880 " upper case alphabetic characters converted to lowercase. Casing is\n"
3881 " :simple or :full for simple or full case conversion, respectively."
3884 #: src/code/string.lisp
3886 "Given a string, returns a copy of the string with the first\n"
3887 " character of each ``word'' converted to upper-case, and remaining\n"
3888 " chars in the word converted to lower case. A ``word'' is defined\n"
3889 " to be a string of case-modifiable characters delimited by\n"
3890 " non-case-modifiable chars."
3893 #: src/code/string.lisp
3895 "Given a string, returns a copy of the string with the first\n"
3896 " character of each ``word'' converted to upper-case, and remaining\n"
3897 " chars in the word converted to lower case. Casing is :simple or\n"
3898 " :full for simple or full case conversion, respectively. If\n"
3899 " Unicode-Word-Break is non-Nil, then the Unicode word-breaking\n"
3900 " algorithm is used to determine the word boundaries. Otherwise, A\n"
3901 " ``word'' is defined to be a string of case-modifiable characters\n"
3902 " delimited by non-case-modifiable chars. "
3905 #: src/code/string.lisp
3907 "Given a string, returns that string with all lower case alphabetic\n"
3908 " characters converted to uppercase."
3911 #: src/code/string.lisp
3913 "Given a string, returns that string with all upper case alphabetic\n"
3914 " characters converted to lowercase."
3917 #: src/code/string.lisp
3919 "Given a string, returns that string with the first\n"
3920 " character of each ``word'' converted to upper-case, and remaining\n"
3921 " chars in the word converted to lower case. A ``word'' is defined\n"
3922 " to be a string of case-modifiable characters delimited by\n"
3923 " non-case-modifiable chars."
3926 #: src/code/string.lisp
3928 "Given a set of characters (a list or string) and a string, returns\n"
3929 " a copy of the string with the characters in the set removed from the\n"
3930 " left end. If the set of characters is a string, surrogates will be\n"
3931 " properly handled."
3934 #: src/code/string.lisp
3936 "Given a set of characters (a list or string) and a string, returns\n"
3937 " a copy of the string with the characters in the set removed from the\n"
3938 " right end. If the set of characters is a string, surrogates will be\n"
3939 " properly handled."
3942 #: src/code/string.lisp
3944 "Given a set of characters (a list or string) and a string, returns a\n"
3945 " copy of the string with the characters in the set removed from both\n"
3946 " ends. If the set of characters is a string, surrogates will be\n"
3947 " properly handled."
3950 #: src/code/string.lisp
3952 "Given a set of characters (a list or string) and a string, returns\n"
3953 " a copy of the string with the characters in the set removed from the\n"
3957 #: src/code/string.lisp
3959 "Given a set of characters (a list or string) and a string, returns\n"
3960 " a copy of the string with the characters in the set removed from the\n"
3964 #: src/code/string.lisp
3966 "Given a set of characters (a list or string) and a string, returns a\n"
3967 " copy of the string with the characters in the set removed from both\n"
3971 #: src/code/string.lisp
3973 "GLYPH returns the glyph at the indexed position in a string, and the\n"
3974 " position of the next glyph (or NIL) as a second value. A glyph is\n"
3975 " a substring consisting of the character at INDEX followed by all\n"
3976 " subsequent combining characters."
3979 #: src/code/string.lisp
3981 "SGLYPH returns the glyph at the indexed position, the same as GLYPH,\n"
3982 " except that the string must be a simple-string"
3985 #: src/code/string.lisp
3987 "Convert String to Unicode Normalization Form D (NFD) using the\n"
3988 " canonical decomposition. The NFD string is returned"
3991 #: src/code/string.lisp
3993 "Convert String to Unicode Normalization Form KD (NFKD) uisng the\n"
3994 " compatible decomposition form. The NFKD string is returned."
3997 #: src/code/string.lisp
3999 "Convert String to Unicode Normalization Form C (NFC). If the\n"
4000 " string a simple string and is already normalized, the original\n"
4001 " string is returned."
4004 #: src/code/string.lisp
4006 "Convert String to Unicode Normalization Form KC (NFKC). If the\n"
4007 " string is a simple string and is already normalized, the original\n"
4008 " string is returned."
4011 #: src/code/string.lisp
4013 "Convert a sequence of codepoints to a string. Codepoints outside\n"
4014 " the basic multilingual plane (BMP) are converted into the\n"
4015 " corresponding surrogate pairs."
4018 #: src/code/string.lisp
4020 "Convert a string to a list of corresponding code points. Surrogate\n"
4021 " pairs in the string are converted into the correspoinding\n"
4025 #: src/code/mipsstrops.lisp
4027 "Compares the substrings specified by String1 and String2 and returns\n"
4028 "NIL if the strings are String=, or the lowest index of String1 in\n"
4029 "which the two differ. If one string is longer than the other and the\n"
4030 "shorter is a prefix of the longer, the length of the shorter + start1 is\n"
4031 "returned. This would be done on the Vax with CMPC3. The arguments must\n"
4032 "be simple strings."
4035 #: src/code/mipsstrops.lisp
4036 msgid "Like %sp-string-compare, only backwards."
4039 #: src/code/mipsstrops.lisp
4041 "%SP-Find-Character-With-Attribute String, Start, End, Table, Mask\n"
4042 " The codes of the characters of String from Start to End are used as "
4044 " into the Table, which is a U-Vector of 8-bit bytes. When the number "
4046 " up from the table bitwise ANDed with Mask is non-zero, the current\n"
4047 " index into the String is returned. The corresponds to SCANC on the Vax."
4050 #: src/code/mipsstrops.lisp
4051 msgid "Like %SP-Find-Character-With-Attribute, only sdrawkcaB."
4054 #: src/code/mipsstrops.lisp
4056 "%SP-Find-Character String, Start, End, Character\n"
4057 " Searches String for the Character from Start to End. If the character is\n"
4058 " found, the corresponding index into String is returned, otherwise NIL is\n"
4062 #: src/code/mipsstrops.lisp
4064 "%SP-Reverse-Find-Character String, Start, End, Character\n"
4065 " Searches String for Character from End to Start. If the character is\n"
4066 " found, the corresponding index into String is returned, otherwise NIL is\n"
4070 #: src/code/mipsstrops.lisp
4072 "%SP-Skip-Character String, Start, End, Character\n"
4073 " Returns the index of the first character between Start and End which\n"
4074 " is not Char= to Character, or NIL if there is no such character."
4077 #: src/code/mipsstrops.lisp
4079 "%SP-Skip-Character String, Start, End, Character\n"
4080 " Returns the index of the last character between Start and End which\n"
4081 " is not Char= to Character, or NIL if there is no such character."
4084 #: src/code/mipsstrops.lisp
4086 "%SP-String-Search String1, Start1, End1, String2, Start2, End2\n"
4087 " Searches for the substring of String1 specified in String2.\n"
4088 " Returns an index into String2 or NIL if the substring wasn't\n"
4092 #: src/code/symbol.lisp
4094 "VARIABLE must evaluate to a symbol. This symbol's current special\n"
4095 " value is returned."
4098 #: src/code/symbol.lisp
4100 "VARIABLE must evaluate to a symbol. Return NIL if this symbol is\n"
4101 " unbound, T if it has a value."