diff --git a/code/exports.lisp b/code/exports.lisp
index d9ac532a88a9e33fa0d3b9d496e51afd4eac9065..2a50cdf8787464c35cccba5215adf60fd0f5b914 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.84 1992/08/03 19:44:38 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.85 1992/10/09 14:47:04 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -423,10 +423,38 @@
              "UNIX-SYMLINK" "UNIX-SYNC" "UNIX-TRUNCATE" "UNIX-TTYNAME"
              "UNIX-UID" "UNIX-UNLINK" "UNIX-UTIMES" "UNIX-WRITE" "WINSIZE"
              "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
-             "WS-YPIXEL" "W_OK" "X_OK"))
+             "WS-YPIXEL" "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO"
+             "SIGEMSG" "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2"
+             "EALREADY" "SIGPIPE" "EACCES" "CHECK" "SIGXCPU" "EOPNOTSUPP"
+             "SIGFPE" "SIGHUP" "ENOTSOCK" "OPEN-DIR" "SIGMASK" "EINTR"
+             "SIGCONT" "UNIX-RESOLVE-LINKS" "SIGKILL" "EMSGSIZE" "ERANGE"
+             "EPROTOTYPE" "UNIX-SIGNAL-NUMBER" "EPFNOSUPPORT" "SIGILL"
+             "EDOM" "UNIX-SIGPAUSE" "EDQUOT" "FD-SETSIZE" "SIGTSTP"
+             "EAFNOSUPPORT" "TCGETPGRP" "EMFILE" "ECONNRESET"
+             "EADDRNOTAVAIL" "SIGALRM" "ENETDOWN" "EVICEOP"
+             "UNIX-FAST-GETRUSAGE" "EPERM" "SIGINT" "EXDEV" "EDEADLK"
+             "ENOSPC" "ECONNREFUSED" "SIGWINCH" "ENOPROTOOPT" "ESRCH"
+             "EUSERS" "SIGVTALRM" "ENOTCONN" "ESUCCESS" "EPIPE"
+             "UNIX-SIMPLIFY-PATHNAME" "EISCONN" "FD-ISSET" "SIGMSG"
+             "ESHUTDOWN" "EBUSY" "SIGTERM" "ENAMETOOLONG" "EMLINK"
+             "EADDRINUSE" "SIGBUS" "ERESTART" "TTY-PROCESS-GROUP"
+             "UNIX-SIGNAL-NAME" "ETIMEDOUT" "ECHILD" "EFBIG" "SIGTRAP"
+             "UNIX-KILLPG" "ENOTBLK" "SIGIOT" "SIGUSR1" "ECONNABORTED"
+             "EHOSTUNREACH" "EBADF" "EINVAL" "FD-SET" "CLOSE-DIR" "EISDIR"
+             "SIGTTIN" "UNIX-KILL" "ENOTDIR" "EHOSTDOWN" "E2BIG" "ESPIPE"
+             "UNIX-FAST-SELECT" "ENXIO" "ENOTTY" "ELOOP" "LTCHARS"
+             "UNIX-SIGNAL-DESCRIPTION" "SIGXFSZ" "EINPROGRESS" "ENOENT"
+             "EPROTONOSUPPORT" "UNIX-SIGBLOCK" "SIGIO" "ENOMEM" "SIGEMT"
+             "EFAULT" "ENODEV" "EIO" "EVICEERR" "ETXTBSY" "EWOULDBLOCK"
+             "EAGAIN" "EDESTADDRREQ" "ENOEXEC" "ENETUNREACH" "ENOTEMPTY"
+             "READ-DIR" "UNIX-MAYBE-PREPEND-CURRENT-DIRECTORY" "ENFILE"
+             "SIGTTOU" "EEXIST" "SIGPROF" "SIGSTOP" "ENETRESET" "SIGURG"
+             "ENOBUFS" "EPROCLIM" "EROFS" "ETOOMANYREFS" "UNIX-FILE-KIND"
+             "ELOCAL" "UNIX-SIGSETMASK" "EREMOTE" "ESOCKTNOSUPPORT"))
 (intern "FUNCALLABLE-INSTANCE-P" "KERNEL")
 (defpackage "PCL"
             (:import-from "KERNEL" "FUNCALLABLE-INSTANCE-P")
+            (:shadow "DESTRUCTURING-BIND" "DOCUMENTATION")
             (:export "ADD-METHOD" "BUILT-IN-CLASS" "CALL-METHOD"
              "CALL-NEXT-METHOD" "CHANGE-CLASS" "CLASS-NAME" "CLASS-OF"
              "COMPUTE-APPLICABLE-METHODS" "DEFCLASS" "DEFGENERIC"
@@ -461,59 +489,65 @@
              "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*"
              "*DESCRIBE-INDENTATION*" "*DESCRIBE-LEVEL*"
              "*DESCRIBE-PRINT-LENGTH*" "*DESCRIBE-PRINT-LEVEL*"
-             "*DESCRIBE-VERBOSE*" "*ERROR-OUTPUT*" "*EVALHOOK*" "*FEATURES*"
-             "*GENSYM-COUNTER*" "*LOAD-VERBOSE*" "*MACROEXPAND-HOOK*"
-             "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*" "*PRINT-BASE*"
-             "*PRINT-CASE*" "*PRINT-CIRCLE*" "*PRINT-ESCAPE*" "*PRINT-GENSYM*"
-             "*PRINT-LENGTH*" "*PRINT-LEVEL*" "*PRINT-LINES*"
-             "*PRINT-MISER-WIDTH*" "*PRINT-PPRINT-DISPATCH*" "*PRINT-PRETTY*"
-             "*PRINT-RADIX*" "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*"
-             "*QUERY-IO*" "*RANDOM-STATE*" "*READ-BASE*"
-             "*READ-DEFAULT-FLOAT-FORMAT*" "*READ-EVAL*" "*READ-SUPPRESS*"
-             "*READTABLE*" "*STANDARD-INPUT*" "*STANDARD-OUTPUT*"
-             "*TERMINAL-IO*" "*TRACE-OUTPUT*" "+" "++" "+++" "-" "/" "//" "///"
-             "/=" "1+" "1-" "<" "<=" "=" ">" ">=" "ABORT" "ABS" "ACONS" "ACOS"
+             "*DESCRIBE-VERBOSE*" "*ERROR-OUTPUT*" "*EVALHOOK*"
+             "*FEATURES*" "*GENSYM-COUNTER*" "*LOAD-PATHNAME*"
+             "*LOAD-PRINT*" "*LOAD-TRUENAME*" "*LOAD-VERBOSE*"
+             "*MACROEXPAND-HOOK*" "*MODULES*" "*PACKAGE*" "*PRINT-ARRAY*"
+             "*PRINT-BASE*" "*PRINT-CASE*" "*PRINT-CIRCLE*"
+             "*PRINT-ESCAPE*" "*PRINT-GENSYM*" "*PRINT-LENGTH*"
+             "*PRINT-LEVEL*" "*PRINT-LINES*" "*PRINT-MISER-WIDTH*"
+             "*PRINT-PPRINT-DISPATCH*" "*PRINT-PRETTY*" "*PRINT-RADIX*"
+             "*PRINT-READABLY*" "*PRINT-RIGHT-MARGIN*" "*QUERY-IO*"
+             "*RANDOM-STATE*" "*READ-BASE*" "*READ-DEFAULT-FLOAT-FORMAT*"
+             "*READ-EVAL*" "*READ-SUPPRESS*" "*READTABLE*"
+             "*STANDARD-INPUT*" "*STANDARD-OUTPUT*" "*TERMINAL-IO*"
+             "*TRACE-OUTPUT*" "+" "++" "+++" "-" "/" "//" "///" "/=" "1+"
+             "1-" "<" "<=" "=" ">" ">=" "ABORT" "ABS" "ACONS" "ACOS"
              "ACOSH" "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P"
-             "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY" "APPLYHOOK"
-             "APROPOS" "APROPOS-LIST" "AREF" "ARITHMETIC-ERROR"
-             "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION" "ARRAY"
-             "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT" "ARRAY-DIMENSIONS"
-             "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" "ASSERT"
-             "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH" "ATOM"
-             "BASE-CHAR" "BASE-CHARACTER" "BASE-STRING" "BIGNUM" "BIT"
-             "BIT-AND" "BIT-ANDC1" "BIT-ANDC2" "BIT-EQV" "BIT-IOR" "BIT-NAND"
-             "BIT-NOR" "BIT-NOT" "BIT-ORC1" "BIT-ORC2" "BIT-VECTOR"
-             "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" "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" "CATCH" "CCASE" "CDAAAR"
-             "CDAADR" "CDAAR" "CDADAR" "CDADDR" "CDADR" "CDAR" "CDDAAR"
-             "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" "CDDDR" "CDDR" "CDR" "CEILING"
-             "CELL-ERROR" "CERROR" "CHAR" "CHAR-BIT" "CHAR-BITS"
-             "CHAR-BITS-LIMIT" "CHAR-CODE" "CHAR-CODE-LIMIT" "CHAR-CONTROL-BIT"
-             "CHAR-DOWNCASE" "CHAR-EQUAL" "CHAR-FONT" "CHAR-FONT-LIMIT"
-             "CHAR-GREATERP" "CHAR-HYPER-BIT" "CHAR-INT" "CHAR-LESSP"
-             "CHAR-META-BIT" "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP"
-             "CHAR-NOT-LESSP" "CHAR-SUPER-BIT" "CHAR-UPCASE" "CHAR/=" "CHAR<"
-             "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER" "CHARACTERP"
-             "CHECK-TYPE" "CIS" "CLEAR-INPUT" "CLEAR-OUTPUT" "CLOSE" "CLRHASH"
-             "CODE-CHAR" "COERCE" "COMMON" "COMMONP" "COMPILATION-SPEED"
-             "COMPILE" "COMPILE-FILE" "COMPILED-FUNCTION" "COMPILED-FUNCTION-P"
-             "COMPILER-LET" "COMPLEMENT" "COMPLEX" "COMPLEXP"
-             "COMPUTE-RESTARTS" "CONCATENATE" "COND" "CONDITION" "CONJUGATE"
-             "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE" "CONTROL-ERROR"
-             "COPY-ALIST" "COPY-LIST" "COPY-PPRINT-DISPATCH" "COPY-READTABLE"
-             "COPY-SEQ" "COPY-SYMBOL" "COPY-TREE" "COS" "COSH" "COUNT"
-             "COUNT-IF" "COUNT-IF-NOT" "CTYPECASE" "DEBUG-INFO" "DECF"
-             "DECLAIM" "DECLARATION" "DECLARE" "DECODE-FLOAT"
-             "DECODE-UNIVERSAL-TIME" "DEFCONSTANT" "DEFINE-CONDITION"
+             "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY"
+             "APPLYHOOK" "APROPOS" "APROPOS-LIST" "AREF" "ARITHMETIC-ERROR"
+             "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION"
+             "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT"
+             "ARRAY-DIMENSIONS" "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"
+             "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH"
+             "ATOM" "BASE-CHAR" "BASE-CHARACTER" "BASE-STRING" "BIGNUM"
+             "BIT" "BIT-AND" "BIT-ANDC1" "BIT-ANDC2" "BIT-EQV" "BIT-IOR"
+             "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1" "BIT-ORC2"
+             "BIT-VECTOR" "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE"
+             "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"
+             "CATCH" "CCASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR"
+             "CDADR" "CDAR" "CDDAAR" "CDDADR" "CDDAR" "CDDDAR" "CDDDDR"
+             "CDDDR" "CDDR" "CDR" "CEILING" "CELL-ERROR" "CERROR" "CHAR"
+             "CHAR-BIT" "CHAR-BITS" "CHAR-BITS-LIMIT" "CHAR-CODE"
+             "CHAR-CODE-LIMIT" "CHAR-CONTROL-BIT" "CHAR-DOWNCASE"
+             "CHAR-EQUAL" "CHAR-FONT" "CHAR-FONT-LIMIT" "CHAR-GREATERP"
+             "CHAR-HYPER-BIT" "CHAR-INT" "CHAR-LESSP" "CHAR-META-BIT"
+             "CHAR-NAME" "CHAR-NOT-EQUAL" "CHAR-NOT-GREATERP"
+             "CHAR-NOT-LESSP" "CHAR-SUPER-BIT" "CHAR-UPCASE" "CHAR/="
+             "CHAR<" "CHAR<=" "CHAR=" "CHAR>" "CHAR>=" "CHARACTER"
+             "CHARACTERP" "CHECK-TYPE" "CIS" "CLEAR-INPUT" "CLEAR-OUTPUT"
+             "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE" "COMMON" "COMMONP"
+             "COMPILATION-SPEED" "COMPILE" "COMPILE-FILE"
+             "COMPILED-FUNCTION" "COMPILED-FUNCTION-P" "COMPILER-LET"
+             "COMPILER-MACRO-FUNCTION" "COMPILER-MACROEXPAND"
+	     "COMPILER-MACROEXPAND-1" "COMPLEMENT" "COMPLEX"
+	     "COMPLEXP" "COMPUTE-RESTARTS" "CONCATENATE" "COND" "CONDITION"
+             "CONJUGATE" "CONS" "CONSP" "CONSTANTLY" "CONSTANTP" "CONTINUE"
+             "CONTROL-ERROR" "COPY-ALIST" "COPY-LIST"
+             "COPY-PPRINT-DISPATCH" "COPY-READTABLE" "COPY-SEQ"
+             "COPY-SYMBOL" "COPY-TREE" "COS" "COSH" "COUNT" "COUNT-IF"
+             "COUNT-IF-NOT" "CTYPECASE" "DEBUG-INFO" "DECF" "DECLAIM"
+             "DECLARATION" "DECLARE" "DECODE-FLOAT" "DECODE-UNIVERSAL-TIME"
+             "DEFCONSTANT" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION"
              "DEFINE-MODIFY-MACRO" "DEFINE-SETF-METHOD" "DEFMACRO" "DEFPACKAGE"
              "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR"
              "DELETE" "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF"
@@ -543,7 +577,9 @@
              "GET-SETF-METHOD" "GET-SETF-METHOD-MULTIPLE-VALUE"
              "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P"
              "HANDLER-BIND" "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT"
-             "HASH-TABLE-P" "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE"
+             "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"
              "INLINE" "INPUT-STREAM-P" "INSPECT" "INT-CHAR" "INTEGER"
              "INTEGER-DECODE-FLOAT" "INTEGER-LENGTH" "INTEGERP" "INTERN"
@@ -618,39 +654,44 @@
              "RATIONAL" "RATIONALIZE" "RATIONALP" "READ" "READ-BYTE"
              "READ-CHAR" "READ-CHAR-NO-HANG" "READ-DELIMITED-LIST"
              "READ-FROM-STRING" "READ-LINE" "READ-PRESERVING-WHITESPACE"
-             "READTABLE" "READTABLEP" "REAL" "REALPART" "REDUCE" "REM" "REMF"
-             "REMHASH" "REMOVE" "REMOVE-DUPLICATES" "REMOVE-IF" "REMOVE-IF-NOT"
+	     "READER-ERROR" "READTABLE" "READTABLE-CASE" "READTABLEP" "REAL"
+	     "REALP" "REALPART" "REDUCE" "REM" "REMF" "REMHASH"
+             "REMOVE" "REMOVE-DUPLICATES" "REMOVE-IF" "REMOVE-IF-NOT"
              "REMPROP" "RENAME-FILE" "RENAME-PACKAGE" "REPLACE" "REQUIRE"
              "REST" "RESTART" "RESTART-BIND" "RESTART-CASE" "RESTART-NAME"
              "RETURN" "RETURN-FROM" "REVAPPEND" "REVERSE" "ROOM" "ROTATEF"
-             "ROUND" "ROW-MAJOR-AREF" "RPLACA" "RPLACD" "SAFETY" "SATISFIES"
-             "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND" "SEQUENCE"
-             "SERIOUS-CONDITION" "SET" "SET-CHAR-BIT" "SET-DIFFERENCE"
-             "SET-DISPATCH-MACRO-CHARACTER" "SET-EXCLUSIVE-OR"
-             "SET-MACRO-CHARACTER" "SET-PPRINT-DISPATCH" "SET-SYNTAX-FROM-CHAR"
-             "SETF" "SETQ" "SEVENTH" "SHADOW" "SHADOWING-IMPORT" "SHIFTF"
-             "SHORT-FLOAT" "SHORT-FLOAT-EPSILON" "SHORT-FLOAT-NEGATIVE-EPSILON"
-             "SHORT-SITE-NAME" "SIGNAL" "SIGNED-BYTE" "SIGNUM" "SIMPLE-ARRAY"
-             "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR" "SIMPLE-BIT-VECTOR-P"
-             "SIMPLE-CONDITION" "SIMPLE-CONDITION-FORMAT-ARGUMENTS"
-             "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"
+             "ROUND" "ROW-MAJOR-AREF" "RPLACA" "RPLACD" "SAFETY"
+             "SATISFIES" "SBIT" "SCALE-FLOAT" "SCHAR" "SEARCH" "SECOND"
+             "SEQUENCE" "SERIOUS-CONDITION" "SET" "SET-CHAR-BIT"
+             "SET-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER"
+             "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER" "SET-PPRINT-DISPATCH"
+             "SET-SYNTAX-FROM-CHAR" "SETF" "SETQ" "SEVENTH" "SHADOW"
+             "SHADOWING-IMPORT" "SHIFTF" "SHORT-FLOAT"
+             "SHORT-FLOAT-EPSILON" "SHORT-FLOAT-NEGATIVE-EPSILON"
+             "SHORT-SITE-NAME" "SIGNAL" "SIGNED-BYTE" "SIGNUM"
+             "SIMPLE-ARRAY" "SIMPLE-BASE-STRING" "SIMPLE-BIT-VECTOR"
+             "SIMPLE-BIT-VECTOR-P" "SIMPLE-CONDITION"
+             "SIMPLE-CONDITION-FORMAT-ARGUMENTS"
+             "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"
              "STACK-OVERFLOW" "STANDARD-CHAR" "STANDARD-CHAR-P" "STEP"
              "STORAGE-CONDITION" "STORAGE-EXHAUSTED" "STORE-VALUE" "STREAM"
              "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM"
              "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<" "STRING<="
-             "STRING=" "STRING>" "STRING>=" "STRINGP" "STRUCTURE" "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"
+             "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<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP"
+             "STRUCTURE" "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"
              "TAGBODY" "TAILP" "TAN" "TANH" "TENTH" "TERPRI" "THE" "THIRD"
              "THROW" "TIME" "TRACE" "TRANSLATE-PATHNAME" "TREE-EQUAL"
@@ -658,9 +699,10 @@
              "TYPE-ERROR-EXPECTED-TYPE" "TYPE-OF" "TYPECASE" "TYPEP"
              "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT" "UNINTERN"
              "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE"
-             "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPPER-CASE-P" "USE-PACKAGE"
-             "USE-VALUE" "USER-HOMEDIR-PATHNAME" "VALUES" "VALUES-LIST"
-             "VARIABLE" "VECTOR" "VECTOR-POP" "VECTOR-PUSH"
+             "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPGRADED-ARRAY-ELEMENT-TYPE"
+	     "UPGRADED-COMPLEX-PART-TYPE" "UPPER-CASE-P"
+             "USE-PACKAGE" "USE-VALUE" "USER-HOMEDIR-PATHNAME" "VALUES"
+             "VALUES-LIST" "VARIABLE" "VECTOR" "VECTOR-POP" "VECTOR-PUSH"
              "VECTOR-PUSH-EXTEND" "VECTORP" "WARN" "WARNING" "WHEN"
              "WILD-PATHNAME-P" "WITH-COMPILATION-UNIT"
              "WITH-HASH-TABLE-ITERATOR" "WITH-INPUT-FROM-STRING"
@@ -826,7 +868,10 @@
              "VECTOR-STRUCTURE-SUBTYPE" "VECTOR-VALID-HASHING-SUBTYPE"
              "WEAK-POINTER-BROKEN-SLOT" "WEAK-POINTER-NEXT-SLOT"
              "WEAK-POINTER-SIZE" "WEAK-POINTER-TYPE" "WEAK-POINTER-VALUE-SLOT"
-             "WORD-BITS" "WORD-BYTES" "WORD-SHIFT" "ZERO-SC-NUMBER"))
+             "WORD-BITS" "WORD-BYTES" "WORD-SHIFT" "ZERO-SC-NUMBER"
+	     "SIGCONTEXT-FLOATING-POINT-MODES" "SIGCONTEXT-FLOAT-REGISTER"
+	     "SIGCONTEXT-PROGRAM-COUNTER" "SIGCONTEXT-REGISTER"
+	     "EXTERN-ALIEN-NAME" "SANCTIFY-FOR-EXECUTION"))
 (defpackage "CONDITIONS")
 (intern "DISASSEMBLE" "LISP")
 (defpackage "DISASSEM"
@@ -866,7 +911,8 @@
              "*HELP-LINE-SCROLL-COUNT*" "*IN-THE-DEBUGGER*"
              "*MAX-TRACE-INDENTATION*" "*TRACE-FRAME*" "*TRACE-PRINT-LENGTH*"
              "*TRACE-PRINT-LEVEL*" "*TRACED-FUNCTION-LIST*" "ARG" "BACKTRACE"
-             "INTERNAL-DEBUG" "VAR"))
+             "INTERNAL-DEBUG" "VAR" "*PRINT-LOCATION-KIND*"
+	     "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"))
 (intern "CHAR" "LISP")
 (defpackage "EXTENSIONS"
 	    (:nicknames "EXTENSIONS")
@@ -978,7 +1024,11 @@
              "TRANSLATE-KEY-EVENT" "TRANSLATE-MOUSE-CHARACTER"
              "TRANSLATE-MOUSE-KEY-EVENT" "TRULY-THE" "UNCOMPILE"
              "UNDEFINED-VALUE" "UNENCAPSULATE" "UNIX-NAMESTRING" "WEAK-POINTER"
-             "WEAK-POINTER-P" "WEAK-POINTER-VALUE" "WITH-CLX-EVENT-HANDLING"))
+             "WEAK-POINTER-P" "WEAK-POINTER-VALUE" "WITH-CLX-EVENT-HANDLING"
+	     "FEATUREP" "*IGNORE-EXTRA-CLOSE-PARENTHESES*" "*HERALD-ITEMS*"
+	     "SEARCH-LIST-DEFINED-P" "BYTES-CONSED-BETWEEN-GCS"
+	     "*LOAD-SOURCE-TYPES*" "*LOAD-OBJECT-TYPES*"
+	     "*DEFAULT-PACKAGE-USE-LIST*" "*GC-RUN-TIME*"))
 (defpackage "LOOP")
 (defpackage "HEMLOCK-INTERNALS"
 	    (:nicknames "HI")
@@ -1120,7 +1170,8 @@
              "RETURN-FROM-FRAME" "SET-BREAKPOINT-FOR-EDITOR"
              "SET-LOCATION-BREAKPOINT-FOR-EDITOR" "SOURCE-PATH-CONTEXT"
              "TOP-FRAME" "UNHANDLED-CONDITION" "UNKNOWN-CODE-LOCATION"
-             "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VARIABLE"))
+             "UNKNOWN-CODE-LOCATION-P" "UNKNOWN-DEBUG-VARIABLE"
+	     "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
 (dolist
     (name
      '("%ALIGNED-SAP" "%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT"
@@ -1273,6 +1324,7 @@
 	     "LABEL-ID" "FIXUP" "FIXUP-FLAVOR" "FIXUP-NAME" "FIXUP-OFFSET"
 	     "FIXUP-P" "MAKE-FIXUP"))
 (defpackage "DIRED"
+	    (:shadow "RENAME-FILE" "DELETE-FILE")
             (:export "*CLOBBER-DEFAULT*" "*ERROR-FUNCTION*"
              "*RECURSIVE-DEFAULT*" "*REPORT-FUNCTION*" "*UPDATE-DEFAULT*"
              "*YESP-FUNCTION*" "COPY-FILE" "DELETE-FILE" "FIND-FILE"
@@ -1338,7 +1390,8 @@
              "SYSTEM-AREA-POINTER-P" "UNPROCLAIM" "UNSTRUCTURED" "VECTOR-SAP"
              "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" "WITH-FD-HANDLER"
              "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING"
-             "WITHOUT-HEMLOCK" "WITHOUT-INTERRUPTS" "WORDS"))
+             "WITHOUT-HEMLOCK" "WITHOUT-INTERRUPTS" "WORDS"
+	     "OS-INIT" "ALLOCATE-SYSTEM-MEMORY-AT"))
 (dolist
     (name
      '("*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION" "INTEGER" "SINGLE-FLOAT" "UNION"
@@ -1352,7 +1405,8 @@
              "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE"
              "DEREF" "DOUBLE-FLOAT" "ENUM" "EXTERN-ALIEN" "FUNCTION" "INTEGER"
              "SAP-ALIEN" "SIGNED" "SINGLE-FLOAT" "SLOT" "STRUCT" "UNION"
-             "UNSIGNED" "VALUES" "WITH-ALIEN"))
+             "UNSIGNED" "VALUES" "WITH-ALIEN" "FREE-ALIEN" "NULL-ALIEN"
+	     "MAKE-ALIEN"))
 (dolist
     (name
      '("%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
@@ -1619,8 +1673,13 @@
              "VALUES-TYPES" "VALUES-TYPES-INTERSECT" "VOID"
              "WITH-CIRCULARITY-DETECTION" "WRONG-NUMBER-OF-INDICES-ERROR"
 	     "FDEFN" "MAKE-FDEFN" "FDEFN-P" "FDEFN-NAME" "FDEFN-FUNCTION"
-	     "FDEFN-MAKUNBOUND"))
-
+	     "FDEFN-MAKUNBOUND" "%COERCE-TO-FUNCTION" "FUNCTION-SUBTYPE"
+	     "*MAXIMUM-ERROR-DEPTH*" "%SET-SYMBOL-PLIST"
+	     "INFINITE-ERROR-PROTECT" "%SET-SIGNED-SAP-REF-8"
+	     "%SET-SIGNED-SAP-REF-16" "FIND-CALLER-NAME" "OLD-IN-PACKAGE"
+	     "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE" "OUTPUT-SYMBOL-NAME"
+	     "FSET" "RAW-DEFINITION" "%IN-PACKAGE" "%SET-SIGNED-SAP-REF-32"
+	     "INVOKE-MACROEXPAND-HOOK"))
 (defpackage "NEW-ASSEM"
   (:export "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH" "EMIT-CHOOSER"
 	   "DEFINE-EMITTER" "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"