source: release/1.9/source/library/lisp-package.lisp @ 15706

Last change on this file since 15706 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: 36.9 KB
Line 
1;;;-*-Mode: LISP; Package: ccl -*-
2;;;
3;;;   Copyright (C) 2009 Clozure Associates
4;;;   Copyright (C) 1994-2001 Digitool, Inc
5;;;   This file is part of Clozure CL. 
6;;;
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
9;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
10;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
11;;;   conflict, the preamble takes precedence. 
12;;;
13;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
14;;;
15;;;   The LLGPL is also available online at
16;;;   http://opensource.franz.com/preamble.html
17
18; lisp-package.lisp
19; Define a lisp package that attempts to behave like CLTL-1.
20
21(in-package "CCL")
22
23(defpackage "LISP"
24  (:use )
25  (:import-from "COMMON-LISP"
26                "&ALLOW-OTHER-KEYS"
27                "&AUX"
28                "&BODY"
29                "&ENVIRONMENT"
30                "&KEY"
31                "&OPTIONAL"
32                "&REST"
33                "&WHOLE"
34                "*"
35                "**"
36                "***"
37                "*DEBUG-IO*"
38                "*DEFAULT-PATHNAME-DEFAULTS*"
39                "*ERROR-OUTPUT*"
40                "*FEATURES*"
41                "*LOAD-VERBOSE*"
42                "*MACROEXPAND-HOOK*"
43                "*PACKAGE*"
44                "*PRINT-ARRAY*"
45                "*PRINT-BASE*"
46                "*PRINT-CASE*"
47                "*PRINT-CIRCLE*"
48                "*PRINT-ESCAPE*"
49                "*PRINT-GENSYM*"
50                "*PRINT-LENGTH*"
51                "*PRINT-LEVEL*"
52                "*PRINT-PRETTY*"
53                "*PRINT-RADIX*"
54                "*QUERY-IO*"
55                "*RANDOM-STATE*"
56                "*READ-BASE*"
57                "*READ-DEFAULT-FLOAT-FORMAT*"
58                "*READ-SUPPRESS*"
59                "*READTABLE*"
60                "*STANDARD-INPUT*"
61                "*STANDARD-OUTPUT*"
62                "*TERMINAL-IO*"
63                "*TRACE-OUTPUT*"
64                "+"
65                "++"
66                "+++"
67                "-"
68                "/"
69                "//"
70                "///"
71                "/="
72                "1+"
73                "1-"
74                "<"
75                "<="
76                "="
77                ">"
78                ">="
79                "ABS"
80                "ACONS"
81                "ACOS"
82                "ACOSH"
83                "ADJOIN"
84                "ADJUST-ARRAY"
85                "ADJUSTABLE-ARRAY-P"
86                "ALPHA-CHAR-P"
87                "ALPHANUMERICP"
88                "AND"
89                "APPEND"
90                "APPLY"
91                "APROPOS"
92                "APROPOS-LIST"
93                "AREF"
94                "ARRAY"
95                "ARRAY-DIMENSION"
96                "ARRAY-DIMENSION-LIMIT"
97                "ARRAY-DIMENSIONS"
98                "ARRAY-ELEMENT-TYPE"
99                "ARRAY-HAS-FILL-POINTER-P"
100                "ARRAY-IN-BOUNDS-P"
101                "ARRAY-RANK"
102                "ARRAY-RANK-LIMIT"
103                "ARRAY-ROW-MAJOR-INDEX"
104                "ARRAY-TOTAL-SIZE"
105                "ARRAY-TOTAL-SIZE-LIMIT"
106                "ARRAYP"
107                "ASH"
108                "ASIN"
109                "ASINH"
110                "ASSERT"
111                "ASSOC"
112                "ASSOC-IF"
113                "ASSOC-IF-NOT"
114                "ATAN"
115                "ATANH"
116                "ATOM"
117                "BIGNUM"
118                "BIT"
119                "BIT-AND"
120                "BIT-ANDC1"
121                "BIT-ANDC2"
122                "BIT-EQV"
123                "BIT-IOR"
124                "BIT-NAND"
125                "BIT-NOR"
126                "BIT-NOT"
127                "BIT-ORC1"
128                "BIT-ORC2"
129                "BIT-VECTOR"
130                "BIT-VECTOR-P"
131                "BIT-XOR"
132                "BLOCK"
133                "BOOLE"
134                "BOOLE-1"
135                "BOOLE-2"
136                "BOOLE-AND"
137                "BOOLE-ANDC1"
138                "BOOLE-ANDC2"
139                "BOOLE-C1"
140                "BOOLE-C2"
141                "BOOLE-CLR"
142                "BOOLE-EQV"
143                "BOOLE-IOR"
144                "BOOLE-NAND"
145                "BOOLE-NOR"
146                "BOOLE-ORC1"
147                "BOOLE-ORC2"
148                "BOOLE-SET"
149                "BOOLE-XOR"
150                "BOTH-CASE-P"
151                "BOUNDP"
152                "BREAK"
153                "BUTLAST"
154                "BYTE"
155                "BYTE-POSITION"
156                "BYTE-SIZE"
157                "CAAAAR"
158                "CAAADR"
159                "CAAAR"
160                "CAADAR"
161                "CAADDR"
162                "CAADR"
163                "CAAR"
164                "CADAAR"
165                "CADADR"
166                "CADAR"
167                "CADDAR"
168                "CADDDR"
169                "CADDR"
170                "CADR"
171                "CALL-ARGUMENTS-LIMIT"
172                "CAR"
173                "CASE"
174                "CATCH"
175                "CCASE"
176                "CDAAAR"
177                "CDAADR"
178                "CDAAR"
179                "CDADAR"
180                "CDADDR"
181                "CDADR"
182                "CDAR"
183                "CDDAAR"
184                "CDDADR"
185                "CDDAR"
186                "CDDDAR"
187                "CDDDDR"
188                "CDDDR"
189                "CDDR"
190                "CDR"
191                "CEILING"
192                "CERROR"
193                "CHAR"
194                "CHAR-CODE"
195                "CHAR-CODE-LIMIT"
196                "CHAR-DOWNCASE"
197                "CHAR-EQUAL"
198;                "CHAR-FONT"
199                "CHAR-GREATERP"
200                "CHAR-INT"
201                "CHAR-LESSP"
202                "CHAR-NAME"
203                "CHAR-NOT-EQUAL"
204                "CHAR-NOT-GREATERP"
205                "CHAR-NOT-LESSP"
206                "CHAR-UPCASE"
207                "CHAR/="
208                "CHAR<"
209                "CHAR<="
210                "CHAR="
211                "CHAR>"
212                "CHAR>="
213                "CHARACTER"
214                "CHARACTERP"
215                "CHECK-TYPE"
216                "CIS"
217                "CLEAR-INPUT"
218                "CLEAR-OUTPUT"
219                "CLOSE"
220                "CLRHASH"
221                "CODE-CHAR"
222                "COERCE"
223                "COMPILATION-SPEED"
224                "COMPILE"
225                "COMPILE-FILE"
226                "COMPILED-FUNCTION"
227                "COMPILED-FUNCTION-P"
228                "COMPLEX"
229                "COMPLEXP"
230                "CONCATENATE"
231                "COND"
232                "CONJUGATE"
233                "CONS"
234                "CONSP"
235                "CONSTANTP"
236                "COPY-ALIST"
237                "COPY-LIST"
238                "COPY-READTABLE"
239                "COPY-SEQ"
240                "COPY-SYMBOL"
241                "COPY-TREE"
242                "COS"
243                "COSH"
244                "COUNT"
245                "COUNT-IF"
246                "COUNT-IF-NOT"
247                "CTYPECASE"
248                "DECF"
249                "DECLARATION"
250                "DECLARE"
251                "DECODE-FLOAT"
252                "DECODE-UNIVERSAL-TIME"
253                "DEFCONSTANT"
254                "DEFINE-MODIFY-MACRO"
255                "DEFMACRO"
256                "DEFPARAMETER"
257                "DEFSETF"
258                "DEFSTRUCT"
259                "DEFTYPE"
260                "DEFUN"
261                "DEFVAR"
262                "DELETE"
263                "DELETE-DUPLICATES"
264                "DELETE-FILE"
265                "DELETE-IF"
266                "DELETE-IF-NOT"
267                "DENOMINATOR"
268                "DEPOSIT-FIELD"
269                "DESCRIBE"
270                "DIGIT-CHAR-P"
271                "DIRECTORY"
272                "DIRECTORY-NAMESTRING"
273                "DISASSEMBLE"
274                "DO"
275                "DO*"
276                "DO-ALL-SYMBOLS"
277                "DO-EXTERNAL-SYMBOLS"
278                "DO-SYMBOLS"
279                "DOCUMENTATION"
280                "DOLIST"
281                "DOTIMES"
282                "DOUBLE-FLOAT"
283                "DOUBLE-FLOAT-EPSILON"
284                "DOUBLE-FLOAT-NEGATIVE-EPSILON"
285                "DPB"
286                "DRIBBLE"
287                "ECASE"
288                "ED"
289                "EIGHTH"
290                "ELT"
291                "ENCODE-UNIVERSAL-TIME"
292                "ENDP"
293                "ENOUGH-NAMESTRING"
294                "EQ"
295                "EQL"
296                "EQUAL"
297                "EQUALP"
298                "ERROR"
299                "ETYPECASE"
300                "EVAL"
301                "EVAL-WHEN"
302                "EVENP"
303                "EVERY"
304                "EXP"
305                "EXPT"
306                "FBOUNDP"
307                "FCEILING"
308                "FFLOOR"
309                "FIFTH"
310                "FILE-AUTHOR"
311                "FILE-LENGTH"
312                "FILE-NAMESTRING"
313                "FILE-POSITION"
314                "FILE-WRITE-DATE"
315                "FILL"
316                "FILL-POINTER"
317                "FIND"
318                "FIND-ALL-SYMBOLS"
319                "FIND-IF"
320                "FIND-IF-NOT"
321                "FIND-PACKAGE"
322                "FIND-SYMBOL"
323                "FINISH-OUTPUT"
324                "FIRST"
325                "FIXNUM"
326                "FLET"
327                "FLOAT"
328                "FLOAT-DIGITS"
329                "FLOAT-PRECISION"
330                "FLOAT-RADIX"
331                "FLOAT-SIGN"
332                "FLOATP"
333                "FLOOR"
334                "FMAKUNBOUND"
335                "FORCE-OUTPUT"
336                "FORMAT"
337                "FOURTH"
338                "FRESH-LINE"
339                "FROUND"
340                "FTRUNCATE"
341                "FTYPE"
342                "FUNCALL"
343                "FUNCTION"
344                "GCD"
345                "GENSYM"
346                "GENTEMP"
347                "GET"
348                "GET-DECODED-TIME"
349                "GET-DISPATCH-MACRO-CHARACTER"
350                "GET-INTERNAL-REAL-TIME"
351                "GET-INTERNAL-RUN-TIME"
352                "GET-MACRO-CHARACTER"
353                "GET-OUTPUT-STREAM-STRING"
354                "GET-PROPERTIES"
355                "GET-UNIVERSAL-TIME"
356                "GETF"
357                "GETHASH"
358                "GO"
359                "GRAPHIC-CHAR-P"
360                "HASH-TABLE"
361                "HASH-TABLE-COUNT"
362                "HASH-TABLE-P"
363                "HOST-NAMESTRING"
364                "IDENTITY"
365                "IF"
366                "IGNORE"
367                "IMAGPART"
368                "INCF"
369                "INLINE"
370                "INPUT-STREAM-P"
371                "INSPECT"
372                "INTEGER"
373                "INTEGER-DECODE-FLOAT"
374                "INTEGER-LENGTH"
375                "INTEGERP"
376                "INTERN"
377                "INTERNAL-TIME-UNITS-PER-SECOND"
378                "INTERSECTION"
379                "ISQRT"
380                "KEYWORD"
381                "KEYWORDP"
382                "LABELS"
383                "LAMBDA"
384                "LAMBDA-LIST-KEYWORDS"
385                "LAMBDA-PARAMETERS-LIMIT"
386                "LAST"
387                "LCM"
388                "LDB"
389                "LDB-TEST"
390                "LDIFF"
391                "LEAST-NEGATIVE-DOUBLE-FLOAT"
392                "LEAST-NEGATIVE-LONG-FLOAT"
393                "LEAST-NEGATIVE-SHORT-FLOAT"
394                "LEAST-NEGATIVE-SINGLE-FLOAT"
395                "LEAST-POSITIVE-DOUBLE-FLOAT"
396                "LEAST-POSITIVE-LONG-FLOAT"
397                "LEAST-POSITIVE-SHORT-FLOAT"
398                "LEAST-POSITIVE-SINGLE-FLOAT"
399                "LENGTH"
400                "LET"
401                "LET*"
402                "LISP-IMPLEMENTATION-TYPE"
403                "LISP-IMPLEMENTATION-VERSION"
404                "LIST"
405                "LIST*"
406                "LIST-ALL-PACKAGES"
407                "LIST-LENGTH"
408                "LISTEN"
409                "LISTP"
410                "LOAD"
411                "LOCALLY"
412                "LOG"
413                "LOGAND"
414                "LOGANDC1"
415                "LOGANDC2"
416                "LOGBITP"
417                "LOGCOUNT"
418                "LOGEQV"
419                "LOGIOR"
420                "LOGNAND"
421                "LOGNOR"
422                "LOGNOT"
423                "LOGORC1"
424                "LOGORC2"
425                "LOGTEST"
426                "LOGXOR"
427                "LONG-FLOAT"
428                "LONG-FLOAT-EPSILON"
429                "LONG-FLOAT-NEGATIVE-EPSILON"
430                "LONG-SITE-NAME"
431                "LOOP"
432                "LOWER-CASE-P"
433                "MACHINE-INSTANCE"
434                "MACHINE-TYPE"
435                "MACHINE-VERSION"
436                "MACRO-FUNCTION"
437                "MACROEXPAND"
438                "MACROEXPAND-1"
439                "MACROLET"
440                "MAKE-ARRAY"
441                "MAKE-BROADCAST-STREAM"
442                "MAKE-CONCATENATED-STREAM"
443                "MAKE-DISPATCH-MACRO-CHARACTER"
444                "MAKE-ECHO-STREAM"
445                "MAKE-HASH-TABLE"
446                "MAKE-LIST"
447                "MAKE-PATHNAME"
448                "MAKE-RANDOM-STATE"
449                "MAKE-SEQUENCE"
450                "MAKE-STRING"
451                "MAKE-STRING-INPUT-STREAM"
452                "MAKE-STRING-OUTPUT-STREAM"
453                "MAKE-SYMBOL"
454                "MAKE-SYNONYM-STREAM"
455                "MAKE-TWO-WAY-STREAM"
456                "MAKUNBOUND"
457                "MAP"
458                "MAPC"
459                "MAPCAN"
460                "MAPCAR"
461                "MAPCON"
462                "MAPHASH"
463                "MAPL"
464                "MAPLIST"
465                "MASK-FIELD"
466                "MAX"
467                "MEMBER"
468                "MEMBER-IF"
469                "MEMBER-IF-NOT"
470                "MERGE"
471                "MERGE-PATHNAMES"
472                "MIN"
473                "MINUSP"
474                "MISMATCH"
475                "MOD"
476                "MOST-NEGATIVE-DOUBLE-FLOAT"
477                "MOST-NEGATIVE-FIXNUM"
478                "MOST-NEGATIVE-LONG-FLOAT"
479                "MOST-NEGATIVE-SHORT-FLOAT"
480                "MOST-NEGATIVE-SINGLE-FLOAT"
481                "MOST-POSITIVE-DOUBLE-FLOAT"
482                "MOST-POSITIVE-FIXNUM"
483                "MOST-POSITIVE-LONG-FLOAT"
484                "MOST-POSITIVE-SHORT-FLOAT"
485                "MOST-POSITIVE-SINGLE-FLOAT"
486                "MULTIPLE-VALUE-BIND"
487                "MULTIPLE-VALUE-CALL"
488                "MULTIPLE-VALUE-LIST"
489                "MULTIPLE-VALUE-PROG1"
490                "MULTIPLE-VALUE-SETQ"
491                "MULTIPLE-VALUES-LIMIT"
492                "NAME-CHAR"
493                "NAMESTRING"
494                "NBUTLAST"
495                "NCONC"
496                "NIL"
497                "NINTERSECTION"
498                "NINTH"
499                "NOT"
500                "NOTANY"
501                "NOTEVERY"
502                "NOTINLINE"
503                "NRECONC"
504                "NREVERSE"
505                "NSET-DIFFERENCE"
506                "NSET-EXCLUSIVE-OR"
507                "NSTRING-CAPITALIZE"
508                "NSTRING-DOWNCASE"
509                "NSTRING-UPCASE"
510                "NSUBLIS"
511                "NSUBST"
512                "NSUBST-IF"
513                "NSUBST-IF-NOT"
514                "NSUBSTITUTE"
515                "NSUBSTITUTE-IF"
516                "NSUBSTITUTE-IF-NOT"
517                "NTH"
518                "NTHCDR"
519                "NULL"
520                "NUMBER"
521                "NUMBERP"
522                "NUMERATOR"
523                "NUNION"
524                "ODDP"
525                "OPEN"
526                "OPTIMIZE"
527                "OR"
528                "OTHERWISE"
529                "OUTPUT-STREAM-P"
530                "PACKAGE"
531                "PACKAGE-NAME"
532                "PACKAGE-NICKNAMES"
533                "PACKAGE-SHADOWING-SYMBOLS"
534                "PACKAGE-USE-LIST"
535                "PACKAGE-USED-BY-LIST"
536                "PACKAGEP"
537                "PAIRLIS"
538                "PARSE-INTEGER"
539                "PARSE-NAMESTRING"
540                "PATHNAME"
541                "PATHNAME-DEVICE"
542                "PATHNAME-DIRECTORY"
543                "PATHNAME-HOST"
544                "PATHNAME-NAME"
545                "PATHNAME-TYPE"
546                "PATHNAME-VERSION"
547                "PATHNAMEP"
548                "PEEK-CHAR"
549                "PHASE"
550                "PI"
551                "PLUSP"
552                "POP"
553                "POSITION"
554                "POSITION-IF"
555                "POSITION-IF-NOT"
556                "PPRINT"
557                "PRIN1"
558                "PRIN1-TO-STRING"
559                "PRINC"
560                "PRINC-TO-STRING"
561                "PRINT"
562                "PROBE-FILE"
563                "PROCLAIM"
564                "PROG"
565                "PROG*"
566                "PROG1"
567                "PROG2"
568                "PROGN"
569                "PROGV"
570                "PSETF"
571                "PSETQ"
572                "PUSH"
573                "PUSHNEW"
574                "QUOTE"
575                "RANDOM"
576                "RANDOM-STATE"
577                "RANDOM-STATE-P"
578                "RASSOC"
579                "RASSOC-IF"
580                "RASSOC-IF-NOT"
581                "RATIO"
582                "RATIONAL"
583                "RATIONALIZE"
584                "RATIONALP"
585                "READ"
586                "READ-BYTE"
587                "READ-CHAR"
588                "READ-CHAR-NO-HANG"
589                "READ-DELIMITED-LIST"
590                "READ-FROM-STRING"
591                "READ-LINE"
592                "READ-PRESERVING-WHITESPACE"
593                "READTABLE"
594                "READTABLEP"
595                "REALPART"
596                "REDUCE"
597                "REM"
598                "REMF"
599                "REMHASH"
600                "REMOVE"
601                "REMOVE-DUPLICATES"
602                "REMOVE-IF"
603                "REMOVE-IF-NOT"
604                "REMPROP"
605                "RENAME-FILE"
606                "RENAME-PACKAGE"
607                "REPLACE"
608                "REST"
609                "RETURN"
610                "RETURN-FROM"
611                "REVAPPEND"
612                "REVERSE"
613                "ROOM"
614                "ROTATEF"
615                "ROUND"
616                "RPLACA"
617                "RPLACD"
618                "SAFETY"
619                "SATISFIES"
620                "SBIT"
621                "SCALE-FLOAT"
622                "SCHAR"
623                "SEARCH"
624                "SECOND"
625                "SEQUENCE"
626                "SET"
627;                "SET-CHAR-BIT"
628                "SET-DIFFERENCE"
629                "SET-DISPATCH-MACRO-CHARACTER"
630                "SET-EXCLUSIVE-OR"
631                "SET-MACRO-CHARACTER"
632                "SET-SYNTAX-FROM-CHAR"
633                "SETF"
634                "SETQ"
635                "SEVENTH"
636                "SHIFTF"
637                "SHORT-FLOAT"
638                "SHORT-FLOAT-EPSILON"
639                "SHORT-FLOAT-NEGATIVE-EPSILON"
640                "SHORT-SITE-NAME"
641                "SIGNED-BYTE"
642                "SIGNUM"
643                "SIMPLE-ARRAY"
644                "SIMPLE-BIT-VECTOR"
645                "SIMPLE-BIT-VECTOR-P"
646                "SIMPLE-STRING"
647                "SIMPLE-STRING-P"
648                "SIMPLE-VECTOR"
649                "SIMPLE-VECTOR-P"
650                "SIN"
651                "SINGLE-FLOAT"
652                "SINGLE-FLOAT-EPSILON"
653                "SINGLE-FLOAT-NEGATIVE-EPSILON"
654                "SINH"
655                "SIXTH"
656                "SLEEP"
657                "SOFTWARE-TYPE"
658                "SOFTWARE-VERSION"
659                "SOME"
660                "SORT"
661                "SPACE"
662                "SPECIAL"
663                "SPEED"
664                "SQRT"
665                "STABLE-SORT"
666                "STANDARD-CHAR"
667                "STANDARD-CHAR-P"
668                "STEP"
669                "STREAM"
670                "STREAM-ELEMENT-TYPE"
671                "STREAMP"
672                "STRING"
673                "STRING-CAPITALIZE"
674;                "STRING-CHAR"
675;                "STRING-CHAR-P"
676                "STRING-DOWNCASE"
677                "STRING-EQUAL"
678                "STRING-GREATERP"
679                "STRING-LEFT-TRIM"
680                "STRING-LESSP"
681                "STRING-NOT-EQUAL"
682                "STRING-NOT-GREATERP"
683                "STRING-NOT-LESSP"
684                "STRING-RIGHT-TRIM"
685                "STRING-TRIM"
686                "STRING-UPCASE"
687                "STRING/="
688                "STRING<"
689                "STRING<="
690                "STRING="
691                "STRING>"
692                "STRING>="
693                "STRINGP"
694                "STRUCTURE"
695                "SUBLIS"
696                "SUBSEQ"
697                "SUBSETP"
698                "SUBST"
699                "SUBST-IF"
700                "SUBST-IF-NOT"
701                "SUBSTITUTE"
702                "SUBSTITUTE-IF"
703                "SUBSTITUTE-IF-NOT"
704                "SUBTYPEP"
705                "SVREF"
706                "SXHASH"
707                "SYMBOL"
708                "SYMBOL-FUNCTION"
709                "SYMBOL-NAME"
710                "SYMBOL-PACKAGE"
711                "SYMBOL-PLIST"
712                "SYMBOL-VALUE"
713                "SYMBOLP"
714                "T"
715                "TAGBODY"
716                "TAILP"
717                "TAN"
718                "TANH"
719                "TENTH"
720                "TERPRI"
721                "THE"
722                "THIRD"
723                "THROW"
724                "TIME"
725                "TRACE"
726                "TREE-EQUAL"
727                "TRUENAME"
728                "TRUNCATE"
729                "TYPE"
730                "TYPE-OF"
731                "TYPECASE"
732                "TYPEP"
733                "UNINTERN"
734                "UNION"
735                "UNLESS"
736                "UNREAD-CHAR"
737                "UNSIGNED-BYTE"
738                "UNTRACE"
739                "UNWIND-PROTECT"
740                "UPPER-CASE-P"
741                "USER-HOMEDIR-PATHNAME"
742                "VALUES"
743                "VALUES-LIST"
744                "VARIABLE"
745                "VECTOR"
746                "VECTOR-POP"
747                "VECTOR-PUSH"
748                "VECTOR-PUSH-EXTEND"
749                "VECTORP"
750                "WARN"
751                "WHEN"
752                "WITH-INPUT-FROM-STRING"
753                "WITH-OPEN-FILE"
754                "WITH-OPEN-STREAM"
755                "WITH-OUTPUT-TO-STRING"
756                "WRITE"
757                "WRITE-BYTE"
758                "WRITE-CHAR"
759                "WRITE-LINE"
760                "WRITE-STRING"
761                "WRITE-TO-STRING"
762                "Y-OR-N-P"
763                "YES-OR-NO-P"
764                "ZEROP"
765                "*MODULES*"
766                "PROVIDE"
767                "REQUIRE")
768  (:import-from "CCL"
769                "*BREAK-ON-WARNINGS*"
770                "COMPILER-LET"
771                "*APPLYHOOK*"
772                "*EVALHOOK*"
773                "APPLYHOOK"
774                "EVALHOOK"
775                "SPECIAL-FORM-P"
776                "GET-SETF-METHOD"
777                "GET-SETF-METHOD-MULTIPLE-VALUE"
778                "DEFINE-SETF-METHOD"
779)
780  (:shadow "IN-PACKAGE"
781           "FUNCTIONP"
782           "MAKE-PACKAGE"
783           "SHADOW"
784           "SHADOWING-IMPORT"
785           "EXPORT"
786           "UNEXPORT"
787           "USE-PACKAGE"
788           "UNUSE-PACKAGE"
789           "IMPORT")
790  (:export
791   "&ALLOW-OTHER-KEYS"
792   "&AUX"
793   "&BODY"
794   "&ENVIRONMENT"
795   "&KEY"
796   "&OPTIONAL"
797   "&REST"
798   "&WHOLE"
799   "*"
800   "**"
801   "***"
802   "*APPLYHOOK*"
803   "*BREAK-ON-WARNINGS*"
804   "*DEBUG-IO*"
805   "*DEFAULT-PATHNAME-DEFAULTS*"
806   "*ERROR-OUTPUT*"
807   "*EVALHOOK*"
808   "*FEATURES*"
809   "*LOAD-VERBOSE*"
810   "*MODULES*"
811   "*MACROEXPAND-HOOK*"
812   "*PACKAGE*"
813   "*PRINT-ARRAY*"
814   "*PRINT-BASE*"
815   "*PRINT-CASE*"
816   "*PRINT-CIRCLE*"
817   "*PRINT-ESCAPE*"
818   "*PRINT-GENSYM*"
819   "*PRINT-LENGTH*"
820   "*PRINT-LEVEL*"
821   "*PRINT-PRETTY*"
822   "*PRINT-RADIX*"
823   "*QUERY-IO*"
824   "*RANDOM-STATE*"
825   "*READ-BASE*"
826   "*READ-DEFAULT-FLOAT-FORMAT*"
827   "*READ-SUPPRESS*"
828   "*READTABLE*"
829   "*STANDARD-INPUT*"
830   "*STANDARD-OUTPUT*"
831   "*TERMINAL-IO*"
832   "*TRACE-OUTPUT*"
833   "+"
834   "++"
835   "+++"
836   "-"
837   "/"
838   "//"
839   "///"
840   "/="
841   "1+"
842   "1-"
843   "<"
844   "<="
845   "="
846   ">"
847   ">="
848   "ABS"
849   "ACONS"
850   "ACOS"
851   "ACOSH"
852   "ADJOIN"
853   "ADJUST-ARRAY"
854   "ADJUSTABLE-ARRAY-P"
855   "ALPHA-CHAR-P"
856   "ALPHANUMERICP"
857   "AND"
858   "APPEND"
859   "APPLY"
860   "APPLYHOOK"
861   "APROPOS"
862   "APROPOS-LIST"
863   "AREF"
864   "ARRAY"
865   "ARRAY-DIMENSION"
866   "ARRAY-DIMENSION-LIMIT"
867   "ARRAY-DIMENSIONS"
868   "ARRAY-ELEMENT-TYPE"
869   "ARRAY-HAS-FILL-POINTER-P"
870   "ARRAY-IN-BOUNDS-P"
871   "ARRAY-RANK"
872   "ARRAY-RANK-LIMIT"
873   "ARRAY-ROW-MAJOR-INDEX"
874   "ARRAY-TOTAL-SIZE"
875   "ARRAY-TOTAL-SIZE-LIMIT"
876   "ARRAYP"
877   "ASH"
878   "ASIN"
879   "ASINH"
880   "ASSERT"
881   "ASSOC"
882   "ASSOC-IF"
883   "ASSOC-IF-NOT"
884   "ATAN"
885   "ATANH"
886   "ATOM"
887   "BIGNUM"
888   "BIT"
889   "BIT-AND"
890   "BIT-ANDC1"
891   "BIT-ANDC2"
892   "BIT-EQV"
893   "BIT-IOR"
894   "BIT-NAND"
895   "BIT-NOR"
896   "BIT-NOT"
897   "BIT-ORC1"
898   "BIT-ORC2"
899   "BIT-VECTOR"
900   "BIT-VECTOR-P"
901   "BIT-XOR"
902   "BLOCK"
903   "BOOLE"
904   "BOOLE-1"
905   "BOOLE-2"
906   "BOOLE-AND"
907   "BOOLE-ANDC1"
908   "BOOLE-ANDC2"
909   "BOOLE-C1"
910   "BOOLE-C2"
911   "BOOLE-CLR"
912   "BOOLE-EQV"
913   "BOOLE-IOR"
914   "BOOLE-NAND"
915   "BOOLE-NOR"
916   "BOOLE-ORC1"
917   "BOOLE-ORC2"
918   "BOOLE-SET"
919   "BOOLE-XOR"
920   "BOTH-CASE-P"
921   "BOUNDP"
922   "BREAK"
923   "BUTLAST"
924   "BYTE"
925   "BYTE-POSITION"
926   "BYTE-SIZE"
927   "CAAAAR"
928   "CAAADR"
929   "CAAAR"
930   "CAADAR"
931   "CAADDR"
932   "CAADR"
933   "CAAR"
934   "CADAAR"
935   "CADADR"
936   "CADAR"
937   "CADDAR"
938   "CADDDR"
939   "CADDR"
940   "CADR"
941   "CALL-ARGUMENTS-LIMIT"
942   "CAR"
943   "CASE"
944   "CATCH"
945   "CCASE"
946   "CDAAAR"
947   "CDAADR"
948   "CDAAR"
949   "CDADAR"
950   "CDADDR"
951   "CDADR"
952   "CDAR"
953   "CDDAAR"
954   "CDDADR"
955   "CDDAR"
956   "CDDDAR"
957   "CDDDDR"
958   "CDDDR"
959   "CDDR"
960   "CDR"
961   "CEILING"
962   "CERROR"
963   "CHAR"
964   "CHAR-BIT"
965   "CHAR-BITS"
966   "CHAR-BITS-LIMIT"
967   "CHAR-CODE"
968   "CHAR-CODE-LIMIT"
969   "CHAR-CONTROL-BIT"
970   "CHAR-DOWNCASE"
971   "CHAR-EQUAL"
972   "CHAR-FONT"
973   "CHAR-FONT-LIMIT"
974   "CHAR-GREATERP"
975   "CHAR-HYPER-BIT"
976   "CHAR-INT"
977   "CHAR-LESSP"
978   "CHAR-META-BIT"
979   "CHAR-NAME"
980   "CHAR-NOT-EQUAL"
981   "CHAR-NOT-GREATERP"
982   "CHAR-NOT-LESSP"
983   "CHAR-SUPER-BIT"
984   "CHAR-UPCASE"
985   "CHAR/="
986   "CHAR<"
987   "CHAR<="
988   "CHAR="
989   "CHAR>"
990   "CHAR>="
991   "CHARACTER"
992   "CHARACTERP"
993   "CHECK-TYPE"
994   "CIS"
995   "CLEAR-INPUT"
996   "CLEAR-OUTPUT"
997   "CLOSE"
998   "CLRHASH"
999   "CODE-CHAR"
1000   "COERCE"
1001   "COMMON"
1002   "COMMONP"
1003   "COMPILATION-SPEED"
1004   "COMPILE"
1005   "COMPILE-FILE"
1006   "COMPILED-FUNCTION"
1007   "COMPILED-FUNCTION-P"
1008   "COMPILER-LET"
1009   "COMPLEX"
1010   "COMPLEXP"
1011   "CONCATENATE"
1012   "COND"
1013   "CONJUGATE"
1014   "CONS"
1015   "CONSP"
1016   "CONSTANTP"
1017   "COPY-ALIST"
1018   "COPY-LIST"
1019   "COPY-READTABLE"
1020   "COPY-SEQ"
1021   "COPY-SYMBOL"
1022   "COPY-TREE"
1023   "COS"
1024   "COSH"
1025   "COUNT"
1026   "COUNT-IF"
1027   "COUNT-IF-NOT"
1028   "CTYPECASE"
1029   "DECF"
1030   "DECLARATION"
1031   "DECLARE"
1032   "DECODE-FLOAT"
1033   "DECODE-UNIVERSAL-TIME"
1034   "DEFCONSTANT"
1035   "DEFINE-MODIFY-MACRO"
1036   "DEFINE-SETF-METHOD"
1037   "DEFMACRO"
1038   "DEFPARAMETER"
1039   "DEFSETF"
1040   "DEFSTRUCT"
1041   "DEFTYPE"
1042   "DEFUN"
1043   "DEFVAR"
1044   "DELETE"
1045   "DELETE-DUPLICATES"
1046   "DELETE-FILE"
1047   "DELETE-IF"
1048   "DELETE-IF-NOT"
1049   "DENOMINATOR"
1050   "DEPOSIT-FIELD"
1051   "DESCRIBE"
1052   "DIGIT-CHAR"
1053   "DIGIT-CHAR-P"
1054   "DIRECTORY"
1055   "DIRECTORY-NAMESTRING"
1056   "DISASSEMBLE"
1057   "DO"
1058   "DO*"
1059   "DO-ALL-SYMBOLS"
1060   "DO-EXTERNAL-SYMBOLS"
1061   "DO-SYMBOLS"
1062   "DOCUMENTATION"
1063   "DOLIST"
1064   "DOTIMES"
1065   "DOUBLE-FLOAT"
1066   "DOUBLE-FLOAT-EPSILON"
1067   "DOUBLE-FLOAT-NEGATIVE-EPSILON"
1068   "DPB"
1069   "DRIBBLE"
1070   "ECASE"
1071   "ED"
1072   "EIGHTH"
1073   "ELT"
1074   "ENCODE-UNIVERSAL-TIME"
1075   "ENDP"
1076   "ENOUGH-NAMESTRING"
1077   "EQ"
1078   "EQL"
1079   "EQUAL"
1080   "EQUALP"
1081   "ERROR"
1082   "ETYPECASE"
1083   "EVAL"
1084   "EVAL-WHEN"
1085   "EVALHOOK"
1086   "EVENP"
1087   "EVERY"
1088   "EXP"
1089   "EXPORT"
1090   "EXPT"
1091   "FBOUNDP"
1092   "FCEILING"
1093   "FFLOOR"
1094   "FIFTH"
1095   "FILE-AUTHOR"
1096   "FILE-LENGTH"
1097   "FILE-NAMESTRING"
1098   "FILE-POSITION"
1099   "FILE-WRITE-DATE"
1100   "FILL"
1101   "FILL-POINTER"
1102   "FIND"
1103   "FIND-ALL-SYMBOLS"
1104   "FIND-IF"
1105   "FIND-IF-NOT"
1106   "FIND-PACKAGE"
1107   "FIND-SYMBOL"
1108   "FINISH-OUTPUT"
1109   "FIRST"
1110   "FIXNUM"
1111   "FLET"
1112   "FLOAT"
1113   "FLOAT-DIGITS"
1114   "FLOAT-PRECISION"
1115   "FLOAT-RADIX"
1116   "FLOAT-SIGN"
1117   "FLOATP"
1118   "FLOOR"
1119   "FMAKUNBOUND"
1120   "FORCE-OUTPUT"
1121   "FORMAT"
1122   "FOURTH"
1123   "FRESH-LINE"
1124   "FROUND"
1125   "FTRUNCATE"
1126   "FTYPE"
1127   "FUNCALL"
1128   "FUNCTION"
1129   "FUNCTIONP"
1130   "GCD"
1131   "GENSYM"
1132   "GENTEMP"
1133   "GET"
1134   "GET-DECODED-TIME"
1135   "GET-DISPATCH-MACRO-CHARACTER"
1136   "GET-INTERNAL-REAL-TIME"
1137   "GET-INTERNAL-RUN-TIME"
1138   "GET-MACRO-CHARACTER"
1139   "GET-OUTPUT-STREAM-STRING"
1140   "GET-PROPERTIES"
1141   "GET-SETF-METHOD"
1142   "GET-SETF-METHOD-MULTIPLE-VALUE"
1143   "GET-UNIVERSAL-TIME"
1144   "GETF"
1145   "GETHASH"
1146   "GO"
1147   "GRAPHIC-CHAR-P"
1148   "HASH-TABLE"
1149   "HASH-TABLE-COUNT"
1150   "HASH-TABLE-P"
1151   "HOST-NAMESTRING"
1152   "IDENTITY"
1153   "IF"
1154   "IGNORE"
1155   "IMAGPART"
1156   "IMPORT"
1157   "IN-PACKAGE"
1158   "INCF"
1159   "INLINE"
1160   "INPUT-STREAM-P"
1161   "INSPECT"
1162   "INT-CHAR"
1163   "INTEGER"
1164   "INTEGER-DECODE-FLOAT"
1165   "INTEGER-LENGTH"
1166   "INTEGERP"
1167   "INTERN"
1168   "INTERNAL-TIME-UNITS-PER-SECOND"
1169   "INTERSECTION"
1170   "ISQRT"
1171   "KEYWORD"
1172   "KEYWORDP"
1173   "LABELS"
1174   "LAMBDA"
1175   "LAMBDA-LIST-KEYWORDS"
1176   "LAMBDA-PARAMETERS-LIMIT"
1177   "LAST"
1178   "LCM"
1179   "LDB"
1180   "LDB-TEST"
1181   "LDIFF"
1182   "LEAST-NEGATIVE-DOUBLE-FLOAT"
1183   "LEAST-NEGATIVE-LONG-FLOAT"
1184   "LEAST-NEGATIVE-SHORT-FLOAT"
1185   "LEAST-NEGATIVE-SINGLE-FLOAT"
1186   "LEAST-POSITIVE-DOUBLE-FLOAT"
1187   "LEAST-POSITIVE-LONG-FLOAT"
1188   "LEAST-POSITIVE-SHORT-FLOAT"
1189   "LEAST-POSITIVE-SINGLE-FLOAT"
1190   "LENGTH"
1191   "LET"
1192   "LET*"
1193   "LISP-IMPLEMENTATION-TYPE"
1194   "LISP-IMPLEMENTATION-VERSION"
1195   "LIST"
1196   "LIST*"
1197   "LIST-ALL-PACKAGES"
1198   "LIST-LENGTH"
1199   "LISTEN"
1200   "LISTP"
1201   "LOAD"
1202   "LOCALLY"
1203   "LOG"
1204   "LOGAND"
1205   "LOGANDC1"
1206   "LOGANDC2"
1207   "LOGBITP"
1208   "LOGCOUNT"
1209   "LOGEQV"
1210   "LOGIOR"
1211   "LOGNAND"
1212   "LOGNOR"
1213   "LOGNOT"
1214   "LOGORC1"
1215   "LOGORC2"
1216   "LOGTEST"
1217   "LOGXOR"
1218   "LONG-FLOAT"
1219   "LONG-FLOAT-EPSILON"
1220   "LONG-FLOAT-NEGATIVE-EPSILON"
1221   "LONG-SITE-NAME"
1222   "LOOP"
1223   "LOWER-CASE-P"
1224   "MACHINE-INSTANCE"
1225   "MACHINE-TYPE"
1226   "MACHINE-VERSION"
1227   "MACRO-FUNCTION"
1228   "MACROEXPAND"
1229   "MACROEXPAND-1"
1230   "MACROLET"
1231   "MAKE-ARRAY"
1232   "MAKE-BROADCAST-STREAM"
1233   "MAKE-CHAR"
1234   "MAKE-CONCATENATED-STREAM"
1235   "MAKE-DISPATCH-MACRO-CHARACTER"
1236   "MAKE-ECHO-STREAM"
1237   "MAKE-HASH-TABLE"
1238   "MAKE-LIST"
1239   "MAKE-PACKAGE"
1240   "MAKE-PATHNAME"
1241   "MAKE-RANDOM-STATE"
1242   "MAKE-SEQUENCE"
1243   "MAKE-STRING"
1244   "MAKE-STRING-INPUT-STREAM"
1245   "MAKE-STRING-OUTPUT-STREAM"
1246   "MAKE-SYMBOL"
1247   "MAKE-SYNONYM-STREAM"
1248   "MAKE-TWO-WAY-STREAM"
1249   "MAKUNBOUND"
1250   "MAP"
1251   "MAPC"
1252   "MAPCAN"
1253   "MAPCAR"
1254   "MAPCON"
1255   "MAPHASH"
1256   "MAPL"
1257   "MAPLIST"
1258   "MASK-FIELD"
1259   "MAX"
1260   "MEMBER"
1261   "MEMBER-IF"
1262   "MEMBER-IF-NOT"
1263   "MERGE"
1264   "MERGE-PATHNAMES"
1265   "MIN"
1266   "MINUSP"
1267   "MISMATCH"
1268   "MOD"
1269   "MOST-NEGATIVE-DOUBLE-FLOAT"
1270   "MOST-NEGATIVE-FIXNUM"
1271   "MOST-NEGATIVE-LONG-FLOAT"
1272   "MOST-NEGATIVE-SHORT-FLOAT"
1273   "MOST-NEGATIVE-SINGLE-FLOAT"
1274   "MOST-POSITIVE-DOUBLE-FLOAT"
1275   "MOST-POSITIVE-FIXNUM"
1276   "MOST-POSITIVE-LONG-FLOAT"
1277   "MOST-POSITIVE-SHORT-FLOAT"
1278   "MOST-POSITIVE-SINGLE-FLOAT"
1279   "MULTIPLE-VALUE-BIND"
1280   "MULTIPLE-VALUE-CALL"
1281   "MULTIPLE-VALUE-LIST"
1282   "MULTIPLE-VALUE-PROG1"
1283   "MULTIPLE-VALUE-SETQ"
1284   "MULTIPLE-VALUES-LIMIT"
1285   "NAME-CHAR"
1286   "NAMESTRING"
1287   "NBUTLAST"
1288   "NCONC"
1289   "NIL"
1290   "NINTERSECTION"
1291   "NINTH"
1292   "NOT"
1293   "NOTANY"
1294   "NOTEVERY"
1295   "NOTINLINE"
1296   "NRECONC"
1297   "NREVERSE"
1298   "NSET-DIFFERENCE"
1299   "NSET-EXCLUSIVE-OR"
1300   "NSTRING-CAPITALIZE"
1301   "NSTRING-DOWNCASE"
1302   "NSTRING-UPCASE"
1303   "NSUBLIS"
1304   "NSUBST"
1305   "NSUBST-IF"
1306   "NSUBST-IF-NOT"
1307   "NSUBSTITUTE"
1308   "NSUBSTITUTE-IF"
1309   "NSUBSTITUTE-IF-NOT"
1310   "NTH"
1311   "NTHCDR"
1312   "NULL"
1313   "NUMBER"
1314   "NUMBERP"
1315   "NUMERATOR"
1316   "NUNION"
1317   "ODDP"
1318   "OPEN"
1319   "OPTIMIZE"
1320   "OR"
1321   "OTHERWISE"
1322   "OUTPUT-STREAM-P"
1323   "PACKAGE"
1324   "PACKAGE-NAME"
1325   "PACKAGE-NICKNAMES"
1326   "PACKAGE-SHADOWING-SYMBOLS"
1327   "PACKAGE-USE-LIST"
1328   "PACKAGE-USED-BY-LIST"
1329   "PACKAGEP"
1330   "PAIRLIS"
1331   "PARSE-INTEGER"
1332   "PARSE-NAMESTRING"
1333   "PATHNAME"
1334   "PATHNAME-DEVICE"
1335   "PATHNAME-DIRECTORY"
1336   "PATHNAME-HOST"
1337   "PATHNAME-NAME"
1338   "PATHNAME-TYPE"
1339   "PATHNAME-VERSION"
1340   "PATHNAMEP"
1341   "PEEK-CHAR"
1342   "PHASE"
1343   "PI"
1344   "PLUSP"
1345   "POP"
1346   "POSITION"
1347   "POSITION-IF"
1348   "POSITION-IF-NOT"
1349   "PPRINT"
1350   "PRIN1"
1351   "PRIN1-TO-STRING"
1352   "PRINC"
1353   "PRINC-TO-STRING"
1354   "PRINT"
1355   "PROBE-FILE"
1356   "PROCLAIM"
1357   "PROG"
1358   "PROG*"
1359   "PROG1"
1360   "PROG2"
1361   "PROGN"
1362   "PROGV"
1363   "PROVIDE"
1364   "PSETF"
1365   "PSETQ"
1366   "PUSH"
1367   "PUSHNEW"
1368   "QUOTE"
1369   "RANDOM"
1370   "RANDOM-STATE"
1371   "RANDOM-STATE-P"
1372   "RASSOC"
1373   "RASSOC-IF"
1374   "RASSOC-IF-NOT"
1375   "RATIO"
1376   "RATIONAL"
1377   "RATIONALIZE"
1378   "RATIONALP"
1379   "READ"
1380   "READ-BYTE"
1381   "READ-CHAR"
1382   "READ-CHAR-NO-HANG"
1383   "READ-DELIMITED-LIST"
1384   "READ-FROM-STRING"
1385   "READ-LINE"
1386   "READ-PRESERVING-WHITESPACE"
1387   "READTABLE"
1388   "READTABLEP"
1389   "REALPART"
1390   "REDUCE"
1391   "REM"
1392   "REMF"
1393   "REMHASH"
1394   "REMOVE"
1395   "REMOVE-DUPLICATES"
1396   "REMOVE-IF"
1397   "REMOVE-IF-NOT"
1398   "REMPROP"
1399   "RENAME-FILE"
1400   "RENAME-PACKAGE"
1401   "REPLACE"
1402   "REQUIRE"
1403   "REST"
1404   "RETURN"
1405   "RETURN-FROM"
1406   "REVAPPEND"
1407   "REVERSE"
1408   "ROOM"
1409   "ROTATEF"
1410   "ROUND"
1411   "RPLACA"
1412   "RPLACD"
1413   "SAFETY"
1414   "SATISFIES"
1415   "SBIT"
1416   "SCALE-FLOAT"
1417   "SCHAR"
1418   "SEARCH"
1419   "SECOND"
1420   "SEQUENCE"
1421   "SET"
1422   "SET-CHAR-BIT"
1423   "SET-DIFFERENCE"
1424   "SET-DISPATCH-MACRO-CHARACTER"
1425   "SET-EXCLUSIVE-OR"
1426   "SET-MACRO-CHARACTER"
1427   "SET-SYNTAX-FROM-CHAR"
1428   "SETF"
1429   "SETQ"
1430   "SEVENTH"
1431   "SHADOW"
1432   "SHADOWING-IMPORT"
1433   "SHIFTF"
1434   "SHORT-FLOAT"
1435   "SHORT-FLOAT-EPSILON"
1436   "SHORT-FLOAT-NEGATIVE-EPSILON"
1437   "SHORT-SITE-NAME"
1438   "SIGNED-BYTE"
1439   "SIGNUM"
1440   "SIMPLE-ARRAY"
1441   "SIMPLE-BIT-VECTOR"
1442   "SIMPLE-BIT-VECTOR-P"
1443   "SIMPLE-STRING"
1444   "SIMPLE-STRING-P"
1445   "SIMPLE-VECTOR"
1446   "SIMPLE-VECTOR-P"
1447   "SIN"
1448   "SINGLE-FLOAT"
1449   "SINGLE-FLOAT-EPSILON"
1450   "SINGLE-FLOAT-NEGATIVE-EPSILON"
1451   "SINH"
1452   "SIXTH"
1453   "SLEEP"
1454   "SOFTWARE-TYPE"
1455   "SOFTWARE-VERSION"
1456   "SOME"
1457   "SORT"
1458   "SPACE"
1459   "SPECIAL"
1460   "SPEED"
1461   "SQRT"
1462   "STABLE-SORT"
1463   "STANDARD-CHAR"
1464   "STANDARD-CHAR-P"
1465   "STEP"
1466   "STREAM"
1467   "STREAM-ELEMENT-TYPE"
1468   "STREAMP"
1469   "STRING"
1470   "STRING-CAPITALIZE"
1471   "STRING-CHAR"
1472   "STRING-CHAR-P"
1473   "STRING-DOWNCASE"
1474   "STRING-EQUAL"
1475   "STRING-GREATERP"
1476   "STRING-LEFT-TRIM"
1477   "STRING-LESSP"
1478   "STRING-NOT-EQUAL"
1479   "STRING-NOT-GREATERP"
1480   "STRING-NOT-LESSP"
1481   "STRING-RIGHT-TRIM"
1482   "STRING-TRIM"
1483   "STRING-UPCASE"
1484   "STRING/="
1485   "STRING<"
1486   "STRING<="
1487   "STRING="
1488   "STRING>"
1489   "STRING>="
1490   "STRINGP"
1491   "STRUCTURE"
1492   "SUBLIS"
1493   "SUBSEQ"
1494   "SUBSETP"
1495   "SUBST"
1496   "SUBST-IF"
1497   "SUBST-IF-NOT"
1498   "SUBSTITUTE"
1499   "SUBSTITUTE-IF"
1500   "SUBSTITUTE-IF-NOT"
1501   "SUBTYPEP"
1502   "SVREF"
1503   "SXHASH"
1504   "SYMBOL"
1505   "SYMBOL-FUNCTION"
1506   "SYMBOL-NAME"
1507   "SYMBOL-PACKAGE"
1508   "SYMBOL-PLIST"
1509   "SYMBOL-VALUE"
1510   "SYMBOLP"
1511   "T"
1512   "TAGBODY"
1513   "TAILP"
1514   "TAN"
1515   "TANH"
1516   "TENTH"
1517   "TERPRI"
1518   "THE"
1519   "THIRD"
1520   "THROW"
1521   "TIME"
1522   "TRACE"
1523   "TREE-EQUAL"
1524   "TRUENAME"
1525   "TRUNCATE"
1526   "TYPE"
1527   "TYPE-OF"
1528   "TYPECASE"
1529   "TYPEP"
1530   "UNEXPORT"
1531   "UNINTERN"
1532   "UNION"
1533   "UNLESS"
1534   "UNREAD-CHAR"
1535   "UNSIGNED-BYTE"
1536   "UNTRACE"
1537   "UNUSE-PACKAGE"
1538   "UNWIND-PROTECT"
1539   "UPPER-CASE-P"
1540   "USE-PACKAGE"
1541   "USER-HOMEDIR-PATHNAME"
1542   "VALUES"
1543   "VALUES-LIST"
1544   "VARIABLE"
1545   "VECTOR"
1546   "VECTOR-POP"
1547   "VECTOR-PUSH"
1548   "VECTOR-PUSH-EXTEND"
1549   "VECTORP"
1550   "WARN"
1551   "WHEN"
1552   "WITH-INPUT-FROM-STRING"
1553   "WITH-OPEN-FILE"
1554   "WITH-OPEN-STREAM"
1555   "WITH-OUTPUT-TO-STRING"
1556   "WRITE"
1557   "WRITE-BYTE"
1558   "WRITE-CHAR"
1559   "WRITE-LINE"
1560   "WRITE-STRING"
1561   "WRITE-TO-STRING"
1562   "Y-OR-N-P"
1563   "YES-OR-NO-P"
1564   "ZEROP"
1565   ))
1566
1567(%resize-package (find-package "LISP"))
1568
1569(defpackage "USER"
1570  (:use "LISP" "CCL")) 
1571
1572(defconstant lisp:char-control-bit 0)
1573(defconstant lisp:char-meta-bit 0)
1574(defconstant lisp:char-super-bit 0)
1575(defconstant lisp:char-hyper-bit 0)
1576(defconstant lisp:char-bits-limit 1)
1577(defconstant lisp:char-font-limit 1)
1578
1579(defun lisp:int-char (i)
1580  (cl:code-char i))
1581
1582(defun lisp:char-bits (c)
1583  (require-type c 'character)
1584  0)
1585
1586(defun lisp:char-font (c)
1587  (require-type c 'character)
1588  0)
1589
1590(defun lisp:digit-char (weight &optional (radix 10) font)
1591  (when (and font (not (eql font 0)))
1592    (error "Non-zero ~S (~S) not supported" 'font font))
1593  (cl:digit-char weight radix))
1594
1595; 'It is an error to give char-bit the name of a bit not supported by the
1596;   implementation'
1597(defun lisp:char-bit (char name)
1598  (declare (ignore char))
1599  (error "Unsupported character bit name ~S." name))
1600
1601(defun lisp:set-char-bit (char name newvalue)
1602  (declare (ignore char newvalue))
1603  (error "Unsupported character bit name ~S." name))
1604
1605(defun lisp:make-char (char &optional bits font)
1606  (flet ((non-supported (argname argval)
1607           (if (and argval (not (eql argval 0)))
1608             (error "Non-zero ~S argument (~S) not supported." argname argval))))
1609    (non-supported 'bits bits)
1610    (non-supported 'font font)
1611    (require-type char 'character)))
1612
1613; A tragic waste of precious silicon.
1614(define-setf-method char-bit (place bit-name &environment env)
1615  (multiple-value-bind (dummies vals newval setter getter)
1616                       (get-setf-method place env)
1617    (let ((btemp (gensym))
1618          (gnuval (gensym)))
1619      (values `(,@dummies ,btemp)
1620              `(,@vals ,bit-name)
1621              (list gnuval)
1622              `(let ((,(car newval)
1623                      (set-char-bit ,getter ,btemp ,gnuval)))
1624                 ,setter
1625                 ,gnuval)
1626              `(char-bit ,getter ,btemp)))))
1627
1628(defun lisp:in-package (package-name &rest rest &key
1629                                     nicknames use internal-size external-size)
1630  (declare (ignore nicknames use internal-size external-size))
1631  (declare (dynamic-extent rest))
1632  (apply 'old-in-package package-name rest))
1633
1634(defun lisp:functionp (x)
1635  (or (symbolp x)
1636      (and (consp x) (eq (ccl::%car x) 'lambda))
1637      (cl:functionp x)))
1638
1639(setf (cl:find-class 'lisp:string-char) (cl:find-class 'cl:base-char)
1640      (symbol-function 'lisp:string-char-p) #'cl:characterp)
1641
1642(dolist (sym '(lisp:make-package lisp:in-package lisp:shadow lisp:shadowing-import
1643               lisp:export lisp:unexport lisp:use-package lisp:unuse-package
1644               lisp:import))
1645  (unless (eq sym 'lisp:in-package)
1646    (setf (symbol-function sym)
1647          (symbol-function (find-symbol (symbol-name sym) "COMMON-LISP"))))
1648  (pushnew sym *fcomp-eval-always-functions*))
1649
1650(provide :lisp-package)
Note: See TracBrowser for help on using the repository browser.