source: trunk/source/level-1/l1-cl-package.lisp @ 15237

Last change on this file since 15237 was 13067, checked in by rme, 10 years ago

Update copyright notices.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 22.1 KB
RevLine 
[6]1;;;-*- Mode: Lisp; Package: CCL -*-
2;;;
[13067]3;;;   Copyright (C) 2009 Clozure Associates
[6]4;;;   Copyright (C) 1994-2001 Digitool, Inc
[13066]5;;;   This file is part of Clozure CL. 
[6]6;;;
[13066]7;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
8;;;   License , known as the LLGPL and distributed with Clozure CL as the
[6]9;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
[13066]10;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
[6]11;;;   conflict, the preamble takes precedence. 
12;;;
[13066]13;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
[6]14;;;
15;;;   The LLGPL is also available online at
16;;;   http://opensource.franz.com/preamble.html
17
18; l1-cl-package.lisp
19
[2326]20(in-package "CCL")
[6]21
[2326]22
[6]23(eval-when (:compile-toplevel :execute)
24  (defconstant %lisp-symbols% 
25    '("&ALLOW-OTHER-KEYS" 
26      "&AUX" 
27      "&BODY" 
28      "&ENVIRONMENT" 
29      "&KEY" 
30      "&OPTIONAL" 
31      "&REST" 
32      "&WHOLE" 
33      "*" 
34      "**" 
35      "***" 
36      "*BREAK-ON-SIGNALS*" 
37      "*COMPILE-FILE-PATHNAME*" 
38      "*COMPILE-FILE-TRUENAME*" 
39      "*COMPILE-PRINT*" 
40      "*COMPILE-VERBOSE*" 
41      "*DEBUG-IO*" 
42      "*DEBUGGER-HOOK*" 
43      "*DEFAULT-PATHNAME-DEFAULTS*" 
44      "*ERROR-OUTPUT*" 
45      "*FEATURES*" 
46      "*GENSYM-COUNTER*" 
47      "*LOAD-PATHNAME*" 
48      "*LOAD-PRINT*" 
49      "*LOAD-TRUENAME*" 
50      "*LOAD-VERBOSE*" 
51      "*MACROEXPAND-HOOK*" 
52      "*MODULES*" 
53      "*PACKAGE*" 
54      "*PRINT-ARRAY*" 
55      "*PRINT-BASE*" 
56      "*PRINT-CASE*" 
57      "*PRINT-CIRCLE*" 
58      "*PRINT-ESCAPE*" 
59      "*PRINT-GENSYM*" 
60      "*PRINT-LENGTH*" 
61      "*PRINT-LEVEL*" 
62      "*PRINT-LINES*" 
63      "*PRINT-MISER-WIDTH*" 
64      "*PRINT-PPRINT-DISPATCH*" 
65      "*PRINT-PRETTY*" 
66      "*PRINT-RADIX*" 
67      "*PRINT-READABLY*" 
68      "*PRINT-RIGHT-MARGIN*" 
69      "*QUERY-IO*" 
70      "*RANDOM-STATE*" 
71      "*READ-BASE*" 
72      "*READ-DEFAULT-FLOAT-FORMAT*" 
73      "*READ-EVAL*" 
74      "*READ-SUPPRESS*" 
75      "*READTABLE*" 
76      "*STANDARD-INPUT*" 
77      "*STANDARD-OUTPUT*" 
78      "*TERMINAL-IO*" 
79      "*TRACE-OUTPUT*" 
80      "+" 
81      "++" 
82      "+++" 
83      "-" 
84      "/" 
85      "//" 
86      "///" 
87      "/=" 
88      "1+" 
89      "1-" 
90      "<" 
91      "<=" 
92      "=" 
93      ">" 
94      ">=" 
95      "ABORT" 
96      "ABS" 
97      "ACONS" 
98      "ACOS" 
99      "ACOSH" 
100      "ADD-METHOD" 
101      "ADJOIN" 
102      "ADJUST-ARRAY" 
103      "ADJUSTABLE-ARRAY-P" 
104      "ALLOCATE-INSTANCE" 
105      "ALPHA-CHAR-P" 
106      "ALPHANUMERICP" 
107      "AND" 
108      "APPEND" 
109      "APPLY" 
110      "APROPOS" 
111      "APROPOS-LIST" 
112      "AREF" 
113      "ARITHMETIC-ERROR" 
114      "ARITHMETIC-ERROR-OPERANDS" 
115      "ARITHMETIC-ERROR-OPERATION" 
116      "ARRAY" 
117      "ARRAY-DIMENSION" 
118      "ARRAY-DIMENSION-LIMIT" 
119      "ARRAY-DIMENSIONS" 
120      "ARRAY-DISPLACEMENT" 
121      "ARRAY-ELEMENT-TYPE" 
122      "ARRAY-HAS-FILL-POINTER-P" 
123      "ARRAY-IN-BOUNDS-P" 
124      "ARRAY-RANK" 
125      "ARRAY-RANK-LIMIT" 
126      "ARRAY-ROW-MAJOR-INDEX" 
127      "ARRAY-TOTAL-SIZE" 
128      "ARRAY-TOTAL-SIZE-LIMIT" 
129      "ARRAYP" 
130      "ASH" 
131      "ASIN" 
132      "ASINH" 
133      "ASSERT" 
134      "ASSOC" 
135      "ASSOC-IF" 
136      "ASSOC-IF-NOT" 
137      "ATAN" 
138      "ATANH" 
139      "ATOM" 
140      "BASE-CHAR" 
141      "BASE-STRING" 
142      "BIGNUM" 
143      "BIT" 
144      "BIT-AND" 
145      "BIT-ANDC1" 
146      "BIT-ANDC2" 
147      "BIT-EQV" 
148      "BIT-IOR" 
149      "BIT-NAND" 
150      "BIT-NOR" 
151      "BIT-NOT" 
152      "BIT-ORC1" 
153      "BIT-ORC2" 
154      "BIT-VECTOR" 
155      "BIT-VECTOR-P" 
156      "BIT-XOR" 
157      "BLOCK" 
158      "BOOLE" 
159      "BOOLE-1" 
160      "BOOLE-2" 
161      "BOOLE-AND" 
162      "BOOLE-ANDC1" 
163      "BOOLE-ANDC2" 
164      "BOOLE-C1" 
165      "BOOLE-C2" 
166      "BOOLE-CLR" 
167      "BOOLE-EQV" 
168      "BOOLE-IOR" 
169      "BOOLE-NAND" 
170      "BOOLE-NOR" 
171      "BOOLE-ORC1" 
172      "BOOLE-ORC2" 
173      "BOOLE-SET" 
174      "BOOLE-XOR" 
175      "BOOLEAN" 
176      "BOTH-CASE-P" 
177      "BOUNDP" 
178      "BREAK" 
179      "BROADCAST-STREAM" 
180      "BROADCAST-STREAM-STREAMS" 
181      "BUILT-IN-CLASS" 
182      "BUTLAST" 
183      "BYTE" 
184      "BYTE-POSITION" 
185      "BYTE-SIZE" 
186      "CAAAAR" 
187      "CAAADR" 
188      "CAAAR" 
189      "CAADAR" 
190      "CAADDR" 
191      "CAADR" 
192      "CAAR" 
193      "CADAAR" 
194      "CADADR" 
195      "CADAR" 
196      "CADDAR" 
197      "CADDDR" 
198      "CADDR" 
199      "CADR" 
200      "CALL-ARGUMENTS-LIMIT" 
201      "CALL-METHOD" 
202      "CALL-NEXT-METHOD" 
203      "CAR" 
204      "CASE" 
205      "CATCH" 
206      "CCASE" 
207      "CDAAAR" 
208      "CDAADR" 
209      "CDAAR" 
210      "CDADAR" 
211      "CDADDR" 
212      "CDADR" 
213      "CDAR" 
214      "CDDAAR" 
215      "CDDADR" 
216      "CDDAR" 
217      "CDDDAR" 
218      "CDDDDR" 
219      "CDDDR" 
220      "CDDR" 
221      "CDR" 
222      "CEILING" 
223      "CELL-ERROR" 
224      "CELL-ERROR-NAME" 
225      "CERROR" 
226      "CHANGE-CLASS" 
227      "CHAR" 
228      "CHAR-CODE" 
229      "CHAR-CODE-LIMIT" 
230      "CHAR-DOWNCASE" 
231      "CHAR-EQUAL" 
232      "CHAR-GREATERP" 
233      "CHAR-INT" 
234      "CHAR-LESSP" 
235      "CHAR-NAME" 
236      "CHAR-NOT-EQUAL" 
237      "CHAR-NOT-GREATERP" 
238      "CHAR-NOT-LESSP" 
239      "CHAR-UPCASE" 
240      "CHAR/=" 
241      "CHAR<" 
242      "CHAR<=" 
243      "CHAR=" 
244      "CHAR>" 
245      "CHAR>=" 
246      "CHARACTER" 
247      "CHARACTERP" 
248      "CHECK-TYPE" 
249      "CIS" 
250      "CLASS" 
251      "CLASS-NAME" 
252      "CLASS-OF" 
253      "CLEAR-INPUT" 
254      "CLEAR-OUTPUT" 
255      "CLOSE" 
256      "CLRHASH" 
257      "CODE-CHAR" 
258      "COERCE" 
259      "COMPILATION-SPEED" 
260      "COMPILE" 
261      "COMPILE-FILE" 
262      "COMPILE-FILE-PATHNAME" 
263      "COMPILED-FUNCTION" 
264      "COMPILED-FUNCTION-P" 
265      "COMPILER-MACRO" 
266      "COMPILER-MACRO-FUNCTION" 
267      "COMPLEMENT" 
268      "COMPLEX" 
269      "COMPLEXP" 
270      "COMPUTE-APPLICABLE-METHODS" 
271      "COMPUTE-RESTARTS" 
272      "CONCATENATE" 
273      "CONCATENATED-STREAM" 
274      "CONCATENATED-STREAM-STREAMS" 
275      "COND" 
276      "CONDITION" 
277      "CONJUGATE" 
278      "CONS" 
279      "CONSP" 
280      "CONSTANTLY" 
281      "CONSTANTP" 
282      "CONTINUE" 
283      "CONTROL-ERROR" 
284      "COPY-ALIST" 
285      "COPY-LIST" 
286      "COPY-PPRINT-DISPATCH" 
287      "COPY-READTABLE" 
288      "COPY-SEQ" 
289      "COPY-STRUCTURE" 
290      "COPY-SYMBOL" 
291      "COPY-TREE" 
292      "COS" 
293      "COSH" 
294      "COUNT" 
295      "COUNT-IF" 
296      "COUNT-IF-NOT" 
297      "CTYPECASE" 
298      "DEBUG" 
299      "DECF" 
300      "DECLAIM" 
301      "DECLARATION" 
302      "DECLARE" 
303      "DECODE-FLOAT" 
304      "DECODE-UNIVERSAL-TIME" 
305      "DEFCLASS" 
306      "DEFCONSTANT" 
307      "DEFGENERIC" 
308      "DEFINE-COMPILER-MACRO" 
309      "DEFINE-CONDITION" 
310      "DEFINE-METHOD-COMBINATION" 
311      "DEFINE-MODIFY-MACRO" 
312      "DEFINE-SETF-EXPANDER" 
313      "DEFINE-SYMBOL-MACRO" 
314      "DEFMACRO" 
315      "DEFMETHOD" 
316      "DEFPACKAGE" 
317      "DEFPARAMETER" 
318      "DEFSETF" 
319      "DEFSTRUCT" 
320      "DEFTYPE" 
321      "DEFUN" 
322      "DEFVAR" 
323      "DELETE" 
324      "DELETE-DUPLICATES" 
325      "DELETE-FILE" 
326      "DELETE-IF" 
327      "DELETE-IF-NOT" 
328      "DELETE-PACKAGE" 
329      "DENOMINATOR" 
330      "DEPOSIT-FIELD" 
331      "DESCRIBE" 
332      "DESCRIBE-OBJECT" 
333      "DESTRUCTURING-BIND" 
334      "DIGIT-CHAR" 
335      "DIGIT-CHAR-P" 
336      "DIRECTORY" 
337      "DIRECTORY-NAMESTRING" 
338      "DISASSEMBLE" 
339      "DIVISION-BY-ZERO" 
340      "DO" 
341      "DO*" 
342      "DO-ALL-SYMBOLS" 
343      "DO-EXTERNAL-SYMBOLS" 
344      "DO-SYMBOLS" 
345      "DOCUMENTATION" 
346      "DOLIST" 
347      "DOTIMES" 
348      "DOUBLE-FLOAT" 
349      "DOUBLE-FLOAT-EPSILON" 
350      "DOUBLE-FLOAT-NEGATIVE-EPSILON" 
351      "DPB" 
352      "DRIBBLE" 
353      "DYNAMIC-EXTENT" 
354      "ECASE" 
355      "ECHO-STREAM" 
356      "ECHO-STREAM-INPUT-STREAM" 
357      "ECHO-STREAM-OUTPUT-STREAM" 
358      "ED" 
359      "EIGHTH" 
360      "ELT" 
361      "ENCODE-UNIVERSAL-TIME" 
362      "END-OF-FILE" 
363      "ENDP" 
364      "ENOUGH-NAMESTRING" 
365      "ENSURE-DIRECTORIES-EXIST" 
366      "ENSURE-GENERIC-FUNCTION" 
367      "EQ" 
368      "EQL" 
369      "EQUAL" 
370      "EQUALP" 
371      "ERROR" 
372      "ETYPECASE" 
373      "EVAL" 
374      "EVAL-WHEN" 
375      "EVENP" 
376      "EVERY" 
377      "EXP" 
378      "EXPORT" 
379      "EXPT" 
380      "EXTENDED-CHAR" 
381      "FBOUNDP" 
382      "FCEILING" 
383      "FDEFINITION" 
384      "FFLOOR" 
385      "FIFTH" 
386      "FILE-AUTHOR" 
387      "FILE-ERROR" 
388      "FILE-ERROR-PATHNAME" 
389      "FILE-LENGTH" 
390      "FILE-NAMESTRING" 
391      "FILE-POSITION" 
392      "FILE-STREAM" 
393      "FILE-STRING-LENGTH" 
394      "FILE-WRITE-DATE" 
395      "FILL" 
396      "FILL-POINTER" 
397      "FIND" 
398      "FIND-ALL-SYMBOLS" 
399      "FIND-CLASS" 
400      "FIND-IF" 
401      "FIND-IF-NOT" 
402      "FIND-METHOD" 
403      "FIND-PACKAGE" 
404      "FIND-RESTART" 
405      "FIND-SYMBOL" 
406      "FINISH-OUTPUT" 
407      "FIRST" 
408      "FIXNUM" 
409      "FLET" 
410      "FLOAT" 
411      "FLOAT-DIGITS" 
412      "FLOAT-PRECISION" 
413      "FLOAT-RADIX" 
414      "FLOAT-SIGN" 
415      "FLOATING-POINT-INEXACT" 
416      "FLOATING-POINT-INVALID-OPERATION" 
417      "FLOATING-POINT-OVERFLOW" 
418      "FLOATING-POINT-UNDERFLOW" 
419      "FLOATP" 
420      "FLOOR" 
421      "FMAKUNBOUND" 
422      "FORCE-OUTPUT" 
423      "FORMAT" 
424      "FORMATTER" 
425      "FOURTH" 
426      "FRESH-LINE" 
427      "FROUND" 
428      "FTRUNCATE" 
429      "FTYPE" 
430      "FUNCALL" 
431      "FUNCTION" 
432      "FUNCTION-KEYWORDS" 
433      "FUNCTION-LAMBDA-EXPRESSION" 
434      "FUNCTIONP" 
435      "GCD" 
436      "GENERIC-FUNCTION" 
437      "GENSYM" 
438      "GENTEMP" 
439      "GET" 
440      "GET-DECODED-TIME" 
441      "GET-DISPATCH-MACRO-CHARACTER" 
442      "GET-INTERNAL-REAL-TIME" 
443      "GET-INTERNAL-RUN-TIME" 
444      "GET-MACRO-CHARACTER" 
445      "GET-OUTPUT-STREAM-STRING" 
446      "GET-PROPERTIES" 
447      "GET-SETF-EXPANSION" 
448      "GET-UNIVERSAL-TIME" 
449      "GETF" 
450      "GETHASH" 
451      "GO" 
452      "GRAPHIC-CHAR-P" 
453      "HANDLER-BIND" 
454      "HANDLER-CASE" 
455      "HASH-TABLE" 
456      "HASH-TABLE-COUNT" 
457      "HASH-TABLE-P" 
458      "HASH-TABLE-REHASH-SIZE" 
459      "HASH-TABLE-REHASH-THRESHOLD" 
460      "HASH-TABLE-SIZE" 
461      "HASH-TABLE-TEST" 
462      "HOST-NAMESTRING" 
463      "IDENTITY" 
464      "IF" 
465      "IGNORABLE" 
466      "IGNORE" 
467      "IGNORE-ERRORS" 
468      "IMAGPART" 
469      "IMPORT" 
470      "IN-PACKAGE" 
471      "INCF" 
472      "INITIALIZE-INSTANCE" 
473      "INLINE" 
474      "INPUT-STREAM-P" 
475      "INSPECT" 
476      "INTEGER" 
477      "INTEGER-DECODE-FLOAT" 
478      "INTEGER-LENGTH" 
479      "INTEGERP" 
480      "INTERACTIVE-STREAM-P" 
481      "INTERN" 
482      "INTERNAL-TIME-UNITS-PER-SECOND" 
483      "INTERSECTION" 
484      "INVALID-METHOD-ERROR" 
485      "INVOKE-DEBUGGER" 
486      "INVOKE-RESTART" 
487      "INVOKE-RESTART-INTERACTIVELY" 
488      "ISQRT" 
489      "KEYWORD" 
490      "KEYWORDP" 
491      "LABELS" 
492      "LAMBDA" 
493      "LAMBDA-LIST-KEYWORDS" 
494      "LAMBDA-PARAMETERS-LIMIT" 
495      "LAST" 
496      "LCM" 
497      "LDB" 
498      "LDB-TEST" 
499      "LDIFF" 
500      "LEAST-NEGATIVE-DOUBLE-FLOAT" 
501      "LEAST-NEGATIVE-LONG-FLOAT" 
502      "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT" 
503      "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" 
504      "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT" 
505      "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" 
506      "LEAST-NEGATIVE-SHORT-FLOAT" 
507      "LEAST-NEGATIVE-SINGLE-FLOAT" 
508      "LEAST-POSITIVE-DOUBLE-FLOAT" 
509      "LEAST-POSITIVE-LONG-FLOAT" 
510      "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT" 
511      "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" 
512      "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT" 
513      "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" 
514      "LEAST-POSITIVE-SHORT-FLOAT" 
515      "LEAST-POSITIVE-SINGLE-FLOAT" 
516      "LENGTH" 
517      "LET" 
518      "LET*" 
519      "LISP-IMPLEMENTATION-TYPE" 
520      "LISP-IMPLEMENTATION-VERSION" 
521      "LIST" 
522      "LIST*" 
523      "LIST-ALL-PACKAGES" 
524      "LIST-LENGTH" 
525      "LISTEN" 
526      "LISTP" 
527      "LOAD" 
528      "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" 
529      "LOAD-TIME-VALUE" 
530      "LOCALLY" 
531      "LOG" 
532      "LOGAND" 
533      "LOGANDC1" 
534      "LOGANDC2" 
535      "LOGBITP" 
536      "LOGCOUNT" 
537      "LOGEQV" 
538      "LOGICAL-PATHNAME" 
539      "LOGICAL-PATHNAME-TRANSLATIONS" 
540      "LOGIOR" 
541      "LOGNAND" 
542      "LOGNOR" 
543      "LOGNOT" 
544      "LOGORC1" 
545      "LOGORC2" 
546      "LOGTEST" 
547      "LOGXOR" 
548      "LONG-FLOAT" 
549      "LONG-FLOAT-EPSILON" 
550      "LONG-FLOAT-NEGATIVE-EPSILON" 
551      "LONG-SITE-NAME" 
552      "LOOP" 
553      "LOOP-FINISH" 
554      "LOWER-CASE-P" 
555      "MACHINE-INSTANCE" 
556      "MACHINE-TYPE" 
557      "MACHINE-VERSION" 
558      "MACRO-FUNCTION" 
559      "MACROEXPAND" 
560      "MACROEXPAND-1" 
561      "MACROLET" 
562      "MAKE-ARRAY" 
563      "MAKE-BROADCAST-STREAM" 
564      "MAKE-CONCATENATED-STREAM" 
565      "MAKE-CONDITION" 
566      "MAKE-DISPATCH-MACRO-CHARACTER" 
567      "MAKE-ECHO-STREAM" 
568      "MAKE-HASH-TABLE" 
569      "MAKE-INSTANCE" 
570      "MAKE-INSTANCES-OBSOLETE" 
571      "MAKE-LIST" 
572      "MAKE-LOAD-FORM" 
573      "MAKE-LOAD-FORM-SAVING-SLOTS" 
574      "MAKE-METHOD" 
575      "MAKE-PACKAGE" 
576      "MAKE-PATHNAME" 
577      "MAKE-RANDOM-STATE" 
578      "MAKE-SEQUENCE" 
579      "MAKE-STRING" 
580      "MAKE-STRING-INPUT-STREAM" 
581      "MAKE-STRING-OUTPUT-STREAM" 
582      "MAKE-SYMBOL" 
583      "MAKE-SYNONYM-STREAM" 
584      "MAKE-TWO-WAY-STREAM" 
585      "MAKUNBOUND" 
586      "MAP" 
587      "MAP-INTO" 
588      "MAPC" 
589      "MAPCAN" 
590      "MAPCAR" 
591      "MAPCON" 
592      "MAPHASH" 
593      "MAPL" 
594      "MAPLIST" 
595      "MASK-FIELD" 
596      "MAX" 
597      "MEMBER" 
598      "MEMBER-IF" 
599      "MEMBER-IF-NOT" 
600      "MERGE" 
601      "MERGE-PATHNAMES" 
602      "METHOD" 
603      "METHOD-COMBINATION" 
604      "METHOD-COMBINATION-ERROR" 
605      "METHOD-QUALIFIERS" 
606      "MIN" 
607      "MINUSP" 
608      "MISMATCH" 
609      "MOD" 
610      "MOST-NEGATIVE-DOUBLE-FLOAT" 
611      "MOST-NEGATIVE-FIXNUM" 
612      "MOST-NEGATIVE-LONG-FLOAT" 
613      "MOST-NEGATIVE-SHORT-FLOAT" 
614      "MOST-NEGATIVE-SINGLE-FLOAT" 
615      "MOST-POSITIVE-DOUBLE-FLOAT" 
616      "MOST-POSITIVE-FIXNUM" 
617      "MOST-POSITIVE-LONG-FLOAT" 
618      "MOST-POSITIVE-SHORT-FLOAT" 
619      "MOST-POSITIVE-SINGLE-FLOAT" 
620      "MUFFLE-WARNING" 
621      "MULTIPLE-VALUE-BIND" 
622      "MULTIPLE-VALUE-CALL" 
623      "MULTIPLE-VALUE-LIST" 
624      "MULTIPLE-VALUE-PROG1" 
625      "MULTIPLE-VALUE-SETQ" 
626      "MULTIPLE-VALUES-LIMIT" 
627      "NAME-CHAR" 
628      "NAMESTRING" 
629      "NBUTLAST" 
630      "NCONC" 
631      "NEXT-METHOD-P" 
632      "NIL" 
633      "NINTERSECTION" 
634      "NINTH" 
635      "NO-APPLICABLE-METHOD" 
636      "NO-NEXT-METHOD" 
637      "NOT" 
638      "NOTANY" 
639      "NOTEVERY" 
640      "NOTINLINE" 
641      "NRECONC" 
642      "NREVERSE" 
643      "NSET-DIFFERENCE" 
644      "NSET-EXCLUSIVE-OR" 
645      "NSTRING-CAPITALIZE" 
646      "NSTRING-DOWNCASE" 
647      "NSTRING-UPCASE" 
648      "NSUBLIS" 
649      "NSUBST" 
650      "NSUBST-IF" 
651      "NSUBST-IF-NOT" 
652      "NSUBSTITUTE" 
653      "NSUBSTITUTE-IF" 
654      "NSUBSTITUTE-IF-NOT" 
655      "NTH" 
656      "NTH-VALUE" 
657      "NTHCDR" 
658      "NULL" 
659      "NUMBER" 
660      "NUMBERP" 
661      "NUMERATOR" 
662      "NUNION" 
663      "ODDP" 
664      "OPEN" 
665      "OPEN-STREAM-P" 
666      "OPTIMIZE" 
667      "OR" 
668      "OTHERWISE" 
669      "OUTPUT-STREAM-P" 
670      "PACKAGE" 
671      "PACKAGE-ERROR" 
672      "PACKAGE-ERROR-PACKAGE" 
673      "PACKAGE-NAME" 
674      "PACKAGE-NICKNAMES" 
675      "PACKAGE-SHADOWING-SYMBOLS" 
676      "PACKAGE-USE-LIST" 
677      "PACKAGE-USED-BY-LIST" 
678      "PACKAGEP" 
679      "PAIRLIS" 
680      "PARSE-ERROR" 
681      "PARSE-INTEGER" 
682      "PARSE-NAMESTRING" 
683      "PATHNAME" 
684      "PATHNAME-DEVICE" 
685      "PATHNAME-DIRECTORY" 
686      "PATHNAME-HOST" 
687      "PATHNAME-MATCH-P" 
688      "PATHNAME-NAME" 
689      "PATHNAME-TYPE" 
690      "PATHNAME-VERSION" 
691      "PATHNAMEP" 
692      "PEEK-CHAR" 
693      "PHASE" 
694      "PI" 
695      "PLUSP" 
696      "POP" 
697      "POSITION" 
698      "POSITION-IF" 
699      "POSITION-IF-NOT" 
700      "PPRINT" 
701      "PPRINT-DISPATCH" 
702      "PPRINT-EXIT-IF-LIST-EXHAUSTED" 
703      "PPRINT-FILL" 
704      "PPRINT-INDENT" 
705      "PPRINT-LINEAR" 
706      "PPRINT-LOGICAL-BLOCK" 
707      "PPRINT-NEWLINE" 
708      "PPRINT-POP" 
709      "PPRINT-TAB" 
710      "PPRINT-TABULAR" 
711      "PRIN1" 
712      "PRIN1-TO-STRING" 
713      "PRINC" 
714      "PRINC-TO-STRING" 
715      "PRINT" 
716      "PRINT-NOT-READABLE" 
717      "PRINT-NOT-READABLE-OBJECT" 
718      "PRINT-OBJECT" 
719      "PRINT-UNREADABLE-OBJECT" 
720      "PROBE-FILE" 
721      "PROCLAIM" 
722      "PROG" 
723      "PROG*" 
724      "PROG1" 
725      "PROG2" 
726      "PROGN" 
727      "PROGRAM-ERROR" 
728      "PROGV" 
729      "PROVIDE" 
730      "PSETF" 
731      "PSETQ" 
732      "PUSH" 
733      "PUSHNEW" 
734      "QUOTE" 
735      "RANDOM" 
736      "RANDOM-STATE" 
737      "RANDOM-STATE-P" 
738      "RASSOC" 
739      "RASSOC-IF" 
740      "RASSOC-IF-NOT" 
741      "RATIO" 
742      "RATIONAL" 
743      "RATIONALIZE" 
744      "RATIONALP" 
745      "READ" 
746      "READ-BYTE" 
747      "READ-CHAR" 
748      "READ-CHAR-NO-HANG" 
749      "READ-DELIMITED-LIST" 
750      "READ-FROM-STRING" 
751      "READ-LINE" 
752      "READ-PRESERVING-WHITESPACE" 
753      "READ-SEQUENCE" 
754      "READER-ERROR" 
755      "READTABLE" 
756      "READTABLE-CASE" 
757      "READTABLEP" 
758      "REAL" 
759      "REALP" 
760      "REALPART" 
761      "REDUCE" 
762      "REINITIALIZE-INSTANCE" 
763      "REM" 
764      "REMF" 
765      "REMHASH" 
766      "REMOVE" 
767      "REMOVE-DUPLICATES" 
768      "REMOVE-IF" 
769      "REMOVE-IF-NOT" 
770      "REMOVE-METHOD" 
771      "REMPROP" 
772      "RENAME-FILE" 
773      "RENAME-PACKAGE" 
774      "REPLACE" 
775      "REQUIRE" 
776      "REST" 
777      "RESTART" 
778      "RESTART-BIND" 
779      "RESTART-CASE" 
780      "RESTART-NAME" 
781      "RETURN" 
782      "RETURN-FROM" 
783      "REVAPPEND" 
784      "REVERSE" 
785      "ROOM" 
786      "ROTATEF" 
787      "ROUND" 
788      "ROW-MAJOR-AREF" 
789      "RPLACA" 
790      "RPLACD" 
791      "SAFETY" 
792      "SATISFIES" 
793      "SBIT" 
794      "SCALE-FLOAT" 
795      "SCHAR" 
796      "SEARCH" 
797      "SECOND" 
798      "SEQUENCE" 
799      "SERIOUS-CONDITION" 
800      "SET" 
801      "SET-DIFFERENCE" 
802      "SET-DISPATCH-MACRO-CHARACTER" 
803      "SET-EXCLUSIVE-OR" 
804      "SET-MACRO-CHARACTER" 
805      "SET-PPRINT-DISPATCH" 
806      "SET-SYNTAX-FROM-CHAR" 
807      "SETF" 
808      "SETQ" 
809      "SEVENTH" 
810      "SHADOW" 
811      "SHADOWING-IMPORT" 
812      "SHARED-INITIALIZE" 
813      "SHIFTF" 
814      "SHORT-FLOAT" 
815      "SHORT-FLOAT-EPSILON" 
816      "SHORT-FLOAT-NEGATIVE-EPSILON" 
817      "SHORT-SITE-NAME" 
818      "SIGNAL" 
819      "SIGNED-BYTE" 
820      "SIGNUM" 
821      "SIMPLE-ARRAY" 
822      "SIMPLE-BASE-STRING" 
823      "SIMPLE-BIT-VECTOR" 
824      "SIMPLE-BIT-VECTOR-P" 
825      "SIMPLE-CONDITION" 
826      "SIMPLE-CONDITION-FORMAT-ARGUMENTS" 
827      "SIMPLE-CONDITION-FORMAT-CONTROL" 
828      "SIMPLE-ERROR" 
829      "SIMPLE-STRING" 
830      "SIMPLE-STRING-P" 
831      "SIMPLE-TYPE-ERROR" 
832      "SIMPLE-VECTOR" 
833      "SIMPLE-VECTOR-P" 
834      "SIMPLE-WARNING" 
835      "SIN" 
836      "SINGLE-FLOAT" 
837      "SINGLE-FLOAT-EPSILON" 
838      "SINGLE-FLOAT-NEGATIVE-EPSILON" 
839      "SINH" 
840      "SIXTH" 
841      "SLEEP" 
842      "SLOT-BOUNDP" 
843      "SLOT-EXISTS-P" 
844      "SLOT-MAKUNBOUND" 
845      "SLOT-MISSING" 
846      "SLOT-UNBOUND" 
847      "SLOT-VALUE" 
848      "SOFTWARE-TYPE" 
849      "SOFTWARE-VERSION" 
850      "SOME" 
851      "SORT" 
852      "SPACE" 
853      "SPECIAL" 
854      "SPECIAL-OPERATOR-P" 
855      "SPEED" 
856      "SQRT" 
857      "STABLE-SORT" 
858      "STANDARD" 
859      "STANDARD-CHAR" 
860      "STANDARD-CHAR-P" 
861      "STANDARD-CLASS" 
862      "STANDARD-GENERIC-FUNCTION" 
863      "STANDARD-METHOD" 
864      "STANDARD-OBJECT" 
865      "STEP" 
866      "STORAGE-CONDITION" 
867      "STORE-VALUE" 
868      "STREAM" 
869      "STREAM-ELEMENT-TYPE" 
870      "STREAM-ERROR" 
871      "STREAM-ERROR-STREAM" 
872      "STREAM-EXTERNAL-FORMAT" 
873      "STREAMP" 
874      "STRING" 
875      "STRING-CAPITALIZE" 
876      "STRING-DOWNCASE" 
877      "STRING-EQUAL" 
878      "STRING-GREATERP" 
879      "STRING-LEFT-TRIM" 
880      "STRING-LESSP" 
881      "STRING-NOT-EQUAL" 
882      "STRING-NOT-GREATERP" 
883      "STRING-NOT-LESSP" 
884      "STRING-RIGHT-TRIM" 
885      "STRING-STREAM" 
886      "STRING-TRIM" 
887      "STRING-UPCASE" 
888      "STRING/=" 
889      "STRING<" 
890      "STRING<=" 
891      "STRING=" 
892      "STRING>" 
893      "STRING>=" 
894      "STRINGP" 
895      "STRUCTURE" 
896      "STRUCTURE-CLASS" 
897      "STRUCTURE-OBJECT" 
898      "STYLE-WARNING" 
899      "SUBLIS" 
900      "SUBSEQ" 
901      "SUBSETP" 
902      "SUBST" 
903      "SUBST-IF" 
904      "SUBST-IF-NOT" 
905      "SUBSTITUTE" 
906      "SUBSTITUTE-IF" 
907      "SUBSTITUTE-IF-NOT" 
908      "SUBTYPEP" 
909      "SVREF" 
910      "SXHASH" 
911      "SYMBOL" 
912      "SYMBOL-FUNCTION" 
913      "SYMBOL-MACROLET" 
914      "SYMBOL-NAME" 
915      "SYMBOL-PACKAGE" 
916      "SYMBOL-PLIST" 
917      "SYMBOL-VALUE" 
918      "SYMBOLP" 
919      "SYNONYM-STREAM" 
920      "SYNONYM-STREAM-SYMBOL" 
921      "T" 
922      "TAGBODY" 
923      "TAILP" 
924      "TAN" 
925      "TANH" 
926      "TENTH" 
927      "TERPRI" 
928      "THE" 
929      "THIRD" 
930      "THROW" 
931      "TIME" 
932      "TRACE" 
933      "TRANSLATE-LOGICAL-PATHNAME" 
934      "TRANSLATE-PATHNAME" 
935      "TREE-EQUAL" 
936      "TRUENAME" 
937      "TRUNCATE" 
938      "TWO-WAY-STREAM" 
939      "TWO-WAY-STREAM-INPUT-STREAM" 
940      "TWO-WAY-STREAM-OUTPUT-STREAM" 
941      "TYPE" 
942      "TYPE-ERROR" 
943      "TYPE-ERROR-DATUM" 
944      "TYPE-ERROR-EXPECTED-TYPE" 
945      "TYPE-OF" 
946      "TYPECASE" 
947      "TYPEP" 
948      "UNBOUND-SLOT" 
949      "UNBOUND-SLOT-INSTANCE" 
950      "UNBOUND-VARIABLE" 
951      "UNDEFINED-FUNCTION" 
952      "UNEXPORT" 
953      "UNINTERN" 
954      "UNION" 
955      "UNLESS" 
956      "UNREAD-CHAR" 
957      "UNSIGNED-BYTE" 
958      "UNTRACE" 
959      "UNUSE-PACKAGE" 
960      "UNWIND-PROTECT" 
961      "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS" 
962      "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" 
963      "UPGRADED-ARRAY-ELEMENT-TYPE" 
964      "UPGRADED-COMPLEX-PART-TYPE" 
965      "UPPER-CASE-P" 
966      "USE-PACKAGE" 
967      "USE-VALUE" 
968      "USER-HOMEDIR-PATHNAME" 
969      "VALUES" 
970      "VALUES-LIST" 
971      "VARIABLE" 
972      "VECTOR" 
973      "VECTOR-POP" 
974      "VECTOR-PUSH" 
975      "VECTOR-PUSH-EXTEND" 
976      "VECTORP" 
977      "WARN" 
978      "WARNING" 
979      "WHEN" 
980      "WILD-PATHNAME-P" 
981      "WITH-ACCESSORS" 
982      "WITH-COMPILATION-UNIT" 
983      "WITH-CONDITION-RESTARTS" 
984      "WITH-HASH-TABLE-ITERATOR" 
985      "WITH-INPUT-FROM-STRING" 
986      "WITH-OPEN-FILE" 
987      "WITH-OPEN-STREAM" 
988      "WITH-OUTPUT-TO-STRING" 
989      "WITH-PACKAGE-ITERATOR" 
990      "WITH-SIMPLE-RESTART" 
991      "WITH-SLOTS" 
992      "WITH-STANDARD-IO-SYNTAX" 
993      "WRITE" 
994      "WRITE-BYTE" 
995      "WRITE-CHAR" 
996      "WRITE-LINE" 
997      "WRITE-SEQUENCE" 
998      "WRITE-STRING" 
999      "WRITE-TO-STRING" 
1000      "Y-OR-N-P" 
1001      "YES-OR-NO-P" 
1002      "ZEROP"
1003      )
1004    ))
1005
1006(let* ((pkg *common-lisp-package*)
1007       (etab (pkg.etab pkg))
1008       (itab (pkg.itab pkg)))
1009  (without-interrupts
1010   (dolist (name '#.%lisp-symbols%)
1011     (let* ((namelen (length name)))
1012       (multiple-value-bind (found-int symbol int-offset)
1013                            (%get-htab-symbol name namelen itab)
1014         (multiple-value-bind (found-ext ignore ext-offset)
1015                              (%get-htab-symbol name namelen etab)
1016           (declare (ignore ignore))
1017           (if found-int                ; This shouldn't happen.
1018             (progn
1019               (setf (%svref (car itab) int-offset) (%unbound-marker-8))
1020               (%htab-add-symbol symbol etab ext-offset))
1021             (unless found-ext
1022               (%add-symbol name pkg int-offset ext-offset t)))))))))
Note: See TracBrowser for help on using the repository browser.