diff --git a/bootfiles/18e/boot13.lisp b/bootfiles/18e/boot13.lisp
index c503fec1398eb23158e39d9ad7437d7fd653d806..0929e20fadd2f1ad1fb13a1be14a4cc3d3ae8333 100644
--- a/bootfiles/18e/boot13.lisp
+++ b/bootfiles/18e/boot13.lisp
@@ -1,9 +1,48 @@
 ;;;
-;;; Boot file for removing the "" nickname of the KEYWORD package.
+;;; Boot file for removing the "" nickname of the KEYWORD package,
+;;; removing the USER nickname from CL-USER, and removing the
+;;; LISP nickname from COMMON-LISP, the latter by introducing
+;;; a new COMMON-LISP package which LISP uses.
+;;;
 ;;; To bootstrap, copy this file to target:bootstrap.lisp
 ;;; using Pierre Mai's build scripts, and do a full build.
 ;;;
 
-(rename-package "KEYWORD" "KEYWORD")
+;;;
+;;; Remove the nickname "" from the KEYWORD package.
+;;;
+;;; Remove the nickname USER from CL-USER.
+;;;
+;;; Make a new package COMMON-LISP, from which LISP inherits
+;;; the standard symbols.
+;;;
+;;; Move DEBUG and FLOATING-POINT-INEXACT from EXT to CL.
+;;;
+
+(in-package :lisp)
+
+(rename-package "KEYWORD" "KEYWORD" nil)
+
+(cl:rename-package "COMMON-LISP-USER" "COMMON-LISP-USER" '("CL-USER"))
+(unuse-package "COMMON-LISP" "COMMON-LISP-USER")
+(use-package "LISP" "COMMON-LISP-USER")
+
+(rename-package "COMMON-LISP" "COMMON-LISP" nil)
+(rename-package "COMMON-LISP" "LISP" nil)
+(make-package "COMMON-LISP" :nicknames '("CL") :use nil)
+
+(let ((cl (find-package "CL"))
+      (lisp (find-package "LISP")))
+  (do-external-symbols (sym lisp)
+    (unintern sym lisp)
+    (let ((syms (list sym)))
+      (import syms cl)
+      (export syms cl)
+      (import syms lisp)
+      (export syms lisp))))
+
+(cl:use-package "CL" "LISP")
+
+(in-package :cl-user)
 
 ;;; end of file.
diff --git a/code/debug.lisp b/code/debug.lisp
index b6c40d5497b45c3c6d8d0d63bd15e7edfcc8f297..ece58f0adc2e1b38661bfdc2f4c3bc92824f9667 100644
--- a/code/debug.lisp
+++ b/code/debug.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/debug.lisp,v 1.59 2003/05/05 11:56:53 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.60 2003/06/18 09:23:12 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -877,8 +877,8 @@ See the CMU Common Lisp User's Manual for more information.
 (defun debug-eval-print (exp)
   (setq +++ ++ ++ + + - - exp)
   (let* ((values (multiple-value-list
-		  (cond ((and (fboundp 'cl::commandp)(funcall 'cl::commandp exp))
-			 (funcall 'cl::invoke-command-interactive exp))
+		  (cond ((and (fboundp 'lisp::commandp)(funcall 'lisp::commandp exp))
+			 (funcall 'lisp::invoke-command-interactive exp))
 			((and (fboundp 'compile) *auto-eval-in-frame*)
 			 (di:eval-in-frame *current-frame* -))
 			(t (eval -)))))
diff --git a/code/defstruct.lisp b/code/defstruct.lisp
index a9fd301002b870f79e3a1e81aa81448dfee87df0..60ff2fbf64bbcafd4d4a66fa3577e0660bc33039 100644
--- a/code/defstruct.lisp
+++ b/code/defstruct.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/defstruct.lisp,v 1.88 2003/05/28 08:50:41 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/defstruct.lisp,v 1.89 2003/06/18 09:23:11 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -449,11 +449,11 @@
 			 name-and-options)))
 	 (name (dd-name defstruct))
 	 (pkg (symbol-package name)))
-    (when (and cl::*enable-package-locked-errors*
+    (when (and lisp::*enable-package-locked-errors*
 	       pkg
 	       (ext:package-definition-lock pkg))
       (restart-case
-	  (error 'cl::package-locked-error
+	  (error 'lisp::package-locked-error
 		 :package pkg
 		 :format-control "defining structure ~A"
 		 :format-arguments (list name))
diff --git a/code/eval.lisp b/code/eval.lisp
index f1f77abe64bd85896b9959f1109b162bc69b4a5d..1413c1d90524aa5e96971ab5ddb8534f2bd6454b 100644
--- a/code/eval.lisp
+++ b/code/eval.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/eval.lisp,v 1.39 2003/05/19 10:47:26 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.40 2003/06/18 09:23:11 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -98,7 +98,7 @@
 	     (lambda (s stream d)
 	       (declare (ignore d)) 
 	       (print-unreadable-object (s stream :identity t)
-		 (cl::output-interpreted-function s stream)))))
+		 (lisp::output-interpreted-function s stream)))))
   ;;
   ;; The name of this interpreted function, or NIL if none specified.
   (%name nil)
diff --git a/code/exports.lisp b/code/exports.lisp
index af8f090f4c0f864e73be8a7d4d9e9a073fb0ba45..e7dc07770b77bb8e17f96c535ba90e4b989f47b2 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.215 2003/06/11 16:41:10 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.216 2003/06/18 09:23:11 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -35,9 +35,12 @@
 (if (find-package "FORMAT")
     (rename-package "FORMAT" "FORMAT" 'nil)
     (make-package "FORMAT" :nicknames 'nil :use nil))
-(if (find-package "COMMON-LISP")
-    (rename-package "COMMON-LISP" "COMMON-LISP" '("CL" "LISP"))
+(if (find-package "LISP")
+    (rename-package "LISP" "LISP")
     (make-package "LISP" :nicknames 'nil :use nil))
+(if (find-package "COMMON-LISP")
+    (rename-package "COMMON-LISP" "COMMON-LISP" '("CL"))
+    (make-package "COMMON-LISP" :nicknames '("CL") :use nil))
 (if (find-package "EVAL")
     (rename-package "EVAL" "EVAL" 'nil)
     (make-package "EVAL" :nicknames 'nil :use nil))
@@ -115,8 +118,8 @@
     (rename-package "PROFILE" "PROFILE" 'nil)
     (make-package "PROFILE" :nicknames 'nil :use nil))
 (if (find-package "COMMON-LISP-USER")
-    (rename-package "COMMON-LISP-USER" "COMMON-LISP-USER" '("CL-USER" "USER"))
-    (make-package "COMMON-LISP-USER" :nicknames '("CL-USER" "USER") :use nil))
+    (rename-package "COMMON-LISP-USER" "COMMON-LISP-USER" '("CL-USER"))
+    (make-package "COMMON-LISP-USER" :nicknames '("CL-USER") :use nil))
 (if (find-package "KERNEL")
     (rename-package "KERNEL" "KERNEL" 'nil)
     (make-package "KERNEL" :nicknames 'nil :use nil))
@@ -141,11 +144,12 @@
 (use-package '("EXTENSIONS" "LISP") "CONDITIONS")
 (use-package '("LISP") "DISASSEM")
 (use-package '("EXTENSIONS" "LISP" "SYSTEM") "DEBUG")
-(use-package '("C-CALL" "ALIEN" "LISP" "SYSTEM") "EXTENSIONS")
+(use-package '("C-CALL" "ALIEN" "COMMON-LISP" "SYSTEM") "EXTENSIONS")
 (use-package '("LISP") "LOOP")
 (use-package '("LISP" "SYSTEM" "EXTENSIONS" "KERNEL") "DEBUG-INTERNALS")
 (use-package
- '("ALIEN-INTERNALS" "ALIEN" "LISP" "EXTENSIONS" "KERNEL" "SYSTEM" "BIGNUM")
+ '("ALIEN-INTERNALS" "ALIEN" "COMMON-LISP" "EXTENSIONS" "KERNEL"
+   "SYSTEM" "BIGNUM")
  "C")
 (use-package '("LISP") "WIRE")
 (use-package '("KERNEL" "EXTENSIONS" "LISP") "PRETTY-PRINT")
@@ -153,7 +157,7 @@
 (use-package '("SYSTEM" "EXTENSIONS" "LISP") "ALIEN")
 (use-package '("LISP") "ALIEN-INTERNALS")
 (use-package '("LISP") "PROFILE")
-(use-package '("EXTENSIONS" "LISP") "COMMON-LISP-USER")
+(use-package '("EXTENSIONS" "COMMON-LISP") "COMMON-LISP-USER")
 (use-package '("ALIEN-INTERNALS" "LISP" "EXTENSIONS" "SYSTEM" "BIGNUM")
              "KERNEL")
 (use-package '("LISP") "NEW-ASSEM")
@@ -161,417 +165,632 @@
 (defpackage "ANSI-LOOP")
 
 (defpackage "C-CALL"
-            (:export "C-STRING" "CHAR" "DOUBLE" "FLOAT" "INT" "LONG" "SHORT"
-             "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT"
-             "VOID"))
+  (:import-from "COMMON-LISP" "CHAR" "FLOAT")
+  (:export "C-STRING" "CHAR" "DOUBLE" "FLOAT" "INT" "LONG" "SHORT"
+	   "UNSIGNED-CHAR" "UNSIGNED-INT" "UNSIGNED-LONG" "UNSIGNED-SHORT"
+	   "VOID"))
+
 (defpackage "INSPECT"
-            (:export "*INTERFACE-STYLE*" "REMOVE-ALL-DISPLAYS"
-             "REMOVE-OBJECT-DISPLAY" "SHOW-OBJECT"))
+  (:export "*INTERFACE-STYLE*" "REMOVE-ALL-DISPLAYS"
+	   "REMOVE-OBJECT-DISPLAY" "SHOW-OBJECT"))
+
 (defpackage "BIGNUM"
-            (:export "%ADD-WITH-CARRY" "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
-             "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET" "%BIGNUM-SET-LENGTH"
-             "%DIGIT-0-OR-PLUSP" "%DIGIT-LOGICAL-SHIFT-RIGHT"
-             "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT" "%FLOOR"
-             "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR" "%MULTIPLY"
-             "%MULTIPLY-AND-ADD" "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
-             "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT" "BIGNUM-COMPARE"
-             "BIGNUM-DEPOSIT-BYTE" "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD"
-             "BIGNUM-INDEX" "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
-	     "BIGNUM-LOGBITP" "BIGNUM-LOGCOUNT"
-	     "BIGNUM-LOGICAL-AND" "BIGNUM-LOGICAL-IOR"
-             "BIGNUM-LOGICAL-NOT" "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
-             "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
-             "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
-             "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS"
-             "NEGATE-BIGNUM" "SUBTRACT-BIGNUM"))
+  (:export "%ADD-WITH-CARRY" "%ALLOCATE-BIGNUM" "%ASHL" "%ASHR"
+	   "%BIGNUM-LENGTH" "%BIGNUM-REF" "%BIGNUM-SET" "%BIGNUM-SET-LENGTH"
+	   "%DIGIT-0-OR-PLUSP" "%DIGIT-LOGICAL-SHIFT-RIGHT"
+	   "%FIXNUM-DIGIT-WITH-CORRECT-SIGN" "%FIXNUM-TO-DIGIT" "%FLOOR"
+	   "%LOGAND" "%LOGIOR" "%LOGNOT" "%LOGXOR" "%MULTIPLY"
+	   "%MULTIPLY-AND-ADD" "%SUBTRACT-WITH-BORROW" "ADD-BIGNUMS"
+	   "BIGNUM-ASHIFT-LEFT" "BIGNUM-ASHIFT-RIGHT" "BIGNUM-COMPARE"
+	   "BIGNUM-DEPOSIT-BYTE" "BIGNUM-ELEMENT-TYPE" "BIGNUM-GCD"
+	   "BIGNUM-INDEX" "BIGNUM-INTEGER-LENGTH" "BIGNUM-LOAD-BYTE"
+	   "BIGNUM-LOGBITP" "BIGNUM-LOGCOUNT"
+	   "BIGNUM-LOGICAL-AND" "BIGNUM-LOGICAL-IOR"
+	   "BIGNUM-LOGICAL-NOT" "BIGNUM-LOGICAL-XOR" "BIGNUM-PLUS-P"
+	   "BIGNUM-TO-FLOAT" "BIGNUM-TRUNCATE" "BIGNUM-TYPE"
+	   "FLOAT-BIGNUM-RATIO" "MAKE-SMALL-BIGNUM"
+	   "MULTIPLY-BIGNUM-AND-FIXNUM" "MULTIPLY-BIGNUMS" "MULTIPLY-FIXNUMS"
+	   "NEGATE-BIGNUM" "SUBTRACT-BIGNUM"))
 
 (defpackage "UNIX"
-            (:export "CADDR-T" "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN"
-             "DADDR-T" "DEV-T" "DIRECT" "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD"
-             "F-GETFD" "F-GETFL" "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN"
-             "FSFILCNT-T" "FSBLKCNT-T" "BLKCNT-T"
-             "FAPPEND" "FASYNC" "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC"
-             "F_TEST" "F_TLOCK" "UNIX-LOCKF" "F_LOCK" "F_ULOCK"
-             "F_OK" "GET-UNIX-ERROR-MSG" "GID-T" "INO-T" "IT-INTERVAL"
-             "IT-VALUE" "ITIMERVAL" "UNIX-SETITIMER" "UNIX-GETITIMER"
-	     "BLKCNT-T" "FSBLKCNT-T" "FSFILCNT-T"
-	     "F_TEST" "F_TLOCK" "F_LOCK" "F_ULOCK" "UNIX-LOCKF"
-	     "PROT_READ" "PROT_WRITE" "PROT_EXEC" "PROT_NONE"
-	     "MAP_SHARED" "MAP_PRIVATE" "MAP_FIXED" "MAP_ANONYMOUS"
-	     "UNIX-MMAP" "UNIX-MUNMAP"
-	     "KBDCGET" "KBDCRESET" "KBDCRST" "KBDCSET"
-             "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET" "L_INCR" "L_SET"
-             "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL" "O_RDONLY" "O_RDWR"
-             "O_TRUNC" "O_WRONLY" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
-             "RLIM-MAX" "RLIMIT" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
-             "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
-             "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
-             "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
-             "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
-             "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
-             "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC"
-             "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
-             "SG-OSPEED" "SGTTYB" "SIGCONTEXT" "SIZE-T" "ST-ATIME" "ST-BLKSIZE"
-             "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME"
-             "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "SWBLK-T" "T-BRKC"
-             "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC"
-             "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCHARS"
-             "TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH"
-             "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ"
-             "TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP"
-             "TIOCSWINSZ" "TTY-CBREAK" "TTY-CRMOD" "TTY-LCASE"
-             "TTY-RAW" "TTY-TANDEM" "TV-SEC" "TV-USEC" "TZ-DSTTIME"
-             "TZ-MINUTESWEST" "UID-T" "UNIX-ACCEPT" "UNIX-ACCESS" "UNIX-BIND"
-             "UNIX-CHDIR" "UNIX-CHMOD" "UNIX-CHOWN" "UNIX-CLOSE" "UNIX-CONNECT"
-             "UNIX-CREAT" "UNIX-CURRENT-DIRECTORY" "UNIX-DUP" "UNIX-DUP2"
-             "UNIX-ERRNO" "UNIX-EXECVE" "UNIX-EXIT" "UNIX-FCHMOD" "UNIX-FCHOWN"
-             "UNIX-FCNTL" "UNIX-FD" "UNIX-FILE-MODE" "UNIX-FORK" "UNIX-FSTAT"
-             "UNIX-FSYNC" "UNIX-FTRUNCATE" "UNIX-GETDTABLESIZE" "UNIX-GETEGID"
-             "UNIX-GETGID" "UNIX-GETHOSTID" "UNIX-GETHOSTNAME"
-             "UNIX-GETPAGESIZE"  "UNIX-GETPEERNAME" "UNIX-GETPGRP"
-	     "UNIX-GETPID" "UNIX-GETPPID" "UNIX-GETRUSAGE" "UNIX-GETSOCKNAME"
-	     "UNIX-GETSOCKOPT" "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID"
-             "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LINK" "UNIX-LISTEN" "UNIX-LSEEK"
-             "UNIX-LSTAT" "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID"
-             "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-RECV" "UNIX-RENAME"
-             "UNIX-RMDIR" "UNIX-SCHED-YIELD" "UNIX-SELECT"
-	     "UNIX-SEND" "UNIX-SETPGID" "UNIX-SETPGRP"
-             "UNIX-SETREGID" "UNIX-SETREUID" "UNIX-SETSOCKOPT" "UNIX-SOCKET"
-	     "UNIX-STAT" "UNIX-SYMLINK" "UNIX-SYNC"
-	     "UNIX-TIMES" "UNIX-TRUNCATE" "UNIX-TTYNAME" "UNIX-UID"
-	     "UNIX-UNAME" "UNIX-UNLINK" "UNIX-UTIMES" "UNIX-WRITE" "WINSIZE"
-             "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
-             "WS-YPIXEL" "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO"
-             "SIGEMSG" "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2"
-             "EALREADY" "SIGPIPE" "EACCES" "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"
-	     "TIOCSIGSEND" "SIGWAITING" "SIGABRT"
-	     "C-IFLAG" "UNIX-TCGETATTR" "C-LFLAG" "C-OFLAG" "C-CFLAG"
-	     "TCSAFLUSH" "C-CC" "C-ISPEED" "C-OSPEED" "SIOCSPGRP" "TERMIOS"
-	     "UNIX-TCSETATTR" "O_NDELAY" "O_NOCTTY"
-             "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH"
-             "TCIOFLUSH" "UNIX-CFGETOSPEED" "UNIX-CFSETOSPEED"
-             "UNIX-CFGETISPEED" "UNIX-CFSETISPEED"
-             "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK"
-             "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL"
-             "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK"
-             "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL"
-             "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG"
-             "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK"
-             "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL"
-             "TTY-ECHOPRT" "TTY-ECHOKE"  "TTY-DEFECHO" "TTY-FLUSHO"
-             "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD"
-             "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR"
-             "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD"
-             "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME"
-             "VSUSP" "VSTART" "VSTOP" "VDSUSP" "UNIX-TCSENDBREAK"
-             "UNIX-TCDRAIN" "UNIX-TCFLUSH" "UNIX-TCFLOW"
-	     #+(or svr4 bsd linux) "O_NDELAY")
-            #+(or svr4 linux)
-            (:export "EADDRINUSE" "EADDRNOTAVAIL" "EADV" "EAFNOSUPPORT"
-	     "EALREADY" "EBADE" "EBADFD" "EBADMSG" "EBADR" "EBADRQC"
-	     "EBADSLT" "EBFONT" #+svr4 "ECANCELED" "ECHRNG" "ECOMM"
-	     "ECONNABORTED" "ECONNREFUSED" "ECONNRESET" "EDEADLK"
-	     "EDEADLOCK" "EDESTADDRREQ" #+linux "EDOTDOT" #+linux "EDQUOT"
-	     "EHOSTDOWN" "EHOSTUNREACH" "EIDRM" "EILSEQ" "EINPROGRESS"
-	     "EISCONN" #+linux "EISNAM" "EL2HLT" "EL2NSYNC" "EL3HLT"
-	     "EL3RST" "ELIBACC" "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN"
-	     "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP" "ENAMETOOLONG"
-	     #+linux "ENAVAIL" "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO"
-	     "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK" "ENOLINK" "ENOMSG" "ENONET"
-	     "ENOPKG" "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS" "ENOTCONN"
-	     "ENOTEMPTY" #+linux "ENOTNAM" "ENOTSOCK" #+svr4 "ENOTSUP"
-	     "ENOTUNIQ" "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT" "EPROTO"
-	     "EPROTONOSUPPORT" "EPROTOTYPE" "EREMCHG" "EREMOTE"
-	     #+linux "EREMOTEIO" "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT"
-	     "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" "ETIMEDOUT" "ETOOMANYREFS"
-	     #+linux "EUCLEAN" "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL"
-	     "UTSNAME"
-	     #+linux "SIGSTKFLT"
-             "UNIX-GETPWNAM" "UNIX-GETPWUID" "UNIX-GETGRNAM" "UNIX-GETGRGID"
-             "USER-INFO" "USER-INFO-NAME" "USER-INFO-PASSWORD" "USER-INFO-UID"
-             "USER-INFO-GID" "USER-INFO-GECOS" "USER-INFO-DIR" "USER-INFO-SHELL"
-             "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS"))
+  (:export "CADDR-T" "D-INO" "D-NAME" "D-NAMLEN" "D-OFF" "D-RECLEN"
+	   "DADDR-T" "DEV-T" "DIRECT" "EXECGRP" "EXECOTH" "EXECOWN" "F-DUPFD"
+	   "F-GETFD" "F-GETFL" "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN"
+	   "FSFILCNT-T" "FSBLKCNT-T" "BLKCNT-T"
+	   "FAPPEND" "FASYNC" "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC"
+	   "F_TEST" "F_TLOCK" "UNIX-LOCKF" "F_LOCK" "F_ULOCK"
+	   "F_OK" "GET-UNIX-ERROR-MSG" "GID-T" "INO-T" "IT-INTERVAL"
+	   "IT-VALUE" "ITIMERVAL" "UNIX-SETITIMER" "UNIX-GETITIMER"
+	   "BLKCNT-T" "FSBLKCNT-T" "FSFILCNT-T"
+	   "F_TEST" "F_TLOCK" "F_LOCK" "F_ULOCK" "UNIX-LOCKF"
+	   "PROT_READ" "PROT_WRITE" "PROT_EXEC" "PROT_NONE"
+	   "MAP_SHARED" "MAP_PRIVATE" "MAP_FIXED" "MAP_ANONYMOUS"
+	   "UNIX-MMAP" "UNIX-MUNMAP"
+	   "KBDCGET" "KBDCRESET" "KBDCRST" "KBDCSET"
+	   "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET" "L_INCR" "L_SET"
+	   "L_XTND" "OFF-T" "O_APPEND" "O_CREAT" "O_EXCL" "O_RDONLY" "O_RDWR"
+	   "O_TRUNC" "O_WRONLY" "READGRP" "READOTH" "READOWN" "RLIM-CUR"
+	   "RLIM-MAX" "RLIMIT" "RU-IDRSS" "RU-INBLOCK" "RU-ISRSS" "RU-IXRSS"
+	   "RU-MAJFLT" "RU-MAXRSS" "RU-MINFLT" "RU-MSGRCV" "RU-MSGSND"
+	   "RU-NIVCSW" "RU-NSIGNALS" "RU-NSWAP" "RU-NVCSW" "RU-OUBLOCK"
+	   "RU-STIME" "RU-UTIME" "RUSAGE_CHILDREN" "RUSAGE_SELF" "RUSEAGE"
+	   "R_OK" "S-IEXEC" "S-IFBLK" "S-IFCHR" "S-IFDIR" "S-IFLNK" "S-IFMT"
+	   "S-IFREG" "S-IFSOCK" "S-IREAD" "S-ISGID" "S-ISUID" "S-ISVTX"
+	   "S-IWRITE" "SAVETEXT" "SC-MASK" "SC-ONSTACK" "SC-PC" "SETGIDEXEC"
+	   "SETUIDEXEC" "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL"
+	   "SG-OSPEED" "SGTTYB" "SIGCONTEXT" "SIZE-T" "ST-ATIME" "ST-BLKSIZE"
+	   "ST-BLOCKS" "ST-CTIME" "ST-DEV" "ST-GID" "ST-MODE" "ST-MTIME"
+	   "ST-NLINK" "ST-RDEV" "ST-SIZE" "ST-UID" "STAT" "SWBLK-T" "T-BRKC"
+	   "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC"
+	   "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCHARS"
+	   "TERMINAL-SPEEDS" "TIME-T" "TIMEVAL" "TIMEZONE" "TIOCFLUSH"
+	   "TIOCGETC" "TIOCGETP" "TIOCGLTC" "TIOCGPGRP" "TIOCGWINSZ"
+	   "TIOCNOTTY" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TIOCSPGRP"
+	   "TIOCSWINSZ" "TTY-CBREAK" "TTY-CRMOD" "TTY-LCASE"
+	   "TTY-RAW" "TTY-TANDEM" "TV-SEC" "TV-USEC" "TZ-DSTTIME"
+	   "TZ-MINUTESWEST" "UID-T" "UNIX-ACCEPT" "UNIX-ACCESS" "UNIX-BIND"
+	   "UNIX-CHDIR" "UNIX-CHMOD" "UNIX-CHOWN" "UNIX-CLOSE" "UNIX-CONNECT"
+	   "UNIX-CREAT" "UNIX-CURRENT-DIRECTORY" "UNIX-DUP" "UNIX-DUP2"
+	   "UNIX-ERRNO" "UNIX-EXECVE" "UNIX-EXIT" "UNIX-FCHMOD" "UNIX-FCHOWN"
+	   "UNIX-FCNTL" "UNIX-FD" "UNIX-FILE-MODE" "UNIX-FORK" "UNIX-FSTAT"
+	   "UNIX-FSYNC" "UNIX-FTRUNCATE" "UNIX-GETDTABLESIZE" "UNIX-GETEGID"
+	   "UNIX-GETGID" "UNIX-GETHOSTID" "UNIX-GETHOSTNAME"
+	   "UNIX-GETPAGESIZE"  "UNIX-GETPEERNAME" "UNIX-GETPGRP"
+	   "UNIX-GETPID" "UNIX-GETPPID" "UNIX-GETRUSAGE" "UNIX-GETSOCKNAME"
+	   "UNIX-GETSOCKOPT" "UNIX-GETTIMEOFDAY" "UNIX-GETUID" "UNIX-GID"
+	   "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LINK" "UNIX-LISTEN" "UNIX-LSEEK"
+	   "UNIX-LSTAT" "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID"
+	   "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-RECV" "UNIX-RENAME"
+	   "UNIX-RMDIR" "UNIX-SCHED-YIELD" "UNIX-SELECT"
+	   "UNIX-SEND" "UNIX-SETPGID" "UNIX-SETPGRP"
+	   "UNIX-SETREGID" "UNIX-SETREUID" "UNIX-SETSOCKOPT" "UNIX-SOCKET"
+	   "UNIX-STAT" "UNIX-SYMLINK" "UNIX-SYNC"
+	   "UNIX-TIMES" "UNIX-TRUNCATE" "UNIX-TTYNAME" "UNIX-UID"
+	   "UNIX-UNAME" "UNIX-UNLINK" "UNIX-UTIMES" "UNIX-WRITE" "WINSIZE"
+	   "WRITEGRP" "WRITEOTH" "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL"
+	   "WS-YPIXEL" "W_OK" "X_OK" "SIGSYS" "TCSETPGRP" "FD-ZERO"
+	   "SIGEMSG" "SIGQUIT" "SIGCHLD" "SIGSEGV" "FD-CLR" "SIGUSR2"
+	   "EALREADY" "SIGPIPE" "EACCES" "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"
+	   "TIOCSIGSEND" "SIGWAITING" "SIGABRT"
+	   "C-IFLAG" "UNIX-TCGETATTR" "C-LFLAG" "C-OFLAG" "C-CFLAG"
+	   "TCSAFLUSH" "C-CC" "C-ISPEED" "C-OSPEED" "SIOCSPGRP" "TERMIOS"
+	   "UNIX-TCSETATTR" "O_NDELAY" "O_NOCTTY"
+	   "O_NONBLOCK" "TCSANOW" "TCSADRAIN" "TCIFLUSH" "TCOFLUSH"
+	   "TCIOFLUSH" "UNIX-CFGETOSPEED" "UNIX-CFSETOSPEED"
+	   "UNIX-CFGETISPEED" "UNIX-CFSETISPEED"
+	   "TTY-IGNBRK" "TTY-BRKINT" "TTY-IGNPAR" "TTY-PARMRK"
+	   "TTY-INPCK" "TTY-ISTRIP" "TTY-INLCR" "TTY-IGNCR" "TTY-ICRNL"
+	   "TTY-IUCLC" "TTY-IXON" "TTY-IXANY" "TTY-IXOFF" "TTY-IENQAK"
+	   "TTY-IMAXBEL" "TTY-OPOST" "TTY-OLCUC" "TTY-ONLCR" "TTY-OCRNL"
+	   "TTY-ONOCR" "TTY-ONLRET" "TTY-OFILL" "TTY-OFDEL" "TTY-ISIG"
+	   "TTY-ICANON" "TTY-XCASE" "TTY-ECHO" "TTY-ECHOE" "TTY-ECHOK"
+	   "TTY-ECHONL" "TTY-NOFLSH" "TTY-IEXTEN" "TTY-TOSTOP" "TTY-ECHOCTL"
+	   "TTY-ECHOPRT" "TTY-ECHOKE"  "TTY-DEFECHO" "TTY-FLUSHO"
+	   "TTY-PENDIN" "TTY-CSTOPB" "TTY-CREAD" "TTY-PARENB" "TTY-PARODD"
+	   "TTY-HUPCL" "TTY-CLOCAL" "RCV1EN" "XMT1EN" "TTY-LOBLK" "VINTR"
+	   "VQUIT" "VERASE" "VKILL" "VEOF" "VEOL" "VEOL2" "TTY-CBAUD"
+	   "TTY-CSIZE" "TTY-CS5" "TTY-CS6" "TTY-CS7" "TTY-CS8" "VMIN" "VTIME"
+	   "VSUSP" "VSTART" "VSTOP" "VDSUSP" "UNIX-TCSENDBREAK"
+	   "UNIX-TCDRAIN" "UNIX-TCFLUSH" "UNIX-TCFLOW"
+	   #+(or svr4 bsd linux) "O_NDELAY")
+  #+(or svr4 linux)
+  (:export "EADDRINUSE" "EADDRNOTAVAIL" "EADV" "EAFNOSUPPORT"
+	   "EALREADY" "EBADE" "EBADFD" "EBADMSG" "EBADR" "EBADRQC"
+	   "EBADSLT" "EBFONT" #+svr4 "ECANCELED" "ECHRNG" "ECOMM"
+	   "ECONNABORTED" "ECONNREFUSED" "ECONNRESET" "EDEADLK"
+	   "EDEADLOCK" "EDESTADDRREQ" #+linux "EDOTDOT" #+linux "EDQUOT"
+	   "EHOSTDOWN" "EHOSTUNREACH" "EIDRM" "EILSEQ" "EINPROGRESS"
+	   "EISCONN" #+linux "EISNAM" "EL2HLT" "EL2NSYNC" "EL3HLT"
+	   "EL3RST" "ELIBACC" "ELIBBAD" "ELIBEXEC" "ELIBMAX" "ELIBSCN"
+	   "ELNRNG" "ELOOP" "EMSGSIZE" "EMULTIHOP" "ENAMETOOLONG"
+	   #+linux "ENAVAIL" "ENETDOWN" "ENETRESET" "ENETUNREACH" "ENOANO"
+	   "ENOBUFS" "ENOCSI" "ENODATA" "ENOLCK" "ENOLINK" "ENOMSG" "ENONET"
+	   "ENOPKG" "ENOPROTOOPT" "ENOSR" "ENOSTR" "ENOSYS" "ENOTCONN"
+	   "ENOTEMPTY" #+linux "ENOTNAM" "ENOTSOCK" #+svr4 "ENOTSUP"
+	   "ENOTUNIQ" "EOPNOTSUPP" "EOVERFLOW" "EPFNOSUPPORT" "EPROTO"
+	   "EPROTONOSUPPORT" "EPROTOTYPE" "EREMCHG" "EREMOTE"
+	   #+linux "EREMOTEIO" "ERESTART" "ESHUTDOWN" "ESOCKTNOSUPPORT"
+	   "ESRMNT" "ESTALE" "ESTRPIPE" "ETIME" "ETIMEDOUT" "ETOOMANYREFS"
+	   #+linux "EUCLEAN" "EUNATCH" "EUSERS" "EWOULDBLOCK" "EXFULL"
+	   "UTSNAME"
+	   #+linux "SIGSTKFLT"
+	   "UNIX-GETPWNAM" "UNIX-GETPWUID" "UNIX-GETGRNAM" "UNIX-GETGRGID"
+	   "USER-INFO" "USER-INFO-NAME" "USER-INFO-PASSWORD" "USER-INFO-UID"
+	   "USER-INFO-GID" "USER-INFO-GECOS" "USER-INFO-DIR" "USER-INFO-SHELL"
+	   "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS"))
   
 (defpackage "FORMAT")
+
 (defpackage "COMMON-LISP"
-	    (:nicknames "CL" "LISP")
-	    (:shadow "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS"
-		     "STRUCTURE-CLASS" "CLASS-OF" "FIND-CLASS")
-	    (:export
-	     "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS"
-	     "STRUCTURE-CLASS" "CLASS-OF" "FIND-CLASS"
+  (:nicknames "CL")
+  ;;
+  ;; It might be nicer if these symbols were from CL, but it's not
+  ;; required, and moving them from EXT probably requires additional
+  ;; magic, so I didn't do it. -- 2003-06-16, gerd.
+  (:import-from "EXTENSIONS" "DEBUG" "FLOATING-POINT-INEXACT")
+  (:export
+   "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY" "&OPTIONAL" "&REST"
+   "&WHOLE" "*" "**" "***" "*BREAK-ON-SIGNALS*" "*COMPILE-FILE-PATHNAME*"
+   "*COMPILE-FILE-TRUENAME*" "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*"
+   "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*" "*ERROR-OUTPUT*" "*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" "ADD-METHOD"
+   "ADJOIN" "ADJUST-ARRAY" "ADJUSTABLE-ARRAY-P" "ALLOCATE-INSTANCE"
+   "ALPHA-CHAR-P" "ALPHANUMERICP" "AND" "APPEND" "APPLY" "APROPOS" "APROPOS-LIST"
+   "AREF" "ARITHMETIC-ERROR" "ARITHMETIC-ERROR-OPERANDS"
+   "ARITHMETIC-ERROR-OPERATION" "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT"
+   "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" "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH"
+   "ATOM" "BASE-CHAR" "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" "BOOLEAN" "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" "CALL-METHOD" "CALL-NEXT-METHOD" "CAR" "CASE" "CATCH"
+   "CCASE" "CDAAAR" "CDAADR" "CDAAR" "CDADAR" "CDADDR" "CDADR" "CDAR" "CDDAAR"
+   "CDDADR" "CDDAR" "CDDDAR" "CDDDDR" "CDDDR" "CDDR" "CDR" "CEILING" "CELL-ERROR"
+   "CELL-ERROR-NAME" "CERROR" "CHANGE-CLASS" "CHAR" "CHAR-CODE" "CHAR-CODE-LIMIT"
+   "CHAR-DOWNCASE" "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" "CLASS" "CLASS-NAME" "CLASS-OF" "CLEAR-INPUT"
+   "CLEAR-OUTPUT" "CLOSE" "CLRHASH" "CODE-CHAR" "COERCE" "COMPILATION-SPEED"
+   "COMPILE" "COMPILE-FILE" "COMPILE-FILE-PATHNAME" "COMPILED-FUNCTION"
+   "COMPILED-FUNCTION-P" "COMPILER-MACRO" "COMPILER-MACRO-FUNCTION" "COMPLEMENT"
+   "COMPLEX" "COMPLEXP" "COMPUTE-APPLICABLE-METHODS" "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" "DEFCLASS"
+   "DEFCONSTANT" "DEFGENERIC" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION"
+   "DEFINE-METHOD-COMBINATION" "DEFINE-MODIFY-MACRO" "DEFINE-SETF-EXPANDER"
+   "DEFINE-SYMBOL-MACRO" "DEFMACRO" "DEFMETHOD" "DEFPACKAGE" "DEFPARAMETER"
+   "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR" "DELETE" "DELETE-DUPLICATES"
+   "DELETE-FILE" "DELETE-IF" "DELETE-IF-NOT" "DELETE-PACKAGE" "DENOMINATOR"
+   "DEPOSIT-FIELD" "DESCRIBE" "DESCRIBE-OBJECT" "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"
+   "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"
+   "ENSURE-GENERIC-FUNCTION" "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-STREAM" "FILE-STRING-LENGTH" "FILE-WRITE-DATE" "FILL" "FILL-POINTER"
+   "FIND" "FIND-ALL-SYMBOLS" "FIND-CLASS" "FIND-IF" "FIND-IF-NOT" "FIND-METHOD"
+   "FIND-PACKAGE" "FIND-RESTART" "FIND-SYMBOL" "FINISH-OUTPUT" "FIRST" "FIXNUM"
+   "FLET" "FLOAT" "FLOAT-DIGITS" "FLOAT-PRECISION" "FLOAT-RADIX" "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-KEYWORDS"
+   "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" "GET-SETF-EXPANSION"
+   "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P" "HANDLER-BIND"
+   "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT" "HASH-TABLE-P"
+   "HASH-TABLE-REHASH-SIZE" "HASH-TABLE-REHASH-THRESHOLD" "HASH-TABLE-SIZE"
+   "HASH-TABLE-TEST" "HOST-NAMESTRING" "IDENTITY" "IF" "IGNORABLE" "IGNORE"
+   "IGNORE-ERRORS" "IMAGPART" "IMPORT" "IN-PACKAGE" "INCF" "INITIALIZE-INSTANCE"
+   "INLINE" "INPUT-STREAM-P" "INSPECT" "INTEGER" "INTEGER-DECODE-FLOAT"
+   "INTEGER-LENGTH" "INTEGERP" "INTERACTIVE-STREAM-P" "INTERN"
+   "INTERNAL-TIME-UNITS-PER-SECOND" "INTERSECTION" "INVALID-METHOD-ERROR"
+   "INVOKE-DEBUGGER" "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT"
+   "KEYWORD" "KEYWORDP" "LABELS" "LAMBDA" "LAMBDA-LIST-KEYWORDS"
+   "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF"
+   "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT"
+   "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT"
+   "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT" "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT"
+   "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT" "LEAST-NEGATIVE-SHORT-FLOAT"
+   "LEAST-NEGATIVE-SINGLE-FLOAT" "LEAST-POSITIVE-DOUBLE-FLOAT"
+   "LEAST-POSITIVE-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT"
+   "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT" "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT"
+   "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT" "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-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE"
+   "LOCALLY" "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV"
+   "LOGICAL-PATHNAME" "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"
+   "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1" "MACROLET"
+   "MAKE-ARRAY" "MAKE-BROADCAST-STREAM" "MAKE-CONCATENATED-STREAM"
+   "MAKE-CONDITION" "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM"
+   "MAKE-HASH-TABLE" "MAKE-INSTANCE" "MAKE-INSTANCES-OBSOLETE" "MAKE-LIST"
+   "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS" "MAKE-METHOD" "MAKE-PACKAGE"
+   "MAKE-PATHNAME" "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" "MAP-INTO"
+   "MAPC" "MAPCAN" "MAPCAR" "MAPCON" "MAPHASH" "MAPL" "MAPLIST" "MASK-FIELD"
+   "MAX" "MEMBER" "MEMBER-IF" "MEMBER-IF-NOT" "MERGE" "MERGE-PATHNAMES" "METHOD"
+   "METHOD-COMBINATION" "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "MIN"
+   "MINUSP" "MISMATCH" "MOD" "MOST-NEGATIVE-DOUBLE-FLOAT" "MOST-NEGATIVE-FIXNUM"
+   "MOST-NEGATIVE-LONG-FLOAT" "MOST-NEGATIVE-SHORT-FLOAT"
+   "MOST-NEGATIVE-SINGLE-FLOAT" "MOST-POSITIVE-DOUBLE-FLOAT"
+   "MOST-POSITIVE-FIXNUM" "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT"
+   "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING" "MULTIPLE-VALUE-BIND"
+   "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-LIST" "MULTIPLE-VALUE-PROG1"
+   "MULTIPLE-VALUE-SETQ" "MULTIPLE-VALUES-LIMIT" "NAME-CHAR" "NAMESTRING"
+   "NBUTLAST" "NCONC" "NEXT-METHOD-P" "NIL" "NINTERSECTION" "NINTH"
+   "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "NOT" "NOTANY" "NOTEVERY" "NOTINLINE"
+   "NRECONC" "NREVERSE" "NSET-DIFFERENCE" "NSET-EXCLUSIVE-OR"
+   "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE" "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" "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-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" "POSITION-IF-NOT" "PPRINT"
+   "PPRINT-DISPATCH" "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL"
+   "PPRINT-INDENT" "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE"
+   "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1" "PRIN1-TO-STRING" "PRINC"
+   "PRINC-TO-STRING" "PRINT" "PRINT-NOT-READABLE" "PRINT-NOT-READABLE-OBJECT"
+   "PRINT-OBJECT" "PRINT-UNREADABLE-OBJECT" "PROBE-FILE" "PROCLAIM" "PROG"
+   "PROG*" "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE" "PSETF"
+   "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE" "RANDOM-STATE-P"
+   "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIO" "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"
+   "REINITIALIZE-INSTANCE" "REM" "REMF" "REMHASH" "REMOVE" "REMOVE-DUPLICATES"
+   "REMOVE-IF" "REMOVE-IF-NOT" "REMOVE-METHOD" "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-DIFFERENCE" "SET-DISPATCH-MACRO-CHARACTER"
+   "SET-EXCLUSIVE-OR" "SET-MACRO-CHARACTER" "SET-PPRINT-DISPATCH"
+   "SET-SYNTAX-FROM-CHAR" "SETF" "SETQ" "SEVENTH" "SHADOW" "SHADOWING-IMPORT"
+   "SHARED-INITIALIZE" "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-CONTROL" "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" "SLOT-BOUNDP"
+   "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING" "SLOT-UNBOUND" "SLOT-VALUE"
+   "SOFTWARE-TYPE" "SOFTWARE-VERSION" "SOME" "SORT" "SPACE" "SPECIAL"
+   "SPECIAL-OPERATOR-P" "SPEED" "SQRT" "STABLE-SORT" "STANDARD" "STANDARD-CHAR"
+   "STANDARD-CHAR-P" "STANDARD-CLASS" "STANDARD-GENERIC-FUNCTION"
+   "STANDARD-METHOD" "STANDARD-OBJECT" "STEP" "STORAGE-CONDITION" "STORE-VALUE"
+   "STREAM" "STREAM-ELEMENT-TYPE" "STREAM-ERROR" "STREAM-ERROR-STREAM"
+   "STREAM-EXTERNAL-FORMAT" "STREAMP" "STRING" "STRING-CAPITALIZE"
+   "STRING-DOWNCASE" "STRING-EQUAL" "STRING-GREATERP" "STRING-LEFT-TRIM"
+   "STRING-LESSP" "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP"
+   "STRING-RIGHT-TRIM" "STRING-STREAM" "STRING-TRIM" "STRING-UPCASE" "STRING/="
+   "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP" "STRUCTURE"
+   "STRUCTURE-CLASS" "STRUCTURE-OBJECT" "STYLE-WARNING" "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" "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T" "TAGBODY" "TAILP" "TAN"
+   "TANH" "TENTH" "TERPRI" "THE" "THIRD" "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-SLOT"
+   "UNBOUND-SLOT-INSTANCE" "UNBOUND-VARIABLE" "UNDEFINED-FUNCTION" "UNEXPORT"
+   "UNINTERN" "UNION" "UNLESS" "UNREAD-CHAR" "UNSIGNED-BYTE" "UNTRACE"
+   "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
+   "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "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-ACCESSORS" "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-SLOTS"
+   "WITH-STANDARD-IO-SYNTAX" "WRITE" "WRITE-BYTE" "WRITE-CHAR" "WRITE-LINE"
+   "WRITE-SEQUENCE" "WRITE-STRING" "WRITE-TO-STRING" "Y-OR-N-P" "YES-OR-NO-P"
+   "ZEROP"))
+
+(defpackage "LISP"
+  (:use "COMMON-LISP" "EXTENSIONS" "KERNEL" "SYSTEM" "DEBUG" "BIGNUM")
+  (:shadowing-import-from
+   "COMMON-LISP" "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS" "STRUCTURE-CLASS"
+   "CLASS-OF" "FIND-CLASS")
+  (:export
+   "CLASS" "BUILT-IN-CLASS" "STANDARD-CLASS"
+   "STRUCTURE-CLASS" "CLASS-OF" "FIND-CLASS"
 	     
-	     "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY"
-             "&OPTIONAL" "&REST" "&WHOLE" "*" "**" "***"
-             "*BREAK-ON-SIGNALS*"
-             "*COMPILE-FILE-PATHNAME*" "*COMPILE-FILE-TRUENAME*"
-             "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*"
-             "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*"
-	     "*ERROR-OUTPUT*"
-             "*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"
-	     "APROPOS" "APROPOS-LIST" "AREF" "ARITHMETIC-ERROR"
-             "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION"
-             "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT"
-             "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"
-             "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH"
-             "ATOM" "BASE-CHAR" "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" "BOOLEAN"
-             "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" 
-	     "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS"
-	     "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-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" "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-MACRO" "COMPILER-MACRO-FUNCTION"
-	     "COMPLEMENT" "COMPLEX"
-	     "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"
-             "DEFCONSTANT" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION"
-             "DEFINE-MODIFY-MACRO" "DEFINE-SYMBOL-MACRO"
-	     "DEFMACRO" "DEFPACKAGE"
-             "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR"
-             "DELETE" "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF"
-             "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" "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-STREAM" "FILE-STRING-LENGTH"
-	     "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND"
-             "FIND-ALL-SYMBOLS"
-	     "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-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" "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"
-             "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P"
-             "HANDLER-BIND" "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT"
-             "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"
-	     "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"
-             "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT" "KEYWORD"
-             "KEYWORDP" "LABELS" "LAMBDA" "LAMBDA-LIST-KEYWORDS"
-             "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF"
-             "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT"
-	     "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT"
-	     "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT"
-	     "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT"
-	     "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT"
-             "LEAST-NEGATIVE-SHORT-FLOAT" "LEAST-NEGATIVE-SINGLE-FLOAT"
-             "LEAST-POSITIVE-DOUBLE-FLOAT" "LEAST-POSITIVE-LONG-FLOAT"
-             "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT"
-             "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT"
-             "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT"
-             "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT"
-             "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-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE" "LOCALLY"
-             "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV"
-	     "LOGICAL-PATHNAME" "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"
-             "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1"
-             "MACROLET" "MAKE-ARRAY" "MAKE-BROADCAST-STREAM"
-             "MAKE-CONCATENATED-STREAM" "MAKE-CONDITION"
-             "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM"
-             "MAKE-HASH-TABLE" "MAKE-LIST" "MAKE-PACKAGE" "MAKE-PATHNAME"
-             "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" "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"
-             "MOST-NEGATIVE-SHORT-FLOAT" "MOST-NEGATIVE-SINGLE-FLOAT"
-             "MOST-POSITIVE-DOUBLE-FLOAT" "MOST-POSITIVE-FIXNUM"
-             "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT"
-             "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING"
-             "MULTIPLE-VALUE-BIND" "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-LIST"
-             "MULTIPLE-VALUE-PROG1" "MULTIPLE-VALUE-SETQ"
-             "MULTIPLE-VALUES-LIMIT" "NAME-CHAR" "NAMESTRING" "NBUTLAST"
-             "NCONC" "NIL" "NINTERSECTION" "NINTH" "NOT" "NOTANY" "NOTEVERY"
-             "NOTINLINE" "NRECONC" "NREVERSE" "NSET-DIFFERENCE"
-             "NSET-EXCLUSIVE-OR" "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE"
-             "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" "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-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"
-             "POSITION-IF-NOT" "PPRINT" "PPRINT-DISPATCH"
-             "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL" "PPRINT-INDENT"
-             "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE"
-             "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1"
-             "PRIN1-TO-STRING" "PRINC" "PRINC-TO-STRING" "PRINT"
-             "PRINT-UNREADABLE-OBJECT" "PROBE-FILE" "PROCLAIM" "PROG" "PROG*"
-             "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE" "PSETF"
-             "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE"
-             "RANDOM-STATE-P" "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIO"
-             "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"
-             "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-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-CONTROL"
-	     "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-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"
-	     "STREAM-EXTERNAL-FORMAT"
-	     "STREAMP" "STRING" "STRING-CAPITALIZE"
-             "STRING-DOWNCASE" "STRING-EQUAL"
-             "STRING-GREATERP" "STRING-LEFT-TRIM" "STRING-LESSP"
-             "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP"
-             "STRING-RIGHT-TRIM" "STRING-STREAM"
-	     "STRING-TRIM" "STRING-UPCASE" "STRING/="
-             "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP"
-             "STRUCTURE" "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"
-	     "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T"
-             "TAGBODY" "TAILP" "TAN" "TANH" "TENTH" "TERPRI" "THE" "THIRD"
-             "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"
-             "UNUSE-PACKAGE" "UNWIND-PROTECT" "UPGRADED-ARRAY-ELEMENT-TYPE"
-	     "UPGRADED-COMPLEX-PART-TYPE" "UPPER-CASE-P"
-             "USE-PACKAGE" "USE-VALUE" "USER-HOMEDIR-PATHNAME" "VALUES"
+   "&ALLOW-OTHER-KEYS" "&AUX" "&BODY" "&ENVIRONMENT" "&KEY"
+   "&OPTIONAL" "&REST" "&WHOLE" "*" "**" "***"
+   "*BREAK-ON-SIGNALS*"
+   "*COMPILE-FILE-PATHNAME*" "*COMPILE-FILE-TRUENAME*"
+   "*COMPILE-PRINT*" "*COMPILE-VERBOSE*" "*DEBUG-IO*"
+   "*DEBUGGER-HOOK*" "*DEFAULT-PATHNAME-DEFAULTS*"
+   "*ERROR-OUTPUT*"
+   "*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"
+   "APROPOS" "APROPOS-LIST" "AREF" "ARITHMETIC-ERROR"
+   "ARITHMETIC-ERROR-OPERANDS" "ARITHMETIC-ERROR-OPERATION"
+   "ARRAY" "ARRAY-DIMENSION" "ARRAY-DIMENSION-LIMIT"
+   "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"
+   "ASSERT" "ASSOC" "ASSOC-IF" "ASSOC-IF-NOT" "ATAN" "ATANH"
+   "ATOM" "BASE-CHAR" "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" "BOOLEAN"
+   "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" 
+   "BROADCAST-STREAM" "BROADCAST-STREAM-STREAMS"
+   "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-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" "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-MACRO" "COMPILER-MACRO-FUNCTION"
+   "COMPLEMENT" "COMPLEX"
+   "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"
+   "DEFCONSTANT" "DEFINE-COMPILER-MACRO" "DEFINE-CONDITION"
+   "DEFINE-MODIFY-MACRO" "DEFINE-SYMBOL-MACRO"
+   "DEFMACRO" "DEFPACKAGE"
+   "DEFPARAMETER" "DEFSETF" "DEFSTRUCT" "DEFTYPE" "DEFUN" "DEFVAR"
+   "DELETE" "DELETE-DUPLICATES" "DELETE-FILE" "DELETE-IF"
+   "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" "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-STREAM" "FILE-STRING-LENGTH"
+   "FILE-WRITE-DATE" "FILL" "FILL-POINTER" "FIND"
+   "FIND-ALL-SYMBOLS"
+   "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-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" "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"
+   "GET-UNIVERSAL-TIME" "GETF" "GETHASH" "GO" "GRAPHIC-CHAR-P"
+   "HANDLER-BIND" "HANDLER-CASE" "HASH-TABLE" "HASH-TABLE-COUNT"
+   "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"
+   "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"
+   "INVOKE-RESTART" "INVOKE-RESTART-INTERACTIVELY" "ISQRT" "KEYWORD"
+   "KEYWORDP" "LABELS" "LAMBDA" "LAMBDA-LIST-KEYWORDS"
+   "LAMBDA-PARAMETERS-LIMIT" "LAST" "LCM" "LDB" "LDB-TEST" "LDIFF"
+   "LEAST-NEGATIVE-DOUBLE-FLOAT" "LEAST-NEGATIVE-LONG-FLOAT"
+   "LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT"
+   "LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT"
+   "LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT"
+   "LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT"
+   "LEAST-NEGATIVE-SHORT-FLOAT" "LEAST-NEGATIVE-SINGLE-FLOAT"
+   "LEAST-POSITIVE-DOUBLE-FLOAT" "LEAST-POSITIVE-LONG-FLOAT"
+   "LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT"
+   "LEAST-POSITIVE-NORMALIZED-LONG-FLOAT"
+   "LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT"
+   "LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT"
+   "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-LOGICAL-PATHNAME-TRANSLATIONS" "LOAD-TIME-VALUE" "LOCALLY"
+   "LOG" "LOGAND" "LOGANDC1" "LOGANDC2" "LOGBITP" "LOGCOUNT" "LOGEQV"
+   "LOGICAL-PATHNAME" "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"
+   "MACHINE-VERSION" "MACRO-FUNCTION" "MACROEXPAND" "MACROEXPAND-1"
+   "MACROLET" "MAKE-ARRAY" "MAKE-BROADCAST-STREAM"
+   "MAKE-CONCATENATED-STREAM" "MAKE-CONDITION"
+   "MAKE-DISPATCH-MACRO-CHARACTER" "MAKE-ECHO-STREAM"
+   "MAKE-HASH-TABLE" "MAKE-LIST" "MAKE-PACKAGE" "MAKE-PATHNAME"
+   "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" "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"
+   "MOST-NEGATIVE-SHORT-FLOAT" "MOST-NEGATIVE-SINGLE-FLOAT"
+   "MOST-POSITIVE-DOUBLE-FLOAT" "MOST-POSITIVE-FIXNUM"
+   "MOST-POSITIVE-LONG-FLOAT" "MOST-POSITIVE-SHORT-FLOAT"
+   "MOST-POSITIVE-SINGLE-FLOAT" "MUFFLE-WARNING"
+   "MULTIPLE-VALUE-BIND" "MULTIPLE-VALUE-CALL" "MULTIPLE-VALUE-LIST"
+   "MULTIPLE-VALUE-PROG1" "MULTIPLE-VALUE-SETQ"
+   "MULTIPLE-VALUES-LIMIT" "NAME-CHAR" "NAMESTRING" "NBUTLAST"
+   "NCONC" "NIL" "NINTERSECTION" "NINTH" "NOT" "NOTANY" "NOTEVERY"
+   "NOTINLINE" "NRECONC" "NREVERSE" "NSET-DIFFERENCE"
+   "NSET-EXCLUSIVE-OR" "NSTRING-CAPITALIZE" "NSTRING-DOWNCASE"
+   "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" "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-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"
+   "POSITION-IF-NOT" "PPRINT" "PPRINT-DISPATCH"
+   "PPRINT-EXIT-IF-LIST-EXHAUSTED" "PPRINT-FILL" "PPRINT-INDENT"
+   "PPRINT-LINEAR" "PPRINT-LOGICAL-BLOCK" "PPRINT-NEWLINE"
+   "PPRINT-POP" "PPRINT-TAB" "PPRINT-TABULAR" "PRIN1"
+   "PRIN1-TO-STRING" "PRINC" "PRINC-TO-STRING" "PRINT"
+   "PRINT-UNREADABLE-OBJECT" "PROBE-FILE" "PROCLAIM" "PROG" "PROG*"
+   "PROG1" "PROG2" "PROGN" "PROGRAM-ERROR" "PROGV" "PROVIDE" "PSETF"
+   "PSETQ" "PUSH" "PUSHNEW" "QUOTE" "RANDOM" "RANDOM-STATE"
+   "RANDOM-STATE-P" "RASSOC" "RASSOC-IF" "RASSOC-IF-NOT" "RATIO"
+   "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"
+   "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-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-CONTROL"
+   "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-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"
+   "STREAM-EXTERNAL-FORMAT"
+   "STREAMP" "STRING" "STRING-CAPITALIZE"
+   "STRING-DOWNCASE" "STRING-EQUAL"
+   "STRING-GREATERP" "STRING-LEFT-TRIM" "STRING-LESSP"
+   "STRING-NOT-EQUAL" "STRING-NOT-GREATERP" "STRING-NOT-LESSP"
+   "STRING-RIGHT-TRIM" "STRING-STREAM"
+   "STRING-TRIM" "STRING-UPCASE" "STRING/="
+   "STRING<" "STRING<=" "STRING=" "STRING>" "STRING>=" "STRINGP"
+   "STRUCTURE" "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"
+   "SYNONYM-STREAM" "SYNONYM-STREAM-SYMBOL" "T"
+   "TAGBODY" "TAILP" "TAN" "TANH" "TENTH" "TERPRI" "THE" "THIRD"
+   "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"
+   "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"
@@ -608,16 +827,16 @@
 	     "MAKE-LOAD-FORM" "MAKE-LOAD-FORM-SAVING-SLOTS"))
 
 (defpackage "EVAL"
-            (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
-             "*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*"
-             "*INTERPRETED-FUNCTION-CACHE-THRESHOLD*"
-             "FLUSH-INTERPRETED-FUNCTION-CACHE" "INTERNAL-EVAL"
-	     "INTERPRETED-FUNCTION"
-             "INTERPRETED-FUNCTION-ARGLIST" "INTERPRETED-FUNCTION-CLOSURE"
-             "INTERPRETED-FUNCTION-LAMBDA-EXPRESSION"
-             "INTERPRETED-FUNCTION-NAME" "INTERPRETED-FUNCTION-P"
-             "INTERPRETED-FUNCTION-TYPE" "MAKE-INTERPRETED-FUNCTION"
-             "TRACE-EVAL"))
+  (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
+	   "*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*"
+	   "*INTERPRETED-FUNCTION-CACHE-THRESHOLD*"
+	   "FLUSH-INTERPRETED-FUNCTION-CACHE" "INTERNAL-EVAL"
+	   "INTERPRETED-FUNCTION"
+	   "INTERPRETED-FUNCTION-ARGLIST" "INTERPRETED-FUNCTION-CLOSURE"
+	   "INTERPRETED-FUNCTION-LAMBDA-EXPRESSION"
+	   "INTERPRETED-FUNCTION-NAME" "INTERPRETED-FUNCTION-P"
+	   "INTERPRETED-FUNCTION-TYPE" "MAKE-INTERPRETED-FUNCTION"
+	   "TRACE-EVAL"))
 (dolist
     (name
      '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD"
@@ -637,6 +856,7 @@
      '("%SP-SET-DEFINITION" "%SP-SET-PLIST" "ARRAY-HEADER-P" "BASE-CHAR-P"
        "DOUBLE-FLOAT-P" "LONG-FLOAT-P" "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P"))
   (intern name "KERNEL"))
+
 (defpackage #+pmax "PMAX"
 	    #+sparc "SPARC"
 	    #+ibmrt "RT"
@@ -829,7 +1049,7 @@
 (defpackage "CONDITIONS")
 (intern "DISASSEMBLE" "LISP")
 (defpackage "DISASSEM"
-	    (:import-from "LISP" "DISASSEMBLE")
+  (:import-from "LISP" "DISASSEMBLE")
   (:export "*NOTE-COLUMN*" "*OPCODE-COLUMN-WIDTH*" "ADD-COMMENT-HOOK"
 	   "ADD-HOOK" "ADD-NOTE-HOOK" "ARG-VALUE" "CREATE-DSTATE"
 	   "DISASSEM-STATE" "DISASSEMBLE" "DISASSEMBLE-CODE-COMPONENT"
@@ -896,21 +1116,21 @@
        "*TRACED-FUNCTION-LIST*"))
   (intern name "EXTENSIONS"))
 (defpackage "DEBUG"
-            (:import-from "EXTENSIONS" "*MAX-TRACE-INDENTATION*"
-             "*TRACE-PRINT-LENGTH*" "*TRACE-PRINT-LEVEL*"
-             "*TRACED-FUNCTION-LIST*")
-            (:export "*AUTO-EVAL-IN-FRAME*" "*DEBUG-PRINT-LENGTH*"
-             "*DEBUG-PRINT-LEVEL*" "*DEBUG-PROMPT*"
-	     "*DEBUG-READTABLE*" "*FLUSH-DEBUG-ERRORS*"
-	     "*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" "*PRINT-LOCATION-KIND*"
-	     "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
-	     "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
-	     "*TRACE-ENCAPSULATE-DEFAULT*"
-	     "*TRACE-ENCAPSULATE-PACKAGE-NAMES*"
-	     "*DEFAULT-PRINT-FRAME-CALL-VERBOSITY*"))
+  (:import-from "EXTENSIONS" "*MAX-TRACE-INDENTATION*"
+		"*TRACE-PRINT-LENGTH*" "*TRACE-PRINT-LEVEL*"
+		"*TRACED-FUNCTION-LIST*")
+  (:export "*AUTO-EVAL-IN-FRAME*" "*DEBUG-PRINT-LENGTH*"
+	   "*DEBUG-PRINT-LEVEL*" "*DEBUG-PROMPT*"
+	   "*DEBUG-READTABLE*" "*FLUSH-DEBUG-ERRORS*"
+	   "*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" "*PRINT-LOCATION-KIND*"
+	   "*ONLY-BLOCK-START-LOCATIONS*" "*STACK-TOP-HINT*"
+	   "*TRACE-VALUES*" "DO-DEBUG-COMMAND"
+	   "*TRACE-ENCAPSULATE-DEFAULT*"
+	   "*TRACE-ENCAPSULATE-PACKAGE-NAMES*"
+	   "*DEFAULT-PRINT-FRAME-CALL-VERBOSITY*"))
 
 (intern "CHAR" "LISP")
 (defpackage "EXTENSIONS"
@@ -918,6 +1138,8 @@
   (:import-from "LISP" "GET-SETF-METHOD")
   (:import-from "KERNEL" "*ANSI-DEFSTRUCT-OPTIONS-P*")
   (:export   "*AFTER-GC-HOOKS*" "*AFTER-SAVE-INITIALIZATIONS*"
+	     "DEBUG"
+	     "FLOATING-POINT-INEXACT"
 	     "*ALL-MODIFIER-NAMES*" "*ANSI-DEFSTRUCT-OPTIONS-P*"
 	     "*AUTOLOAD-TRANSLATIONS*"
 	     "*BACKUP-EXTENSION*" "*BEFORE-GC-HOOKS*"
@@ -959,7 +1181,6 @@
              "COMPLETE-FILE" "CONCAT-PNAMES" "CONNECT-TO-INET-SOCKET"
              "CONSTANT" "CONSTANT-ARGUMENT" "CONSTANT-FUNCTION"
              "CREATE-INET-LISTENER" "CREATE-INET-SOCKET" "CREATE-UNIX-LISTENER"
-	     "DEBUG"
 	     "DEF-SOURCE-CONTEXT"
              "DEFAULT-CLX-EVENT-HANDLER" "DEFAULT-DIRECTORY"
              "DEFINE-CLX-MODIFIER" "DEFINE-HASH-CACHE" "DEFINE-INFO-CLASS"
@@ -973,7 +1194,7 @@
              "ENCAPSULATE" "ENCAPSULATED-DEFINITION" "ENCAPSULATED-P"
              "END-BLOCK" "ENUMERATE-SEARCH-LIST" "FILE-COMMENT" "FILE-WRITABLE"
              "FINALIZE" "FIXNUMP" "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P"
-             "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" "FLOATING-POINT-INEXACT"
+             "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
              "FLOATING-POINT-INVALID" "FLUSH-DISPLAY-EVENTS"
              "FORMAT-DECODED-TIME" "FORMAT-UNIVERSAL-TIME" "FREEZE-TYPE" "GC"
              "GC-OFF" "GC-ON" "GET-BYTES-CONSED" "GET-BYTES-CONSED-DFIXNUM"
@@ -1085,7 +1306,7 @@
 (defpackage "STREAM"
   (:import-from "SYSTEM" "LISP-STREAM")
   (:import-from "EXTENSIONS" "FUNDAMENTAL-STREAM")
-  (:import-from "COMMON-LISP" "LINE-LENGTH" "CHARPOS")
+  (:import-from "LISP" "LINE-LENGTH" "CHARPOS")
   (:export ;; Stream classes
            "STREAM"
            "SIMPLE-STREAM"
@@ -1146,47 +1367,48 @@
        "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P"
        "DEBUG-SOURCE-START-POSITIONS"))
   (intern name "C"))
+
 (defpackage "DEBUG-INTERNALS"
-	    (:nicknames "DI")
-            (:import-from "C" "DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED"
-             "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
-             "DEBUG-SOURCE-P" "DEBUG-SOURCE-START-POSITIONS")
-            (:export "*DEBUGGING-INTERPRETER*" "ACTIVATE-BREAKPOINT"
-             "AMBIGUOUS-DEBUG-VARIABLES" "AMBIGUOUS-VARIABLE-NAME" "BREAKPOINT"
-             "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUNCTION" "BREAKPOINT-INFO"
-             "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
-             "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUNCTION"
-             "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
-             "CODE-LOCATION-P" "CODE-LOCATION-TOP-LEVEL-FORM-OFFSET"
-             "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
-             "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
-             "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
-             "DEBUG-FUNCTION" "DEBUG-FUNCTION-FUNCTION" "DEBUG-FUNCTION-KIND"
-             "DEBUG-FUNCTION-LAMBDA-LIST" "DEBUG-FUNCTION-NAME"
-             "DEBUG-FUNCTION-P" "DEBUG-FUNCTION-START-LOCATION"
-             "DEBUG-FUNCTION-SYMBOL-VARIABLES" "DEBUG-SOURCE"
-             "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM"
-             "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P" "DEBUG-SOURCE-ROOT-NUMBER"
-             "DEBUG-SOURCE-START-POSITIONS" "DEBUG-VARIABLE"
-             "DEBUG-VARIABLE-ID" "DEBUG-VARIABLE-INFO-AVAILABLE"
-             "DEBUG-VARIABLE-NAME" "DEBUG-VARIABLE-P" "DEBUG-VARIABLE-PACKAGE"
-             "DEBUG-VARIABLE-SYMBOL" "DEBUG-VARIABLE-VALID-VALUE"
-             "DEBUG-VARIABLE-VALIDITY" "DEBUG-VARIABLE-VALUE"
-             "DELETE-BREAKPOINT" "DELETE-BREAKPOINT-FOR-EDITOR" "DO-BLOCKS"
-             "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUNCTION-BLOCKS"
-             "DO-DEBUG-FUNCTION-VARIABLES" "EVAL-IN-FRAME"
-             "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES"
-             "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUNCTION" "FRAME-DOWN"
-             "FRAME-FUNCTION-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
-             "FUNCTION-DEBUG-FUNCTION" "FUNCTION-END-COOKIE-VALID-P"
-             "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
-             "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
-             "NO-DEBUG-FUNCTION-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
-             "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"
-	     "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
+  (:nicknames "DI")
+  (:import-from "C" "DEBUG-SOURCE" "DEBUG-SOURCE-COMPILED"
+		"DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM" "DEBUG-SOURCE-NAME"
+		"DEBUG-SOURCE-P" "DEBUG-SOURCE-START-POSITIONS")
+  (:export "*DEBUGGING-INTERPRETER*" "ACTIVATE-BREAKPOINT"
+	   "AMBIGUOUS-DEBUG-VARIABLES" "AMBIGUOUS-VARIABLE-NAME" "BREAKPOINT"
+	   "BREAKPOINT-ACTIVE-P" "BREAKPOINT-HOOK-FUNCTION" "BREAKPOINT-INFO"
+	   "BREAKPOINT-KIND" "BREAKPOINT-P" "BREAKPOINT-WHAT" "CODE-LOCATION"
+	   "CODE-LOCATION-DEBUG-BLOCK" "CODE-LOCATION-DEBUG-FUNCTION"
+	   "CODE-LOCATION-DEBUG-SOURCE" "CODE-LOCATION-FORM-NUMBER"
+	   "CODE-LOCATION-P" "CODE-LOCATION-TOP-LEVEL-FORM-OFFSET"
+	   "CODE-LOCATION-UNKNOWN-P" "CODE-LOCATION=" "DEACTIVATE-BREAKPOINT"
+	   "DEBUG-BLOCK" "DEBUG-BLOCK-ELSEWHERE-P" "DEBUG-BLOCK-P"
+	   "DEBUG-BLOCK-SUCCESSORS" "DEBUG-CONDITION" "DEBUG-ERROR"
+	   "DEBUG-FUNCTION" "DEBUG-FUNCTION-FUNCTION" "DEBUG-FUNCTION-KIND"
+	   "DEBUG-FUNCTION-LAMBDA-LIST" "DEBUG-FUNCTION-NAME"
+	   "DEBUG-FUNCTION-P" "DEBUG-FUNCTION-START-LOCATION"
+	   "DEBUG-FUNCTION-SYMBOL-VARIABLES" "DEBUG-SOURCE"
+	   "DEBUG-SOURCE-COMPILED" "DEBUG-SOURCE-CREATED" "DEBUG-SOURCE-FROM"
+	   "DEBUG-SOURCE-NAME" "DEBUG-SOURCE-P" "DEBUG-SOURCE-ROOT-NUMBER"
+	   "DEBUG-SOURCE-START-POSITIONS" "DEBUG-VARIABLE"
+	   "DEBUG-VARIABLE-ID" "DEBUG-VARIABLE-INFO-AVAILABLE"
+	   "DEBUG-VARIABLE-NAME" "DEBUG-VARIABLE-P" "DEBUG-VARIABLE-PACKAGE"
+	   "DEBUG-VARIABLE-SYMBOL" "DEBUG-VARIABLE-VALID-VALUE"
+	   "DEBUG-VARIABLE-VALIDITY" "DEBUG-VARIABLE-VALUE"
+	   "DELETE-BREAKPOINT" "DELETE-BREAKPOINT-FOR-EDITOR" "DO-BLOCKS"
+	   "DO-DEBUG-BLOCK-LOCATIONS" "DO-DEBUG-FUNCTION-BLOCKS"
+	   "DO-DEBUG-FUNCTION-VARIABLES" "EVAL-IN-FRAME"
+	   "FORM-NUMBER-TRANSLATIONS" "FRAME" "FRAME-CATCHES"
+	   "FRAME-CODE-LOCATION" "FRAME-DEBUG-FUNCTION" "FRAME-DOWN"
+	   "FRAME-FUNCTION-MISMATCH" "FRAME-NUMBER" "FRAME-P" "FRAME-UP"
+	   "FUNCTION-DEBUG-FUNCTION" "FUNCTION-END-COOKIE-VALID-P"
+	   "INVALID-CONTROL-STACK-POINTER" "INVALID-VALUE"
+	   "LAMBDA-LIST-UNAVAILABLE" "MAKE-BREAKPOINT" "NO-DEBUG-BLOCKS"
+	   "NO-DEBUG-FUNCTION-RETURNS" "NO-DEBUG-INFO" "PREPROCESS-FOR-EVAL"
+	   "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"
+	   "CODE-LOCATION-KIND" "FLUSH-FRAMES-ABOVE"))
 (dolist
     (name
      '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT"
@@ -1369,89 +1591,94 @@
            "XREF-CONTEXT-NAME"
            "XREF-CONTEXT-FILE"
            "XREF-CONTEXT-SOURCE-PATH"))
+
 (defpackage "WIRE"
-            (:export "*CURRENT-WIRE*" "CONNECT-TO-REMOTE-SERVER"
-             "CREATE-REQUEST-SERVER" "DESTROY-REQUEST-SERVER"
-             "FORGET-REMOTE-TRANSLATION" "MAKE-REMOTE-OBJECT" "MAKE-WIRE"
-             "REMOTE" "REMOTE-OBJECT" "REMOTE-OBJECT-EQ"
-             "REMOTE-OBJECT-LOCAL-P" "REMOTE-OBJECT-P" "REMOTE-OBJECT-VALUE"
-             "REMOTE-VALUE" "REMOTE-VALUE-BIND" "WIRE-EOF" "WIRE-ERROR"
-             "WIRE-FD" "WIRE-FORCE-OUTPUT" "WIRE-GET-BIGNUM" "WIRE-GET-BYTE"
-             "WIRE-GET-NUMBER" "WIRE-GET-OBJECT" "WIRE-GET-STRING"
-             "WIRE-IO-ERROR" "WIRE-LISTEN" "WIRE-OUTPUT-BIGNUM"
-             "WIRE-OUTPUT-BYTE" "WIRE-OUTPUT-FUNCALL" "WIRE-OUTPUT-NUMBER"
-             "WIRE-OUTPUT-OBJECT" "WIRE-OUTPUT-STRING" "WIRE-P"))
+  (:export "*CURRENT-WIRE*" "CONNECT-TO-REMOTE-SERVER"
+	   "CREATE-REQUEST-SERVER" "DESTROY-REQUEST-SERVER"
+	   "FORGET-REMOTE-TRANSLATION" "MAKE-REMOTE-OBJECT" "MAKE-WIRE"
+	   "REMOTE" "REMOTE-OBJECT" "REMOTE-OBJECT-EQ"
+	   "REMOTE-OBJECT-LOCAL-P" "REMOTE-OBJECT-P" "REMOTE-OBJECT-VALUE"
+	   "REMOTE-VALUE" "REMOTE-VALUE-BIND" "WIRE-EOF" "WIRE-ERROR"
+	   "WIRE-FD" "WIRE-FORCE-OUTPUT" "WIRE-GET-BIGNUM" "WIRE-GET-BYTE"
+	   "WIRE-GET-NUMBER" "WIRE-GET-OBJECT" "WIRE-GET-STRING"
+	   "WIRE-IO-ERROR" "WIRE-LISTEN" "WIRE-OUTPUT-BIGNUM"
+	   "WIRE-OUTPUT-BYTE" "WIRE-OUTPUT-FUNCALL" "WIRE-OUTPUT-NUMBER"
+	   "WIRE-OUTPUT-OBJECT" "WIRE-OUTPUT-STRING" "WIRE-P"))
+
 (defpackage "PRETTY-PRINT"
-	    (:nicknames "PP")
-	    (:export "PRETTY-STREAM" "PRETTY-STREAM-P"))
+  (:nicknames "PP")
+  (:export "PRETTY-STREAM" "PRETTY-STREAM-P"))
+
 (intern "LOAD-FOREIGN" "EXTENSIONS")
 (defpackage "SYSTEM"
-	    (:nicknames "SYS")
-            (:import-from "EXTENSIONS" "LOAD-FOREIGN")
-            (:export "%ASSEMBLER-CODE-TYPE" "%BIND-ALIGNED-SAP" "%PRIMITIVE"
-             "%SP-BYTE-BLT" "%SP-FIND-CHARACTER"
-             "%SP-FIND-CHARACTER-WITH-ATTRIBUTE"
-             "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE" "%STANDARD-CHAR-P"
-             "*BEEP-FUNCTION*"
-	     "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
-             "*SOFTWARE-TYPE*" "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*"
-             "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
-	     "*XWINDOW-TABLE*"
-             "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER" "ADD-PORT-OBJECT"
-             "ADD-XWINDOW-OBJECT" "ALLOCATE-SYSTEM-MEMORY" "BEEP" "BITS"
-             "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK=" "COMPILER-VERSION"
-             "CT-A-VAL" "CT-A-VAL-OFFSET" "CT-A-VAL-P" "CT-A-VAL-SAP"
-             "CT-A-VAL-SIZE" "CT-A-VAL-TYPE" "DEALLOCATE-SYSTEM-MEMORY"
-             "DEFAULT-INTERRUPT" "DEFENUMERATION" "DEFOPERATOR" "DEFRECORD"
-             "DEPORT-BOOLEAN" "DEPORT-INTEGER" "DOUBLE-FLOAT-RADIX"
-             "ENABLE-INTERRUPT" "ENUMERATION" "FD-STREAM" "FD-STREAM-FD"
-             "FD-STREAM-P" "FIND-IF-IN-CLOSURE" "FOREIGN-SYMBOL-ADDRESS"
-	     "FOREIGN-SYMBOL-CODE-ADDRESS" "FOREIGN-SYMBOL-DATA-ADDRESS"
-	     "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
-	     "IGNORE-INTERRUPT"
-             "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
-	     "LISP-STREAM" "LONG-FLOAT-RADIX" "LONG-WORDS"
-	     "MACRO" "MAKE-CT-A-VAL" "MAKE-FD-STREAM"
-             "MAKE-INDENTING-STREAM" "MAKE-OBJECT-SET" "MAP-PORT" "MAP-XWINDOW"
-             "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "NULL-TERMINATED-STRING"
-             "OBJECT-SET-OPERATION" "OUTPUT-RAW-BYTES" "PARSE-BODY"
-             "PERQ-STRING" "POINTER" "POINTER<" "POINTER>" "PORT" "PRIMEP"
-             "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
-             "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
-             "REMOVE-PORT-OBJECT" "REMOVE-XWINDOW-OBJECT"
-             "RESOLVE-LOADED-ASSEMBLER-REFERENCES" "SAP+" "SAP-" "SAP-INT"
-	     "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8"
-	     "SAP-REF-DESCRIPTOR"
-             "SAP-REF-DOUBLE" "SAP-REF-LONG" "SAP-REF-SAP" "SAP-REF-SINGLE"
-	     "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
-	     "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
-             "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" "SHORT-FLOAT-RADIX"
-             "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
-	     "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8"
-             "SINGLE-FLOAT-RADIX" "SYMBOL-MACRO-LET" "SYSTEM-AREA-POINTER"
-             "SYSTEM-AREA-POINTER-P" "VECTOR-SAP"
-             "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" "WITH-FD-HANDLER"
-             "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING"
-             "WITHOUT-HEMLOCK" "WITHOUT-INTERRUPTS" "WORDS"
-	     "OS-INIT" "ALLOCATE-SYSTEM-MEMORY-AT"
-	     "ALTERNATE-GET-GLOBAL-ADDRESS"))
+  (:nicknames "SYS")
+  (:import-from "EXTENSIONS" "LOAD-FOREIGN")
+  (:export "%ASSEMBLER-CODE-TYPE" "%BIND-ALIGNED-SAP" "%PRIMITIVE"
+	   "%SP-BYTE-BLT" "%SP-FIND-CHARACTER"
+	   "%SP-FIND-CHARACTER-WITH-ATTRIBUTE"
+	   "%SP-REVERSE-FIND-CHARACTER-WITH-ATTRIBUTE" "%STANDARD-CHAR-P"
+	   "*BEEP-FUNCTION*"
+	   "*LONG-SITE-NAME*" "*SHORT-SITE-NAME*"
+	   "*SOFTWARE-TYPE*" "*STDERR*" "*STDIN*" "*STDOUT*" "*TASK-DATA*"
+	   "*TASK-NOTIFY*" "*TASK-SELF*" "*TTY*" "*TYPESCRIPTPORT*"
+	   "*XWINDOW-TABLE*"
+	   "ADD-FD-HANDLER" "ADD-PORT-DEATH-HANDLER" "ADD-PORT-OBJECT"
+	   "ADD-XWINDOW-OBJECT" "ALLOCATE-SYSTEM-MEMORY" "BEEP" "BITS"
+	   "BYTES" "C-PROCEDURE" "CHECK<=" "CHECK=" "COMPILER-VERSION"
+	   "CT-A-VAL" "CT-A-VAL-OFFSET" "CT-A-VAL-P" "CT-A-VAL-SAP"
+	   "CT-A-VAL-SIZE" "CT-A-VAL-TYPE" "DEALLOCATE-SYSTEM-MEMORY"
+	   "DEFAULT-INTERRUPT" "DEFENUMERATION" "DEFOPERATOR" "DEFRECORD"
+	   "DEPORT-BOOLEAN" "DEPORT-INTEGER" "DOUBLE-FLOAT-RADIX"
+	   "ENABLE-INTERRUPT" "ENUMERATION" "FD-STREAM" "FD-STREAM-FD"
+	   "FD-STREAM-P" "FIND-IF-IN-CLOSURE" "FOREIGN-SYMBOL-ADDRESS"
+	   "FOREIGN-SYMBOL-CODE-ADDRESS" "FOREIGN-SYMBOL-DATA-ADDRESS"
+	   "GET-PAGE-SIZE" "GET-SYSTEM-INFO"
+	   "IGNORE-INTERRUPT"
+	   "INT-SAP" "INVALIDATE-DESCRIPTOR" "IO-TIMEOUT"
+	   "LISP-STREAM" "LONG-FLOAT-RADIX" "LONG-WORDS"
+	   "MACRO" "MAKE-CT-A-VAL" "MAKE-FD-STREAM"
+	   "MAKE-INDENTING-STREAM" "MAKE-OBJECT-SET" "MAP-PORT" "MAP-XWINDOW"
+	   "NATURALIZE-BOOLEAN" "NATURALIZE-INTEGER" "NULL-TERMINATED-STRING"
+	   "OBJECT-SET-OPERATION" "OUTPUT-RAW-BYTES" "PARSE-BODY"
+	   "PERQ-STRING" "POINTER" "POINTER<" "POINTER>" "PORT" "PRIMEP"
+	   "READ-N-BYTES" "REALLOCATE-SYSTEM-MEMORY" "RECORD-SIZE"
+	   "REMOVE-FD-HANDLER" "REMOVE-PORT-DEATH-HANDLER"
+	   "REMOVE-PORT-OBJECT" "REMOVE-XWINDOW-OBJECT"
+	   "RESOLVE-LOADED-ASSEMBLER-REFERENCES" "SAP+" "SAP-" "SAP-INT"
+	   "SAP-REF-16" "SAP-REF-32" "SAP-REF-64" "SAP-REF-8"
+	   "SAP-REF-DESCRIPTOR"
+	   "SAP-REF-DOUBLE" "SAP-REF-LONG" "SAP-REF-SAP" "SAP-REF-SINGLE"
+	   "SAP<" "SAP<=" "SAP=" "SAP>" "SAP>="
+	   "SCRUB-CONTROL-STACK" "SERVE-ALL-EVENTS"
+	   "SERVE-EVENT" "SERVER" "SERVER-MESSAGE" "SHORT-FLOAT-RADIX"
+	   "SIGNED-SAP-REF-16" "SIGNED-SAP-REF-32"
+	   "SIGNED-SAP-REF-64" "SIGNED-SAP-REF-8"
+	   "SINGLE-FLOAT-RADIX" "SYMBOL-MACRO-LET" "SYSTEM-AREA-POINTER"
+	   "SYSTEM-AREA-POINTER-P" "VECTOR-SAP"
+	   "WAIT-UNTIL-FD-USABLE" "WITH-ENABLED-INTERRUPTS" "WITH-FD-HANDLER"
+	   "WITH-INTERRUPTS" "WITH-REPLY-PORT" "WITHOUT-GCING"
+	   "WITHOUT-HEMLOCK" "WITHOUT-INTERRUPTS" "WORDS"
+	   "OS-INIT" "ALLOCATE-SYSTEM-MEMORY-AT"
+	   "ALTERNATE-GET-GLOBAL-ADDRESS"))
+
 (dolist
     (name
      '("*" "ARRAY" "BOOLEAN" "DOUBLE-FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT"
        "SINGLE-FLOAT" "UNION" "VALUES"))
   (intern name "LISP"))
+
 (defpackage "ALIEN"
-            (:import-from "LISP" "*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION"
-             "BOOLEAN" "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES")
-	    (:import-from "VM" "CALLBACK-ACCESSOR-FORM" "MAKE-CALLBACK-TRAMPOLINE")
-            (:export "*" "ADDR" "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP"
-             "ALIEN-SIZE" "ARRAY" "BOOLEAN" "CAST" "DEF-ALIEN-ROUTINE"
-             "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE"
-             "DEREF" "DOUBLE-FLOAT" "ENUM" "EXTERN-ALIEN" "FUNCTION" "INTEGER"
-             "LONG-FLOAT" "SAP-ALIEN" "SIGNED" "SINGLE-FLOAT" "SLOT" "STRUCT"
-	     "UNION" "UNSIGNED" "VALUES" "WITH-ALIEN" "FREE-ALIEN" "NULL-ALIEN"
-	     "MAKE-ALIEN" "LOAD-FOREIGN" "SYSTEM-AREA-POINTER"
-	     "DEF-CALLBACK" "CALLBACK"))
+  (:import-from "LISP" "*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION"
+		"BOOLEAN" "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES")
+  (:import-from "VM" "CALLBACK-ACCESSOR-FORM" "MAKE-CALLBACK-TRAMPOLINE")
+  (:export "*" "ADDR" "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP"
+	   "ALIEN-SIZE" "ARRAY" "BOOLEAN" "CAST" "DEF-ALIEN-ROUTINE"
+	   "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE"
+	   "DEREF" "DOUBLE-FLOAT" "ENUM" "EXTERN-ALIEN" "FUNCTION" "INTEGER"
+	   "LONG-FLOAT" "SAP-ALIEN" "SIGNED" "SINGLE-FLOAT" "SLOT" "STRUCT"
+	   "UNION" "UNSIGNED" "VALUES" "WITH-ALIEN" "FREE-ALIEN" "NULL-ALIEN"
+	   "MAKE-ALIEN" "LOAD-FOREIGN" "SYSTEM-AREA-POINTER"
+	   "DEF-CALLBACK" "CALLBACK"))
 
 (dolist
     (name
@@ -1491,87 +1718,90 @@
        "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
        "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
   (intern name "ALIEN"))
+
 (defpackage "ALIEN-INTERNALS"
-            (:import-from "ALIEN" "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN"
-             "%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR"
-             "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF"
-             "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" "%SLOT-ADDR"
-             "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE"
-             "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
-             "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
-             "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
-             "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
-             "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE"
-             "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
-             "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
-             "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
-             "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
-             "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
-             "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
-             "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
-             "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
-             "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
-             "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
-             "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
-             "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
-             "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
-             "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
-             "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
-             "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
-             "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
-             "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS"
-             "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT"
-             "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE"
-             "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
-             "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
-             "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
-             "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
-             "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE"
-             "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
-             "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")
-            (:export "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
-             "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
-             "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
-             "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE"
-             "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
-             "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
-             "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
-             "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
-             "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE"
-             "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
-             "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
-             "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
-             "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
-             "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
-             "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
-             "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
-             "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
-             "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
-             "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
-             "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
-             "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
-             "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
-             "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
-             "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
-             "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
-             "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
-             "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS"
-             "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT"
-             "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE"
-             "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
-             "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
-             "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
-             "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
-             "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE"
-             "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
-             "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
+  (:import-from "ALIEN" "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN"
+		"%HEAP-ALIEN-ADDR" "%LOCAL-ALIEN-ADDR"
+		"%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN" "%SET-DEREF"
+		"%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT" "%SLOT-ADDR"
+		"*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE"
+		"ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
+		"ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
+		"ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
+		"ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
+		"ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE"
+		"ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
+		"ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
+		"ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
+		"ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
+		"ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
+		"ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
+		"ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
+		"ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
+		"ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
+		"ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
+		"ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
+		"ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
+		"ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
+		"ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
+		"ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
+		"COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
+		"COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
+		"COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS"
+		"DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT"
+		"DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE"
+		"HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
+		"HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
+		"LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
+		"LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
+		"MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE"
+		"MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
+		"PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE")
+  (:export "%CAST" "%DEREF-ADDR" "%HEAP-ALIEN" "%HEAP-ALIEN-ADDR"
+	   "%LOCAL-ALIEN-ADDR" "%LOCAL-ALIEN-FORCED-TO-MEMORY-P" "%SAP-ALIEN"
+	   "%SET-DEREF" "%SET-HEAP-ALIEN" "%SET-LOCAL-ALIEN" "%SET-SLOT"
+	   "%SLOT-ADDR" "*VALUES-TYPE-OKAY*" "ALIEN" "ALIEN-ARRAY-TYPE"
+	   "ALIEN-ARRAY-TYPE-DIMENSIONS" "ALIEN-ARRAY-TYPE-ELEMENT-TYPE"
+	   "ALIEN-ARRAY-TYPE-P" "ALIEN-BOOLEAN-TYPE" "ALIEN-BOOLEAN-TYPE-P"
+	   "ALIEN-DOUBLE-FLOAT-TYPE" "ALIEN-DOUBLE-FLOAT-TYPE-P"
+	   "ALIEN-ENUM-TYPE" "ALIEN-ENUM-TYPE-P" "ALIEN-FLOAT-TYPE"
+	   "ALIEN-FLOAT-TYPE-P" "ALIEN-FUNCTION-TYPE"
+	   "ALIEN-FUNCTION-TYPE-ARG-TYPES" "ALIEN-FUNCTION-TYPE-P"
+	   "ALIEN-FUNCTION-TYPE-RESULT-TYPE" "ALIEN-INTEGER-TYPE"
+	   "ALIEN-INTEGER-TYPE-P" "ALIEN-INTEGER-TYPE-SIGNED"
+	   "ALIEN-LONG-FLOAT-TYPE" "ALIEN-LONG-FLOAT-TYPE-P"
+	   "ALIEN-POINTER-TYPE" "ALIEN-POINTER-TYPE-P"
+	   "ALIEN-POINTER-TYPE-TO" "ALIEN-RECORD-FIELD"
+	   "ALIEN-RECORD-FIELD-NAME" "ALIEN-RECORD-FIELD-OFFSET"
+	   "ALIEN-RECORD-FIELD-P" "ALIEN-RECORD-FIELD-TYPE"
+	   "ALIEN-RECORD-TYPE" "ALIEN-RECORD-TYPE-FIELDS"
+	   "ALIEN-RECORD-TYPE-P" "ALIEN-SINGLE-FLOAT-TYPE"
+	   "ALIEN-SINGLE-FLOAT-TYPE-P" "ALIEN-SUBTYPE-P" "ALIEN-TYPE"
+	   "ALIEN-TYPE-=" "ALIEN-TYPE-ALIGNMENT" "ALIEN-TYPE-BITS"
+	   "ALIEN-TYPE-P" "ALIEN-TYPEP" "ALIEN-VALUE" "ALIEN-VALUE-TYPE"
+	   "ALIEN-VALUES-TYPE" "ALIEN-VALUES-TYPE-P"
+	   "ALIEN-VALUES-TYPE-VALUES" "ALIGN-OFFSET" "COMPUTE-ALIEN-REP-TYPE"
+	   "COMPUTE-DEPORT-LAMBDA" "COMPUTE-DEPOSIT-LAMBDA"
+	   "COMPUTE-EXTRACT-LAMBDA" "COMPUTE-LISP-REP-TYPE"
+	   "COMPUTE-NATURALIZE-LAMBDA" "DEF-ALIEN-TYPE-CLASS"
+	   "DEF-ALIEN-TYPE-METHOD" "DEF-ALIEN-TYPE-TRANSLATOR" "DEPORT"
+	   "DEPOSIT-ALIEN-VALUE" "DISPOSE-LOCAL-ALIEN" "EXTRACT-ALIEN-VALUE"
+	   "HEAP-ALIEN-INFO" "HEAP-ALIEN-INFO-P" "HEAP-ALIEN-INFO-SAP-FORM"
+	   "HEAP-ALIEN-INFO-TYPE" "INVOKE-ALIEN-TYPE-METHOD" "LOCAL-ALIEN"
+	   "LOCAL-ALIEN-INFO" "LOCAL-ALIEN-INFO-FORCE-TO-MEMORY-P"
+	   "LOCAL-ALIEN-INFO-P" "LOCAL-ALIEN-INFO-TYPE"
+	   "MAKE-ALIEN-FUNCTION-TYPE" "MAKE-ALIEN-POINTER-TYPE"
+	   "MAKE-LOCAL-ALIEN" "NATURALIZE" "NOTE-LOCAL-ALIEN-TYPE"
+	   "PARSE-ALIEN-TYPE" "UNPARSE-ALIEN-TYPE"))
+
 (defpackage "PROFILE"
-            (:export
-	     "*DEFAULT-REPORT-TIME-PRINTFUNCTION*" "*INSERT-SPACEREPORTS*"
-	     "*TIMED-FUNCTIONS*" "DELETE-SPACEREPORTS" "PRINT-SPACEREPORTS"
-	     "PROFILE" "PROFILE-ALL" "REPORT-TIME" "REPORT-TIME-CUSTOM"
-	     "RESET-SPACEREPORTS" "RESET-TIME" "UNPROFILE" "WITH-SPACEREPORT"
-	     "*NO-CALLS-LIMIT*" "*NO-CALLS*"))
+  (:export
+   "*DEFAULT-REPORT-TIME-PRINTFUNCTION*" "*INSERT-SPACEREPORTS*"
+   "*TIMED-FUNCTIONS*" "DELETE-SPACEREPORTS" "PRINT-SPACEREPORTS"
+   "PROFILE" "PROFILE-ALL" "REPORT-TIME" "REPORT-TIME-CUSTOM"
+   "RESET-SPACEREPORTS" "RESET-TIME" "UNPROFILE" "WITH-SPACEREPORT"
+   "*NO-CALLS-LIMIT*" "*NO-CALLS*"))
+
 (dolist
     (name
      '("ARRAY-RANK" "ARRAY-TOTAL-SIZE" "BOOLEAN" "CHAR-INT" "FLOAT-DIGITS"
@@ -1920,7 +2150,6 @@
 	   "PUSH-FWRAPPER"
 	   "DELETE-FWRAPPER"
 	   "LAST-FWRAPPER"
-	   "DO-FWRAPPERS"
-	   ))
+	   "DO-FWRAPPERS"))
 
 
diff --git a/code/float-trap.lisp b/code/float-trap.lisp
index 948de6d80fb733bf6164f2c424c1338f5c740f59..53e501aad9ea35ff6ab5a5e68fb14655c843933e 100644
--- a/code/float-trap.lisp
+++ b/code/float-trap.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/float-trap.lisp,v 1.21 2003/04/14 21:03:25 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/float-trap.lisp,v 1.22 2003/06/18 09:23:11 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -228,7 +228,7 @@
 		    :operation fop
 		    :operands operands))
 	    ((not (zerop (logand float-inexact-trap-bit traps)))
-	     (error 'ext:floating-point-inexact
+	     (error 'floating-point-inexact
 		    :operation fop
 		    :operands operands))
 	    #+BSD
diff --git a/code/hash-new.lisp b/code/hash-new.lisp
index 12c2d3decb0d72bbb6febdbcb7a6bfc6d5c56a22..851cac32d03c2c1d2356be7d0762ee979d51534d 100644
--- a/code/hash-new.lisp
+++ b/code/hash-new.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/hash-new.lisp,v 1.24 2003/05/06 13:26:41 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.25 2003/06/18 09:23:11 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,7 @@
 ;;; Hash table functions rewritten by Douglas Crosher, 1997.
 ;;; Equalp hashing by William Newman, Cadabra Inc, and Douglas Crosher, 2000.
 ;;;
-(in-package :common-lisp)
+(in-package :lisp)
 
 (export '(hash-table hash-table-p make-hash-table
 	  gethash remhash maphash clrhash
@@ -26,7 +26,7 @@
 (in-package :ext)
 (export '(define-hash-table-test))
 
-(in-package :common-lisp)
+(in-package :lisp)
 
 
 ;;;; The hash-table structures.
diff --git a/code/hash.lisp b/code/hash.lisp
index fac6843727b1488e40371f100790ee3ba725f28c..91542af0652976140f88dd099e5f5c553275c932 100644
--- a/code/hash.lisp
+++ b/code/hash.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/hash.lisp,v 1.42 2003/03/22 16:15:21 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.43 2003/06/18 09:23:11 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,7 +14,7 @@
 ;;; Everything except SXHASH rewritten by William Lott.
 ;;; Equalp hashing by William Newman, Cadabra Inc, and Douglas Crosher, 2000.
 ;;;
-(in-package :common-lisp)
+(in-package :lisp)
 
 (export '(hash-table hash-table-p make-hash-table
 	  gethash remhash maphash clrhash
@@ -25,7 +25,7 @@
 (in-package :ext)
 (export '(define-hash-table-test))
 
-(in-package :common-lisp)
+(in-package :lisp)
 
 
 ;;;; The hash-table structures.
diff --git a/code/macros.lisp b/code/macros.lisp
index 9760e7dd03e49b81c75d7b3aad0104c5c042e078..41bc27876ce3101ed7043f4ca022613703a03f8e 100644
--- a/code/macros.lisp
+++ b/code/macros.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/macros.lisp,v 1.93 2003/05/12 16:30:41 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/macros.lisp,v 1.94 2003/06/18 09:23:11 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -75,7 +75,7 @@
 ;;; definition is done by %defmacro which we expand into.
 ;;;
 (defmacro defmacro (name lambda-list &body body)
-  (when cl::*enable-package-locked-errors*
+  (when lisp::*enable-package-locked-errors*
     (multiple-value-bind (valid block-name)
         (ext:valid-function-name-p name)
       (declare (ignore valid))
@@ -83,7 +83,7 @@
         (when package
           (when (ext:package-definition-lock package)
             (restart-case
-                (error 'cl::package-locked-error
+                (error 'lisp::package-locked-error
                        :package package
                        :format-control "defining macro ~A"
                        :format-arguments (list name))
@@ -204,11 +204,11 @@
   "Syntax like DEFMACRO, but defines a new type."
   (unless (symbolp name)
     (simple-program-error "~S -- Type name not a symbol." name))
-  (and cl::*enable-package-locked-errors*
+  (and lisp::*enable-package-locked-errors*
        (symbol-package name)
        (ext:package-definition-lock (symbol-package name))
        (restart-case
-           (error 'cl::package-locked-error
+           (error 'lisp::package-locked-error
                   :package (symbol-package name)
                   :format-control "defining type ~A"
                   :format-arguments (list name))
diff --git a/code/ntrace.lisp b/code/ntrace.lisp
index 8b163a4c607e8d80b9bd908f083815514b75e54b..490ba8e979c5d456bcb45b4c04a9e33cd15bc6d0 100644
--- a/code/ntrace.lisp
+++ b/code/ntrace.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/ntrace.lisp,v 1.26 2003/06/12 09:24:03 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ntrace.lisp,v 1.27 2003/06/18 09:23:11 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -38,7 +38,8 @@
   "The default value for the :ENCAPSULATE option to trace.")
 
 (defvar *trace-encapsulate-package-names*
-  '("COMMON-LISP"
+  '("LISP"
+    "COMMON-LISP"
     "CONDITIONS"
     "DEBUG"
     "EXTENSIONS"
diff --git a/code/package.lisp b/code/package.lisp
index 4c6fbb85c000f4044ad3268c5778483376b5f08c..e1975e1b6bb5823bb3ad9d95be33b7f874b5b121 100644
--- a/code/package.lisp
+++ b/code/package.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/package.lisp,v 1.69 2003/06/14 14:37:00 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.70 2003/06/18 09:23:10 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -142,7 +142,7 @@
                      (simple-condition-format-arguments condition)))))
 
 (defun package-locks-init ()
-  (let ((package-names '("COMMON-LISP" "PCL" "CLOS-MOP" "EVAL"
+  (let ((package-names '("COMMON-LISP" "LISP" "PCL" "CLOS-MOP" "EVAL"
                          "NEW-ASSEM" "DISASSEM" "LOOP" "ANSI-LOOP" "INSPECT"
                          "C" "PROFILE" "WIRE" "BIGNUM" "VM"
                          "FORMAT" "DFIXNUM" "PRETTY-PRINT" "C-CALL" "ALIEN"
@@ -1691,15 +1691,14 @@
 	       (external-symbol-count pkg))
 	    (do-symbols (sym package)
 	      (multiple-value-bind (s w)
-				   (find-external-symbol (symbol-name sym) pkg)
+		  (find-external-symbol (symbol-name sym) pkg)
 		(when (and w (not (eq s sym))
 			   (not (member sym shadowing-symbols)))
 		  (push sym cset))))
 	    (dolist (p use-list)
 	      (do-external-symbols (sym p)
 		(multiple-value-bind (s w)
-				     (find-external-symbol (symbol-name sym)
-							   pkg)
+		    (find-external-symbol (symbol-name sym) pkg)
 		  (when (and w (not (eq s sym))
 			     (not (member (find-symbol (symbol-name sym)
 						       package)
@@ -1708,7 +1707,7 @@
 	   (t
 	    (do-external-symbols (sym pkg)
 	      (multiple-value-bind (s w)
-				   (find-symbol (symbol-name sym) package)
+		  (find-symbol (symbol-name sym) package)
 		(when (and w (not (eq s sym))
 			   (not (member s shadowing-symbols)))
 		  (push s cset))))))
@@ -1926,7 +1925,7 @@
     (makunbound '*initial-symbols*) ; So it gets GC'ed.
     
     ;; Make some other packages that should be around in the cold load:
-    (make-package "COMMON-LISP-USER" :nicknames '("CL-USER" "USER"))
+    (make-package "COMMON-LISP-USER" :nicknames '("CL-USER"))
 
     ;; Now do the *deferred-use-packages*:
     (dolist (args *deferred-use-packages*)
diff --git a/code/print.lisp b/code/print.lisp
index de3b73d67cec039e19e4ae230d23f06210ae9a30..0c111e2ba34960477d86af888d6d1af5d540d570 100644
--- a/code/print.lisp
+++ b/code/print.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/print.lisp,v 1.84 2003/01/06 22:27:16 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/print.lisp,v 1.85 2003/06/18 09:23:10 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -102,7 +102,7 @@
   `(%with-standard-io-syntax #'(lambda () ,@body)))
 
 (defun %with-standard-io-syntax (function)
-  (let ((*package* (find-package "USER"))
+  (let ((*package* (find-package "CL-USER"))
 	(*print-array* t)
 	(*print-base* 10)
 	(*print-case* :upcase)
diff --git a/code/save.lisp b/code/save.lisp
index 01b3b5db51197bb3cad9f81b009a1f2854c3b58a..460164def30ce63abab5e10b44bfd1f2a614646e 100644
--- a/code/save.lisp
+++ b/code/save.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/save.lisp,v 1.50 2003/03/19 03:28:36 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/save.lisp,v 1.51 2003/06/18 09:23:10 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -318,7 +318,7 @@
 ;;;; Random functions used by worldload.
 
 (defun assert-user-package ()
-  (unless (eq *package* (find-package "USER"))
+  (unless (eq *package* (find-package "CL-USER"))
     (error "Change *PACKAGE* to the USER package and try again.")))
 
 ;;; MAYBE-BYTE-LOAD  --  Interface
diff --git a/code/stream.lisp b/code/stream.lisp
index 773b9fe7f2b44b496b8fa4fdba718ab1c58533df..2db3d1ba18e06f5d708eb02eafc0f8921c8381e0 100644
--- a/code/stream.lisp
+++ b/code/stream.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/stream.lisp,v 1.62 2003/06/07 17:56:28 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.63 2003/06/18 09:23:10 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2551,7 +2551,7 @@ SEQ:	a proper SEQUENCE
 	   (type index start)
 	   (type sequence-end end)
 	   (values index))
-  (when (not (cl::lisp-stream-p stream))
+  (when (not (lisp::lisp-stream-p stream))
      (return-from read-sequence (stream-read-sequence seq stream start end)))
   (let ((end (or end (length seq))))
     (declare (type index end))
@@ -2609,7 +2609,7 @@ SEQ:	a proper SEQUENCE
 	   (type index start)
 	   (type sequence-end end)
 	   (values sequence))
-  (when (not (cl::lisp-stream-p stream))
+  (when (not (lisp::lisp-stream-p stream))
     (return-from write-sequence (stream-write-sequence seq stream start end)))
   (let ((end (or end (length seq))))
     (declare (type index start end))
diff --git a/compiler/generic/objdef.lisp b/compiler/generic/objdef.lisp
index 95a684dd93090cb3f09f81abd289b454945a7dfc..508bb8745280d8e3630e649c206ffc56c483efb8 100644
--- a/compiler/generic/objdef.lisp
+++ b/compiler/generic/objdef.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/compiler/generic/objdef.lisp,v 1.47 2002/09/04 11:21:02 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.48 2003/06/18 09:23:10 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -467,7 +467,7 @@
   (flushable movable))
 
 #+x86
-(defknown symbol-hash (symbol) cl::hash
+(defknown symbol-hash (symbol) lisp::hash
   (flushable movable))
 
 (define-primitive-object (symbol :lowtag other-pointer-type
diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt
index f3d10b550056a3530e209818040c04eb0994e08a..c66afe6664433097458f6643f04c61ae6d44d740 100644
--- a/general-info/release-19a.txt
+++ b/general-info/release-19a.txt
@@ -117,6 +117,9 @@ New in this release:
      - DEFCLASS redefining a class with the given name only if the
        name is the proper name of an existing class.
      - KEYWORD package no longer having nickname "".
+     - COMMON-LISP-USER package no longer having nickname USER.
+     - COMMON-LISP package no longer having nickname LISP; LISP
+       and COMMON-LISP are now separate packages.
      - SLOT-VALUE, (SETF SLOT-VALUE), SLOT-BOUNDP, SLOT-MAKUNBOUND
        returning values specified by the standard when SLOT-UNBOUND
        or SLOT-MISSING are called and return.
diff --git a/hemlock/lispmode.lisp b/hemlock/lispmode.lisp
index b6ad9c64240a600c680a1fd184afb3ac2283ab2e..3bf26b1cc255b332ceff06b81196fa346ce91a55 100644
--- a/hemlock/lispmode.lisp
+++ b/hemlock/lispmode.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/hemlock/lispmode.lisp,v 1.10 2001/03/13 15:49:55 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispmode.lisp,v 1.11 2003/06/18 09:23:09 gerd Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1700,7 +1700,7 @@
     (defhvar "Current Package"
       "The package used for evaluation of Lisp in this buffer."
       :buffer buffer
-      :value "USER")))
+      :value "CL-USER")))
 
 
 
diff --git a/interface/initial.lisp b/interface/initial.lisp
index c41a88d917c49dbfdbdf0156061daeb0b8811f00..1140c41a7b785e0d8cf6f53d39d787407a2942d1 100644
--- a/interface/initial.lisp
+++ b/interface/initial.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/interface/initial.lisp,v 1.6 2001/12/12 20:21:13 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/interface/initial.lisp,v 1.7 2003/06/18 09:23:09 gerd Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
-(in-package "USER")
+(in-package "CL-USER")
 
 (pushnew :motif *features*)
 
diff --git a/motif/lisp/initial.lisp b/motif/lisp/initial.lisp
index ff84767ded581d4a3e163de761b494cb577285f4..b0b941305bd94f9aa5d7d166cf53be619cf7db35 100644
--- a/motif/lisp/initial.lisp
+++ b/motif/lisp/initial.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/motif/lisp/initial.lisp,v 1.7 2001/12/11 00:51:47 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/motif/lisp/initial.lisp,v 1.8 2003/06/18 09:23:09 gerd Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -14,7 +14,7 @@
 ;;; This file is the initial startup code for the Motif Toolkit
 ;;;
 
-(in-package  "USER")
+(in-package  "CL-USER")
 
 
 
diff --git a/pcl/braid.lisp b/pcl/braid.lisp
index e4e3524d03f5d30461afb3fe5e4477b4c1a20755..dc95368468b112921faf15ebe3c6a607f8c4c1a3 100644
--- a/pcl/braid.lisp
+++ b/pcl/braid.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.45 2003/06/11 19:17:25 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/braid.lisp,v 1.46 2003/06/18 09:23:09 gerd Exp $")
 
 ;;;
 ;;; Bootstrapping the meta-braid.
@@ -630,7 +630,7 @@
 	(setf (kernel::find-class name) kernel-class
 	      (kernel:%class-name kernel-class) name)))))
 
-(defun common-lisp::sxhash-instance (instance)
+(defun lisp::sxhash-instance (instance)
   (get-hash instance))
 
 #-loadable-pcl
diff --git a/pcl/defsys.lisp b/pcl/defsys.lisp
index 7ff63a8d3133137eb140513e61a91a0b30173eb9..96a89fe9cebf460eb9f3145d7f63583e1c4b307d 100644
--- a/pcl/defsys.lisp
+++ b/pcl/defsys.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.33 2003/06/07 17:56:28 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/defsys.lisp,v 1.34 2003/06/18 09:23:09 gerd Exp $")
 ;;;
 ;;; Some support stuff for compiling and loading PCL.  It would be nice if
 ;;; there was some portable make-system we could all agree to share for a
@@ -53,7 +53,7 @@
 ;;;    loaded into the same world it was compiled in.
 ;;;
 
-(in-package :user)
+(in-package :cl-user)
 
 (defpackage "WALKER" (:use :common-lisp :ext))
 (defpackage "PCL" (:use :walker :common-lisp :ext))
@@ -66,7 +66,7 @@
 ;;; 
 (defvar *the-pcl-package* (find-package :pcl))
 
-(defvar *pcl-system-date* "$Date: 2003/06/07 17:56:28 $")
+(defvar *pcl-system-date* "$Date: 2003/06/18 09:23:09 $")
 
 (setf (getf ext:*herald-items* :pcl)
       `("    CLOS based on Gerd's PCL " ,(subseq *pcl-system-date* 7 26)))
diff --git a/pcl/env.lisp b/pcl/env.lisp
index fb8219d7477d854e559f2edabc8914d36f35a489..9f9eb9259b16288625c5a2bbaed30296869993ad 100644
--- a/pcl/env.lisp
+++ b/pcl/env.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.25 2003/06/13 08:53:09 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/env.lisp,v 1.26 2003/06/18 09:23:09 gerd Rel $")
 ;;;
 ;;; Basic environmental stuff.
 ;;;
@@ -274,7 +274,7 @@
 
 ;;;; MAKE-LOAD-FORM
 
-(export '(cl::make-load-form cl::make-load-form-saving-slots) "CL")
+(export '(lisp::make-load-form lisp::make-load-form-saving-slots) "CL")
 
 (defgeneric make-load-form (object &optional environment))
 
diff --git a/pcl/macros.lisp b/pcl/macros.lisp
index 63d1479fef71575baf9223c7f147aec697b35143..3c0c547fac2cc0daf4edd5127cf82f3c2513bf3a 100644
--- a/pcl/macros.lisp
+++ b/pcl/macros.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.28 2003/05/23 11:05:16 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.29 2003/06/18 09:23:09 gerd Rel $")
 ;;;
 ;;; Macros global variable definitions, and other random support stuff used
 ;;; by the rest of the system.
@@ -75,7 +75,7 @@
 	     '(class-predicate slot-accessor
 	       method fast-method effective-method))))
 
-(import '(cl::make-keyword))
+(import '(lisp::make-keyword))
 
 (defmacro posq (item list)
   `(position ,item ,list :test #'eq))
diff --git a/pcl/simple-streams/classes.lisp b/pcl/simple-streams/classes.lisp
index b12a19ca8649e21155ff4b99b4661c2ff1bc6d1c..32e4448d635824cac56f487134e331f183ff194c 100644
--- a/pcl/simple-streams/classes.lisp
+++ b/pcl/simple-streams/classes.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/classes.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/classes.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -57,12 +57,12 @@
   ((%flags :initform 0 :type fixnum)
    (plist :initform nil :type list :accessor stream-plist)
 
-   (j-listen :initform #'cl::ill-in-any :type j-listen-fn)
-   (j-read-char :initform #'cl::ill-in-any :type j-read-char-fn)
-   (j-read-chars :initform #'cl::ill-in-any :type j-read-chars-fn)
-   (j-unread-char :initform #'cl::ill-in-any :type j-unread-char-fn)
-   (j-write-char :initform #'cl::ill-out-any :type j-write-char-fn) ;@@
-   (j-write-chars :initform #'cl::ill-out-any :type j-write-chars-fn) ;@@
+   (j-listen :initform #'lisp::ill-in-any :type j-listen-fn)
+   (j-read-char :initform #'lisp::ill-in-any :type j-read-char-fn)
+   (j-read-chars :initform #'lisp::ill-in-any :type j-read-chars-fn)
+   (j-unread-char :initform #'lisp::ill-in-any :type j-unread-char-fn)
+   (j-write-char :initform #'lisp::ill-out-any :type j-write-char-fn) ;@@
+   (j-write-chars :initform #'lisp::ill-out-any :type j-write-chars-fn) ;@@
 
    (external-format :initform :default)
 
@@ -183,12 +183,12 @@
       (call-next-method)
       (setf (sm input-handle stream) nil
 	    (sm output-handle stream) nil
-	    (sm j-listen stream) #'cl::closed-flame
-	    (sm j-read-char stream) #'cl::closed-flame
-	    (sm j-read-chars stream) #'cl::closed-flame
-	    (sm j-unread-char stream) #'cl::closed-flame
-	    (sm j-write-char stream) #'cl::closed-flame	;@@
-	    (sm j-write-chars stream) #'cl::closed-flame) ;@@
+	    (sm j-listen stream) #'lisp::closed-flame
+	    (sm j-read-char stream) #'lisp::closed-flame
+	    (sm j-read-chars stream) #'lisp::closed-flame
+	    (sm j-unread-char stream) #'lisp::closed-flame
+	    (sm j-write-char stream) #'lisp::closed-flame	;@@
+	    (sm j-write-chars stream) #'lisp::closed-flame) ;@@
       (remove-stream-instance-flags stream :input :output)
       (ext:cancel-finalization stream))))
 
diff --git a/pcl/simple-streams/file.lisp b/pcl/simple-streams/file.lisp
index f7aa44868f0c1185a2ca2d4c4b28f5eb9b55d495..0ca77a3b4e6aaf68c83fb5973fb6231762dfd990 100644
--- a/pcl/simple-streams/file.lisp
+++ b/pcl/simple-streams/file.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/file.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/file.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -46,8 +46,8 @@
 	     stream)
 	    (t
 	     (multiple-value-bind (fd namestring original delete-original)
-		 (cl::fd-open filename direction if-exists if-exists-given
-			      if-does-not-exist if-does-not-exist-given)
+		 (lisp::fd-open filename direction if-exists if-exists-given
+				if-does-not-exist if-does-not-exist-given)
 	       (when fd
 		 (add-stream-instance-flags stream :simple)
 		 (setf (sm pathname stream) filename
@@ -101,11 +101,11 @@
       (cond (abort
 	     ;; Remove any fd-handler
 	     (when (any-stream-instance-flags stream :output)
-	       (cl::revert-file (sm filename stream) (sm original stream))))
+	       (lisp::revert-file (sm filename stream) (sm original stream))))
 	    (t
 	     (when (sm delete-original stream)
-	       (cl::delete-original (sm filename stream)
-				    (sm original stream)))))
+	       (lisp::delete-original (sm filename stream)
+				      (sm original stream)))))
       (unix:unix-close fd)
       ;; if buffer is a sap, put it back on cl::*available-buffers*
       (setf (sm buffer stream) nil)))
diff --git a/pcl/simple-streams/impl.lisp b/pcl/simple-streams/impl.lisp
index 4cb99d8312f37de58f18924cba4b099e39ff3ec9..646435f8f6ccd3a2473b28e7bde3756bb5bec19e 100644
--- a/pcl/simple-streams/impl.lisp
+++ b/pcl/simple-streams/impl.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/impl.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -22,13 +22,13 @@
 	 (%uninitialized stream))
 	((and (eq kind :open)
 	      (not (any-stream-instance-flags stream :input :output)))
-	 (cl::closed-flame stream))
+	 (lisp::closed-flame stream))
 	((and (or (eq kind :input) (eq kind :io))
 	      (not (any-stream-instance-flags stream :input)))
-	 (cl::ill-in-any stream))
+	 (lisp::ill-in-any stream))
 	((and (or (eq kind :output) (eq kind :io))
 	      (not (any-stream-instance-flags stream :output)))
-	 (cl::ill-out-any stream))))
+	 (lisp::ill-out-any stream))))
 
 #+count-sm
 (progn
@@ -162,7 +162,7 @@
 	  (when done
 	    ;; If there's only one buffer in use, return it directly
 	    (when (null (cdr bufs))
-	      (return (values (cl::shrink-vector cbuf index)
+	      (return (values (lisp::shrink-vector cbuf index)
 			      (eq done :eof))))
 	    ;; If total fits in final buffer, use it
 	    #-(or)
@@ -174,7 +174,7 @@
 		  (declare (type simple-base-string buf))
 		  (replace cbuf buf :start1 idx)
 		  (incf idx (length buf))))
-	      (return (values (cl::shrink-vector cbuf index)
+	      (return (values (lisp::shrink-vector cbuf index)
 			      (eq done :eof))))
 	    ;; Allocate new string of appropriate length
 	    (let ((string (make-string total))
@@ -229,7 +229,7 @@
 						  eof-error-p
 						  stream t)))
 		 ((or (eq char stream)
-		      (not (cl::whitespace-char-p char)))
+		      (not (lisp::whitespace-char-p char)))
 		  (unless (eq char stream)
 		    (funcall-stm-handler j-unread-char encap t))
 		  (if (eq char stream) eof-value char))))
@@ -282,7 +282,7 @@
   (with-stream-class (simple-stream stream)
     (%check stream :input)
     (if (any-stream-instance-flags stream :eof)
-	(cl::eof-or-lose stream eof-error-p eof-value)
+	(lisp::eof-or-lose stream eof-error-p eof-value)
 	(simple-stream-dispatch stream
 	  ;; single-channel-simple-stream
 	  (sc-read-byte stream eof-error-p eof-value t)
diff --git a/pcl/simple-streams/internal.lisp b/pcl/simple-streams/internal.lisp
index 5c9c5be1a7797f770a66d42c1b2f1a7c1b106e5b..f86e7721459adfa16a808db3f68b5b16b3c74ff8 100644
--- a/pcl/simple-streams/internal.lisp
+++ b/pcl/simple-streams/internal.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.2 2003/06/07 17:56:28 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/internal.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -43,13 +43,13 @@
                             (* length 8))))
 
 (defun allocate-buffer (size)
-  (if (= size cl::bytes-per-buffer)
-      (cl::next-available-buffer)
+  (if (= size lisp::bytes-per-buffer)
+      (lisp::next-available-buffer)
       (make-array size :element-type '(unsigned-byte 8))))
 
 (defun free-buffer (buffer)
   (when (sys:system-area-pointer-p buffer)
-    (push buffer cl::*available-buffers*))
+    (push buffer lisp::*available-buffers*))
   t)
 
 
diff --git a/pcl/simple-streams/null.lisp b/pcl/simple-streams/null.lisp
index d99d2b4309673cb1a8532968029c7bbd53280b61..da063e20add6366d50995596d1706730d9986a19 100644
--- a/pcl/simple-streams/null.lisp
+++ b/pcl/simple-streams/null.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/null.lisp,v 1.1 2003/06/06 16:23:46 toy Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/null.lisp,v 1.2 2003/06/18 09:23:08 gerd Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -21,7 +21,7 @@
 (declaim (ftype j-read-char-fn null-read-char))
 (defun null-read-char (stream eof-error-p eof-value blocking)
   (declare (ignore blocking))
-  (cl::eof-or-lose stream eof-error-p eof-value))
+  (lisp::eof-or-lose stream eof-error-p eof-value))
 
 (declaim (ftype j-read-chars-fn null-read-chars))
 (defun null-read-chars (stream string search start end blocking)
diff --git a/pcl/simple-streams/strategy.lisp b/pcl/simple-streams/strategy.lisp
index 48f3a3f85eaa57bda9b5463acc10db36d684737b..fdb3ef14fac155c1a1e07ca11197b5d2d05b510a 100644
--- a/pcl/simple-streams/strategy.lisp
+++ b/pcl/simple-streams/strategy.lisp
@@ -5,7 +5,7 @@
 ;;; domain.
 ;;; 
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.3 2003/06/11 16:10:21 emarsden Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/simple-streams/strategy.lisp,v 1.4 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -136,7 +136,7 @@
           (setq char (funcall (the (or symbol function) (svref ctrl code))
                               stream char))))
       (if (null char)
-          (cl::eof-or-lose stream eof-error-p eof-value)
+          (lisp::eof-or-lose stream eof-error-p eof-value)
           char))))
 
 (declaim (ftype j-read-char-fn (sc read-char :iso8859-1 buffer)))
@@ -158,7 +158,7 @@
           (setq char (funcall (the (or symbol function) (svref ctrl code))
                               stream char))))
       (if (null char)
-          (cl::eof-or-lose stream eof-error-p eof-value)
+          (lisp::eof-or-lose stream eof-error-p eof-value)
           char))))
 
 (declaim (ftype j-read-chars-fn (sc read-chars :iso8859-1)))
@@ -317,7 +317,7 @@
               (setf (sm buffer-ptr stream) bytes
                     ptr 0)
               (return-from sc-read-byte
-                (cl::eof-or-lose stream eof-error-p eof-value)))))
+                (lisp::eof-or-lose stream eof-error-p eof-value)))))
       (setf (sm buffpos stream) (1+ ptr))
       (setf (sm last-char-read-size stream) 0)
       (bref (sm buffer stream) ptr))))
@@ -362,7 +362,7 @@
           (setq char (funcall (the (or symbol function) (svref ctrl code))
                               stream char))))
       (if (null char)
-          (cl::eof-or-lose stream eof-error-p eof-value)
+          (lisp::eof-or-lose stream eof-error-p eof-value)
           char))))
 
 (declaim (ftype j-read-chars-fn (dc read-chars :iso8859-1)))
@@ -476,7 +476,7 @@
               (setf (sm buffer-ptr stream) bytes
                     ptr 0)
               (return-from dc-read-byte
-                (cl::eof-or-lose stream eof-error-p eof-value)))))
+                (lisp::eof-or-lose stream eof-error-p eof-value)))))
       (setf (sm buffpos stream) (1+ ptr))
       (setf (sm last-char-read-size stream) 0)
       (bref (sm buffer stream) ptr))))
@@ -490,13 +490,13 @@
            #|(optimize (speed 3) (space 2) (safety 0) (debug 0))|#)
   (with-stream-class (string-input-simple-stream stream)
     (when (any-stream-instance-flags stream :eof)
-      (cl::eof-or-lose stream eof-error-p eof-value))
+      (lisp::eof-or-lose stream eof-error-p eof-value))
     (let* ((ptr (sm buffpos stream))
            (char (if (< ptr (sm buffer-ptr stream))
                      (schar (sm buffer stream) ptr)
                      nil)))
       (if (null char)
-          (cl::eof-or-lose stream eof-error-p eof-value)
+          (lisp::eof-or-lose stream eof-error-p eof-value)
           (progn
             (setf (sm last-char-read-size stream) 1)
             ;; do string-streams do control-in processing?
diff --git a/tools/clmcom.lisp b/tools/clmcom.lisp
index 7f5906d914b7c113650e8bf3710dc866ff5e99d5..1044ca4532f5a958fd446105c0a00b7aea3fe24c 100644
--- a/tools/clmcom.lisp
+++ b/tools/clmcom.lisp
@@ -7,14 +7,14 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.19 1997/11/04 16:29:36 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clmcom.lisp,v 1.20 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; File for compiling the Motif toolkit and related interface
 ;;; stuff.
 ;;;
-(in-package "USER")
+(in-package "CL-USER")
 
 
 ;;; If CLX and PCL have not been loaded, then load them.
diff --git a/tools/clxcom.lisp b/tools/clxcom.lisp
index 2e396db6247ce9060af0c7ec8d4b91d45bad0559..19eea60579b897a49afd4fd61d562380f3426956 100644
--- a/tools/clxcom.lisp
+++ b/tools/clxcom.lisp
@@ -3,11 +3,11 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clxcom.lisp,v 1.26 1999/01/09 11:05:20 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/clxcom.lisp,v 1.27 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-(in-package "USER")
+(in-package "CL-USER")
 
 #+bootstrap
 (unless (find-package "OLD-XLIB")
diff --git a/tools/comcom.lisp b/tools/comcom.lisp
index b7d44b4e9af3d68e260c6a96725643870d1b3b96..11b32b9d142be4680342013e23470fa8903f0c14 100644
--- a/tools/comcom.lisp
+++ b/tools/comcom.lisp
@@ -3,13 +3,13 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/comcom.lisp,v 1.54 2003/02/05 19:32:21 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/comcom.lisp,v 1.55 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Loading this file causes the CMUCL compiler to be compiled.
 ;;;
-(in-package "USER")
+(in-package "CL-USER")
 
 #+bootstrap
 (copy-packages (cons (c::backend-name c::*target-backend*) '("NEW-ASSEM" "C")))
diff --git a/tools/config.lisp b/tools/config.lisp
index fa71bb6393072ffb5bd8330f30b5dae7b3dbb4ce..50a970e2d1cb849895e24f6af982be3b79950184 100644
--- a/tools/config.lisp
+++ b/tools/config.lisp
@@ -7,13 +7,13 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.5 2000/06/06 10:01:24 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/config.lisp,v 1.6 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; Utility to load subsystems and save a new core.
 ;;;
-(in-package "USER")
+(in-package "CL-USER")
 
 
 (block abort
diff --git a/tools/hemcom.lisp b/tools/hemcom.lisp
index 1e543fbe71527e9c0e2f99fc30f4841571f470f4..469b8f3f4dec4f8910e3d9d7495cec9bfe5d5d39 100644
--- a/tools/hemcom.lisp
+++ b/tools/hemcom.lisp
@@ -3,7 +3,7 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/hemcom.lisp,v 1.10 2003/02/25 15:21:43 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/hemcom.lisp,v 1.11 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -37,7 +37,7 @@
 (export 'c::compile-from-stream (find-package "C"))
 
 
-(in-package "USER")
+(in-package "CL-USER")
 
 (defvar *byte-compile* #+small t #-small :maybe)
 
diff --git a/tools/mk-lisp b/tools/mk-lisp
index 3a21ca64f000a801b942a1cce7107865d6047f92..13949993a3b0e366f4fef088ec137d5502e0f29e 100755
--- a/tools/mk-lisp
+++ b/tools/mk-lisp
@@ -2,7 +2,7 @@
 #
 #  mk-lisp -- script for building full lisp cores.
 #
-# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/mk-lisp,v 1.17 1997/02/05 18:13:01 pw Exp $
+# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/mk-lisp,v 1.18 2003/06/18 09:23:08 gerd Exp $
 
 # ignore historical option
 if ($#argv) then
@@ -54,7 +54,7 @@ echo "Features: $features"
 $dest/lisp/lisp -core $core << EOF
 (setf *features* (list* $features *features*))
 (setf (search-list "target:") '("$dest/" "$src/"))
-(in-package "USER")
+(in-package "CL-USER")
 (load (open "target:tools/worldload.lisp"))
 $version
 (quit)
diff --git a/tools/pclcom.lisp b/tools/pclcom.lisp
index b041e8ed4057bce9a4e2d713f0795c41e3a3f7d7..8b39bf4ae76629e31151885234c81259506af8f7 100644
--- a/tools/pclcom.lisp
+++ b/tools/pclcom.lisp
@@ -3,11 +3,11 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.29 2003/06/07 17:56:28 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/pclcom.lisp,v 1.30 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-(in-package "USER")
+(in-package "CL-USER")
 
 (when (find-package "PCL")
   ;; Load the lisp:documentation functions.
diff --git a/tools/setup.lisp b/tools/setup.lisp
index 608add3ae1941830f2deac8202d7a94d6002fad9..54d38cfad37266ac93f835c8716d58362636ab92 100644
--- a/tools/setup.lisp
+++ b/tools/setup.lisp
@@ -3,7 +3,7 @@
 ;;; **********************************************************************
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/setup.lisp,v 1.35 2003/06/11 13:03:25 emarsden Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/setup.lisp,v 1.36 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -29,7 +29,7 @@
                 Be sure to re-compile the startup code."
              (genesis-c-header-file-name c)))))
 
-(in-package "USER")
+(in-package "CL-USER")
 
 
 ;; these forward declarations are only intended to avoid compiler
@@ -77,9 +77,9 @@
             stream::%write-string
             debug::all-method-functions-in-package
             profile::reinitialize-method-function
-            cl::make-instance
-            cl::class-of
-            cl::sxhash-instance
+            lisp::make-instance
+            lisp::class-of
+            lisp::sxhash-instance
             hemlock::ts-stream-p
             hemlock::ts-stream-wire
             ext::call-display-event-handler
diff --git a/tools/snapshot-update.lisp b/tools/snapshot-update.lisp
index 7619ee6bfd5d3b9f8d336708f60bf669c8159ee0..292600302380d3b41c1fb8600a8f0355963198d3 100644
--- a/tools/snapshot-update.lisp
+++ b/tools/snapshot-update.lisp
@@ -7,14 +7,14 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/snapshot-update.lisp,v 1.2 1992/02/24 14:23:25 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/snapshot-update.lisp,v 1.3 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;;    A hack to generate a log of the changes since a particular snapshot.  We
 ;;; generate a shell script and run it to avoid many calls to run-program.
 ;;;
-(in-package "USER")
+(in-package "CL-USER")
 
 (defun snapshot-updates (&key (snapshot-file "RCSSNAP")
 			      (output
diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 42c3d185e5622c20de46f810394d352faab1d345..786006a28731e8720c8b0023b94decca050f50eb 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -7,14 +7,14 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.87 2003/05/23 13:34:04 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.88 2003/06/18 09:23:08 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
 ;;; This file contains noise to compile the lisp world.
 ;;; 
 
-(in-package "USER")
+(in-package "CL-USER")
 
 (defvar *byte-compile* #+small t #-small :maybe)
 (defvar *original-%deftype* #'lisp::%deftype)
diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index fb8d4e3a3f9353c1f964d255a5be98fc5bdbca84..33636da151b3e947b4c116051919ff064717d4d0 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -6,7 +6,7 @@
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.100 2003/05/23 13:34:04 gerd Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.101 2003/06/18 09:23:08 gerd Exp $
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -28,7 +28,7 @@
 ;;; into the dynamic space during worldload; overrides the above when
 ;;; enabled. Enable by default for GENCGC.  May also be safe with CGC
 ;;; but untested.
-;(setf cl::*enable-dynamic-space-code* t)
+;(setf lisp::*enable-dynamic-space-code* t)
 
 
 ;;; Get some data on this core.
@@ -226,7 +226,7 @@
 ;;;
 (progn
   ;; We want to be in the USER package when the command line switches run.
-  (in-package "USER")
+  (in-package "CL-USER")
   ;; Clean random top-level specials.
   (setq - nil)
   (setq + nil)
@@ -254,7 +254,7 @@
 
   ;;; GENCGC can move native code so all code can be loaded into the
   ;;; dynamic space; overrides the above when enabled.
-  #+gencgc (setf cl::*enable-dynamic-space-code* t)
+  #+gencgc (setf lisp::*enable-dynamic-space-code* t)
   ;;; Reset the counter of the number of native code fixups.
   #+x86 (setf x86::*num-fixups* 0)