source: branches/working-0711/ccl/level-1/l1-cl-package.lisp @ 11832

Last change on this file since 11832 was 2326, checked in by bryan, 14 years ago

add (in-package "CCL") forms.

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