From 120c0736af9ed75fc91a713b525404a348368407 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Fri, 24 Oct 1997 17:57:52 +0000
Subject: [PATCH] Add read-sequence and write-sequence to the common-lisp
 package. Remove special-form-p from the common-lisp package. Sort more of the
 symbols in the common-lisp package definition, still some to go.

---
 code/exports.lisp | 148 ++++++++++++++++++++++------------------------
 1 file changed, 70 insertions(+), 78 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 7b548b1d2..b422fc9f9 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.128 1997/09/24 06:06:54 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.129 1997/10/24 17:57:52 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -318,7 +318,7 @@
 	     "APROPOS" "APROPOS-LIST" "AREF" "ARITHMETIC-ERROR"
              "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION"
              "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT"
-             "ARRAY-DIMENSIONS" "ARRAY-ELEMENT-TYPE"
+             "ARRAY-DIMENSIONS" "ARRAY-DISPLACEMENT" "ARRAY-ELEMENT-TYPE"
              "ARRAY-HAS-FILL-POINTER-P" "ARRAY-IN-BOUNDS-P" "ARRAY-RANK"
              "ARRAY-RANK-LIMIT" "ARRAY-ROW-MAJOR-INDEX" "ARRAY-TOTAL-SIZE"
              "ARRAY-TOTAL-SIZE-LIMIT" "ARRAYP" "ASH" "ASIN" "ASINH"
@@ -330,28 +330,35 @@
              "BOOLE-1" "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1" "BOOLE-ANDC2"
              "BOOLE-C1" "BOOLE-C2" "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR"
              "BOOLE-NAND" "BOOLE-NOR" "BOOLE-ORC1" "BOOLE-ORC2" "BOOLE-SET"
-             "BOOLE-XOR" "BOTH-CASE-P" "BOUNDP" "BREAK" "BUTLAST" "BYTE"
-             "BYTE-POSITION" "BYTE-SIZE" "CAAAAR" "CAAADR" "CAAAR" "CAADAR"
-             "CAADDR" "CAADR" "CAAR" "CADAAR" "CADADR" "CADAR" "CADDAR"
-             "CADDDR" "CADDR" "CADR" "CALL-ARGUMENTS-LIMIT" "CAR" "CASE"
+             "BOOLE-XOR" "BOTH-CASE-P" "BOUNDP" "BREAK" 
+	     "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS" "BUILT-IN-CLASS"
+	     "BUTLAST" "BYTE" "BYTE-POSITION" "BYTE-SIZE"
+	     "CAAAAR" "CAAADR" "CAAAR" "CAADAR" "CAADDR" "CAADR" "CAAR"
+	     "CADAAR" "CADADR" "CADAR" "CADDAR" "CADDDR" "CADDR" "CADR"
+	     "CALL-ARGUMENTS-LIMIT" "CAR" "CASE"
              "CATCH" "CCASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR"
              "CDADR" "CDAR" "CDDAAR" "CDDADR" "CDDAR" "CDDDAR" "CDDDDR"
              "CDDDR" "CDDR" "CDR" "CEILING" "CELL-ERROR" "CERROR" "CHAR"
 	     "CHAR-CODE" "CHAR-CODE-LIMIT" "CHAR-DOWNCASE"
-             "CHAR-EQUAL" "CHAR-GREATERP" "CHAR-LESSP"
+             "CHAR-EQUAL" "CHAR-GREATERP" "CHAR-INT" "CHAR-LESSP" 
              "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP"
              "CHAR-NOT-LESSP" "CHAR-UPCASE" "CHAR/="
              "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER"
-             "CHARACTERP" "CHECK-TYPE" "CIS" "CLEAR-INPUT" "CLEAR-OUTPUT"
+             "CHARACTERP" "CHECK-TYPE" "CIS" "CLASS" "CLASS-OF" "CLASS-NAME"
+	     "CLEAR-INPUT" "CLEAR-OUTPUT"
              "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE"
              "COMPILATION-SPEED" "COMPILE" "COMPILE-FILE"
+	     "COMPILE-FILE-PATHNAME"
              "COMPILED-FUNCTION" "COMPILED-FUNCTION-P" "COMPILER-LET"
-             "COMPILER-MACRO-FUNCTION" "COMPILER-MACROEXPAND"
+	     "COMPILER-MACRO" "COMPILER-MACRO-FUNCTION" "COMPILER-MACROEXPAND"
 	     "COMPILER-MACROEXPAND-1" "COMPLEMENT" "COMPLEX"
-	     "COMPLEXP" "COMPUTE-RESTARTS" "CONCATENATE" "COND" "CONDITION"
+	     "COMPLEXP" "COMPUTE-RESTARTS" "CONCATENATE"
+	     "CONCATENATED-STREAM" "CONCATENATED-STREAM-STREAMS"
+	     "COND" "CONDITION"
              "CONJUGATE" "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE"
              "CONTROL-ERROR" "COPY-ALIST" "COPY-LIST"
              "COPY-PPRINT-DISPATCH" "COPY-READTABLE" "COPY-SEQ"
+	     "COPY-STRUCTURE"
              "COPY-SYMBOL" "COPY-TREE" "COS" "COSH" "COUNT" "COUNT-IF"
              "COUNT-IF-NOT" "CTYPECASE" "DEBUG" "DECF" "DECLAIM"
              "DECLARATION" "DECLARE" "DECODE-FLOAT" "DECODE-UNIVERSAL-TIME"
@@ -359,27 +366,36 @@
              "DEFINE-MODIFY-MACRO" "DEFINE-SETF-METHOD" "DEFMACRO" "DEFPACKAGE"
              "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR"
              "DELETE" "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF"
-             "DELETE-IF-NOT" "DENOMINATOR" "DEPOSIT-FIELD" "DESCRIBE"
+             "DELETE-IF-NOT" "DELETE-PACKAGE"
+	     "DENOMINATOR" "DEPOSIT-FIELD" "DESCRIBE"
              "DESTRUCTURING-BIND" "DIGIT-CHAR" "DIGIT-CHAR-P" "DIRECTORY"
              "DIRECTORY-NAMESTRING" "DISASSEMBLE" "DIVISION-BY-ZERO" "DO" "DO*"
              "DO-ALL-SYMBOLS" "DO-EXTERNAL-SYMBOLS" "DO-SYMBOLS"
              "DOCUMENTATION" "DOLIST" "DOTIMES" "DOUBLE-FLOAT"
              "DOUBLE-FLOAT-EPSILON" "DOUBLE-FLOAT-NEGATIVE-EPSILON" "DPB"
-             "DRIBBLE" "ECASE" "ED" "EIGHTH" "ELT" "ENCODE-UNIVERSAL-TIME"
+             "DRIBBLE" "DYNAMIC-EXTENT"
+	     "ECASE" "ECHO-STREAM" "ECHO-STREAM-INPUT-STREAM"
+	     "ECHO-STREAM-OUTPUT-STREAM"
+	     "ED" "EIGHTH" "ELT" "ENCODE-UNIVERSAL-TIME"
              "END-OF-FILE" "ENDP" "ENOUGH-NAMESTRING"
 	     "ENSURE-DIRECTORIES-EXIST" "EQ" "EQL" "EQUAL"
              "EQUALP" "ERROR" "ETYPECASE" "EVAL" "EVAL-WHEN" "EVENP"
              "EVERY" "EXP" "EXPORT" "EXPT" "EXTENDED-CHAR" "FBOUNDP" "FCEILING"
              "FDEFINITION" "FFLOOR" "FIFTH" "FILE-AUTHOR" "FILE-ERROR"
              "FILE-ERROR-PATHNAME" "FILE-LENGTH" "FILE-NAMESTRING"
-             "FILE-POSITION" "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND"
-             "FIND-ALL-SYMBOLS" "FIND-IF" "FIND-IF-NOT" "FIND-PACKAGE"
+             "FILE-POSITION" "FILE-STREAM" "FILE-STRING-LENGTH"
+	     "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND"
+             "FIND-ALL-SYMBOLS" "FIND-CLASS"
+	     "FIND-IF" "FIND-IF-NOT" "FIND-PACKAGE"
              "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM"
              "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX"
-             "FLOAT-SIGN" "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW"
+             "FLOAT-SIGN" "FLOATING-POINT-INEXACT"
+	     "FLOATING-POINT-INVALID-OPERATION"
+	     "FLOATING-POINT-OVERFLOW" "FLOATING-POINT-UNDERFLOW"
              "FLOATP" "FLOOR" "FMAKUNBOUND" "FORCE-OUTPUT" "FORMAT" "FORMATTER"
              "FOURTH" "FRESH-LINE" "FROUND" "FTRUNCATE" "FTYPE" "FUNCALL"
-             "FUNCTION" "FUNCTION-LAMBDA-EXPRESSION" "FUNCTIONP" "GCD" "GENSYM"
+             "FUNCTION" "FUNCTION-LAMBDA-EXPRESSION" "FUNCTIONP"
+	     "GCD" "GENERIC-FUNCTION" "GENSYM"
              "GENTEMP" "GET" "GET-DECODED-TIME" "GET-DISPATCH-MACRO-CHARACTER"
              "GET-INTERNAL-REAL-TIME" "GET-INTERNAL-RUN-TIME"
              "GET-MACRO-CHARACTER" "GET-OUTPUT-STREAM-STRING" "GET-PROPERTIES"
@@ -389,7 +405,8 @@
              "HASH-TABLE-P" "HASH-TABLE-REHASH-THRESHOLD"
 	     "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-SIZE" "HASH-TABLE-TEST"
 	     "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE"
-             "IGNORE" "IGNORE-ERRORS" "IMAGPART" "IMPORT" "IN-PACKAGE" "INCF"
+             "IGNORE" "IGNORE-ERRORS" "IMAGPART" "IMPORT" "IN-PACKAGE"
+	     "INTERACTIVE-STREAM-P" "INCF"
              "INLINE" "INPUT-STREAM-P" "INSPECT" "INTEGER"
              "INTEGER-DECODE-FLOAT" "INTEGER-LENGTH" "INTEGERP" "INTERN"
              "INTERNAL-TIME-UNITS-PER-SECOND" "INTERSECTION" "INVOKE-DEBUGGER"
@@ -410,9 +427,13 @@
              "LEAST-POSITIVE-SHORT-FLOAT" "LEAST-POSITIVE-SINGLE-FLOAT"
              "LENGTH" "LET" "LET*" "LISP-IMPLEMENTATION-TYPE"
              "LISP-IMPLEMENTATION-VERSION" "LIST" "LIST*" "LIST-ALL-PACKAGES"
-             "LIST-LENGTH" "LISTEN" "LISTP" "LOAD" "LOAD-TIME-VALUE" "LOCALLY"
+             "LIST-LENGTH" "LISTEN" "LISTP" "LOAD"
+	     "LOAD-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE" "LOCALLY"
              "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV"
-             "LOGIOR" "LOGNAND" "LOGNOR" "LOGNOT" "LOGORC1" "LOGORC2" "LOGTEST"
+	     "LOGICAL-PATHNAME"
+             "LOGICAL-PATHNAME-P"
+	     "LOGICAL-PATHNAME-TRANSLATIONS"
+	     "LOGIOR" "LOGNAND" "LOGNOR" "LOGNOT" "LOGORC1" "LOGORC2" "LOGTEST"
              "LOGXOR" "LONG-FLOAT" "LONG-FLOAT-EPSILON"
              "LONG-FLOAT-NEGATIVE-EPSILON" "LONG-SITE-NAME" "LOOP"
              "LOOP-FINISH" "LOWER-CASE-P" "MACHINE-INSTANCE" "MACHINE-TYPE"
@@ -424,8 +445,8 @@
              "MAKE-RANDOM-STATE" "MAKE-SEQUENCE" "MAKE-STRING"
              "MAKE-STRING-INPUT-STREAM" "MAKE-STRING-OUTPUT-STREAM"
              "MAKE-SYMBOL" "MAKE-SYNONYM-STREAM" "MAKE-TWO-WAY-STREAM"
-             "MAKUNBOUND" "MAP" "MAPC" "MAPCAN" "MAPCAR" "MAPCON" "MAPHASH"
-             "MAPL" "MAPLIST" "MASK-FIELD" "MAX" "MEMBER" "MEMBER-IF"
+             "MAKUNBOUND" "MAP" "MAP-INTO" "MAPC" "MAPCAN" "MAPCAR" "MAPCON"
+	     "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD" "MAX" "MEMBER" "MEMBER-IF"
              "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "MIN" "MINUSP"
              "MISMATCH" "MOD" "MOST-NEGATIVE-DOUBLE-FLOAT"
              "MOST-NEGATIVE-FIXNUM" "MOST-NEGATIVE-LONG-FLOAT"
@@ -442,12 +463,12 @@
              "NSTRING-UPCASE" "NSUBLIS" "NSUBST" "NSUBST-IF" "NSUBST-IF-NOT"
              "NSUBSTITUTE" "NSUBSTITUTE-IF" "NSUBSTITUTE-IF-NOT" "NTH"
              "NTH-VALUE" "NTHCDR" "NULL" "NUMBER" "NUMBERP" "NUMERATOR"
-             "NUNION" "ODDP" "OPEN" "OPTIMIZE" "OR" "OTHERWISE"
+             "NUNION" "ODDP" "OPEN" "OPEN-STREAM-P" "OPTIMIZE" "OR" "OTHERWISE"
              "OUTPUT-STREAM-P" "PACKAGE" "PACKAGE-ERROR"
              "PACKAGE-ERROR-PACKAGE" "PACKAGE-NAME" "PACKAGE-NICKNAMES"
              "PACKAGE-SHADOWING-SYMBOLS" "PACKAGE-USE-LIST"
-             "PACKAGE-USED-BY-LIST" "PACKAGEP" "PAIRLIS" "PARSE-INTEGER"
-             "PARSE-NAMESTRING" "PATHNAME" "PATHNAME-DEVICE"
+             "PACKAGE-USED-BY-LIST" "PACKAGEP" "PAIRLIS" "PARSE-ERROR" 
+	     "PARSE-INTEGER" "PARSE-NAMESTRING" "PATHNAME" "PATHNAME-DEVICE"
              "PATHNAME-DIRECTORY" "PATHNAME-HOST" "PATHNAME-MATCH-P"
              "PATHNAME-NAME" "PATHNAME-TYPE" "PATHNAME-VERSION" "PATHNAMEP"
              "PEEK-CHAR" "PHASE" "PI" "PLUSP" "POP" "POSITION" "POSITION-IF"
@@ -463,6 +484,7 @@
              "RATIONAL" "RATIONALIZE" "RATIONALP" "READ" "READ-BYTE"
              "READ-CHAR" "READ-CHAR-NO-HANG" "READ-DELIMITED-LIST"
              "READ-FROM-STRING" "READ-LINE" "READ-PRESERVING-WHITESPACE"
+	     "READ-SEQUENCE"
 	     "READER-ERROR" "READTABLE" "READTABLE-CASE" "READTABLEP" "REAL"
 	     "REALP" "REALPART" "REDUCE" "REM" "REMF" "REMHASH"
              "REMOVE" "REMOVE-DUPLICATES" "REMOVE-IF" "REMOVE-IF-NOT"
@@ -481,30 +503,38 @@
              "SIMPLE-ARRAY" "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR"
              "SIMPLE-BIT-VECTOR-P" "SIMPLE-CONDITION"
              "SIMPLE-CONDITION-FORMAT-ARGUMENTS"
+	     "SIMPLE-CONDITION-FORMAT-CONTROL"
              "SIMPLE-CONDITION-FORMAT-STRING" "SIMPLE-ERROR"
              "SIMPLE-STRING" "SIMPLE-STRING-P" "SIMPLE-TYPE-ERROR"
              "SIMPLE-VECTOR" "SIMPLE-VECTOR-P" "SIMPLE-WARNING" "SIN"
              "SINGLE-FLOAT" "SINGLE-FLOAT-EPSILON"
              "SINGLE-FLOAT-NEGATIVE-EPSILON" "SINH" "SIXTH" "SLEEP"
              "SOFTWARE-TYPE" "SOFTWARE-VERSION" "SOME" "SORT" "SPACE"
-             "SPECIAL" "SPECIAL-FORM-P" "SPEED" "SQRT" "STABLE-SORT"
+             "SPECIAL" "SPECIAL-OPERATOR-P" "SPEED" "SQRT" "STABLE-SORT"
              "STANDARD-CHAR" "STANDARD-CHAR-P" "STEP"
              "STORAGE-CONDITION" "STORE-VALUE" "STREAM"
              "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM"
-             "STREAMP" "STRING" "STRING-CAPITALIZE" "STRING-CHAR"
+	     "STREAM-EXTERNAL-FORMAT"
+	     "STREAMP" "STRING" "STRING-CAPITALIZE" "STRING-CHAR"
              "STRING-CHAR-P" "STRING-DOWNCASE" "STRING-EQUAL"
              "STRING-GREATERP" "STRING-LEFT-TRIM" "STRING-LESSP"
              "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP"
-             "STRING-RIGHT-TRIM" "STRING-TRIM" "STRING-UPCASE" "STRING/="
+             "STRING-RIGHT-TRIM" "STRING-STREAM"
+	     "STRING-TRIM" "STRING-UPCASE" "STRING/="
              "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP"
-             "STRUCTURE" "SUBLIS" "SUBSEQ" "SUBSETP" "SUBST" "SUBST-IF"
+             "STRUCTURE" "STRUCTURE-CLASS" "STRUCTURE-OBJECT"
+	     "SUBLIS" "SUBSEQ" "SUBSETP" "SUBST" "SUBST-IF"
              "SUBST-IF-NOT" "SUBSTITUTE" "SUBSTITUTE-IF"
              "SUBSTITUTE-IF-NOT" "SUBTYPEP" "SVREF" "SXHASH" "SYMBOL"
              "SYMBOL-FUNCTION" "SYMBOL-MACROLET" "SYMBOL-NAME"
-             "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE" "SYMBOLP" "T"
+             "SYMBOL-PACKAGE" "SYMBOL-PLIST" "SYMBOL-VALUE" "SYMBOLP"
+	     "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T"
              "TAGBODY" "TAILP" "TAN" "TANH" "TENTH" "TERPRI" "THE" "THIRD"
-             "THROW" "TIME" "TRACE" "TRANSLATE-PATHNAME" "TREE-EQUAL"
-             "TRUENAME" "TRUNCATE" "TYPE" "TYPE-ERROR" "TYPE-ERROR-DATUM"
+             "THROW" "TIME" "TRACE" "TRANSLATE-LOGICAL-PATHNAME"
+	     "TRANSLATE-PATHNAME" "TREE-EQUAL"
+             "TRUENAME" "TRUNCATE" "TWO-WAY-STREAM"
+	     "TWO-WAY-STREAM-INPUT-STREAM" "TWO-WAY-STREAM-OUTPUT-STREAM"
+	     "TYPE" "TYPE-ERROR" "TYPE-ERROR-DATUM"
              "TYPE-ERROR-EXPECTED-TYPE" "TYPE-OF" "TYPECASE" "TYPEP"
              "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT" "UNINTERN"
              "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE"
@@ -514,48 +544,13 @@
              "VALUES-LIST" "VARIABLE" "VECTOR" "VECTOR-POP" "VECTOR-PUSH"
              "VECTOR-PUSH-EXTEND" "VECTORP" "WARN" "WARNING" "WHEN"
              "WILD-PATHNAME-P" "WITH-COMPILATION-UNIT"
+	     "WITH-CONDITION-RESTARTS"
              "WITH-HASH-TABLE-ITERATOR" "WITH-INPUT-FROM-STRING"
              "WITH-OPEN-FILE" "WITH-OPEN-STREAM" "WITH-OUTPUT-TO-STRING"
              "WITH-PACKAGE-ITERATOR" "WITH-SIMPLE-RESTART"
              "WITH-STANDARD-IO-SYNTAX" "WRITE" "WRITE-BYTE" "WRITE-CHAR"
-             "WRITE-LINE" "WRITE-STRING" "WRITE-TO-STRING" "Y-OR-N-P"
-             "YES-OR-NO-P" "ZEROP"
-
-	     "COPY-STRUCTURE"
- "CONCATENATED-STREAM"
-                  "BUILT-IN-CLASS"
-                  "SYNONYM-STREAM"
-                  "LOGICAL-PATHNAME-P"
-                  "INTERACTIVE-STREAM-P"
-                  "CONCATENATED-STREAM-STREAMS"
-                  "TWO-WAY-STREAM"
-                  "STRUCTURE-CLASS"
-                  "OPEN-STREAM-P"
-                  "STRUCTURE-OBJECT"
-                  "FLOATING-POINT-INVALID-OPERATION"
-                  "LOGICAL-PATHNAME-TRANSLATIONS"
-                  "LOGICAL-PATHNAME"
-                  "CLASS"
-                  "CLASS-OF"
-                  "TWO-WAY-STREAM-OUTPUT-STREAM"
-                  "ECHO-STREAM"
-                  "ECHO-STREAM-OUTPUT-STREAM"
-                  "FILE-STREAM"
-                  "ARRAY-DISPLACEMENT"
-                  "LOAD-LOGICAL-PATHNAME-TRANSLATIONS"
-                  "FLOATING-POINT-INEXACT"
-                  "TWO-WAY-STREAM-INPUT-STREAM"
-                  "BROADCAST-STREAM-STREAMS"
-                  "GENERIC-FUNCTION"
-                  "STRING-STREAM"
-                  "ECHO-STREAM-INPUT-STREAM"
-                  "SYNONYM-STREAM-SYMBOL"
-                  "TRANSLATE-LOGICAL-PATHNAME"
-                  "CLASS-NAME"
-                  "FIND-CLASS"
-                  "BROADCAST-STREAM"
-                  "CHAR-INT"
-                  "DELETE-PACKAGE"
+             "WRITE-LINE" "WRITE-STRING" "WRITE-TO-STRING"
+	     "WRITE-SEQUENCE" "Y-OR-N-P" "YES-OR-NO-P" "ZEROP"
 
              "ADD-METHOD" "CALL-METHOD"
              "CALL-NEXT-METHOD" "CHANGE-CLASS"
@@ -573,16 +568,13 @@
 	     "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
              "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "WITH-ACCESSORS"
              "WITH-ADDED-METHODS" "WITH-SLOTS"
-             "PARSE-ERROR" "CELL-ERROR-NAME" "SIMPLE-CONDITION-FORMAT-CONTROL"
-             "STREAM-EXTERNAL-FORMAT" "FILE-STRING-LENGTH"
-             "WITH-CONDITION-RESTARTS" "COMMON" "HASH-TABLE-WEAK-P"
-             "GET-SETF-EXPANSION" "STYLE-WARNING" "SPECIAL-OPERATOR-P"
-             "COMPILER-MACRO" "PRINT-NOT-READABLE-OBJECT"
+             "CELL-ERROR-NAME"
+	     "COMMON" "HASH-TABLE-WEAK-P"
+             "GET-SETF-EXPANSION" "STYLE-WARNING" 
+             "PRINT-NOT-READABLE-OBJECT"
              "DEFINE-SETF-EXPANDER" "PRINT-NOT-READABLE" "METHOD"
-	     "METHOD-COMBINATION" "DYNAMIC-EXTENT"
-
-	     "MAP-INTO" "MAKE-LOAD-FORM"
-	     "MAKE-LOAD-FORM-SAVING-SLOTS" "COMPILE-FILE-PATHNAME"))
+	     "METHOD-COMBINATION" 
+	     "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS"))
 
 (defpackage "EVAL"
             (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
-- 
GitLab