source: trunk/source/library/lisp-package.lisp @ 16685

Last change on this file since 16685 was 16685, checked in by rme, 4 years ago

Update copyright/license headers in files.

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