diff --git a/code/exports.lisp b/code/exports.lisp
index f807ae8988916cece7eae41236925bb7aeed6545..de5b4e14d6cdd91270300619d16402da32b0b9e3 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.151 1998/04/10 11:42:40 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.152 1998/05/01 01:02:54 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -573,7 +573,7 @@
              "WITH-ADDED-METHODS" "WITH-SLOTS"
 	     "MAKE-METHOD" "UNBOUND-SLOT" "UNBOUND-SLOT-INSTANCE"
              "CELL-ERROR-NAME"
-	     "COMMON" "HASH-TABLE-WEAK-P"
+	     "HASH-TABLE-WEAK-P"
              "GET-SETF-EXPANSION" "STYLE-WARNING" 
              "PRINT-NOT-READABLE-OBJECT"
              "DEFINE-SETF-EXPANDER" "PRINT-NOT-READABLE" "METHOD"
diff --git a/code/loop.lisp b/code/loop.lisp
index 0aedd20ce911f709f7ce4729e856fcbf6da9debf..a254750476ecf91d492e8ec8ea1f06ec308344fb 100644
--- a/code/loop.lisp
+++ b/code/loop.lisp
@@ -49,7 +49,7 @@
 
 #+cmu
 (ext:file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.6 1998/02/03 19:15:56 dtc Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/loop.lisp,v 1.7 1998/05/01 01:02:55 dtc Exp $")
 
 ;;;; LOOP Iteration Macro
 
@@ -2089,7 +2089,7 @@ collected result will be returned as the value of the LOOP."
 	     :iteration-keywords '((for (loop-do-for))
 				   (as (loop-do-for))
 				   (repeat (loop-do-repeat)))
-	     :type-symbols '(array atom bignum bit bit-vector character #| common |# compiled-function
+	     :type-symbols '(array atom bignum bit bit-vector character compiled-function
 				   complex cons double-float fixnum float
 				   function hash-table integer keyword list long-float
 				   nil null number package pathname random-state
diff --git a/code/misc.lisp b/code/misc.lisp
index 0d4ab21cf44040040229634a84f2fe38c44a446b..32b61a8b68263c4126a9f060b9b94ea2027cbd02 100644
--- a/code/misc.lisp
+++ b/code/misc.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/misc.lisp,v 1.27 1997/09/04 06:17:15 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.28 1998/05/01 01:02:55 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -15,7 +15,7 @@
 ;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too.
 ;;;
 (in-package "LISP")
-(export '(documentation *features* common variable room
+(export '(documentation *features* variable room
 	  lisp-implementation-type lisp-implementation-version machine-type
 	  machine-version machine-instance software-type software-version
 	  short-site-name long-site-name dribble compiler-macro))
diff --git a/code/pred.lisp b/code/pred.lisp
index ea45dfd55074cca17670c59431dd001475006bb0..5b5c42c95a25814b8fe84c22a04264fa452855da 100644
--- a/code/pred.lisp
+++ b/code/pred.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/pred.lisp,v 1.47 1998/04/06 02:44:33 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pred.lisp,v 1.48 1998/05/01 01:02:56 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -29,7 +29,7 @@
 	  functionp compiled-function-p eq eql equal equalp not
 	  type-of upgraded-array-element-type realp
 	  ;; Names of types...
-	  array atom bignum bit bit-vector character common
+	  array atom bignum bit bit-vector character
 	  compiled-function complex cons double-float
 	  fixnum float function integer keyword list long-float nil
 	  null number ratio rational real sequence short-float signed-byte
diff --git a/code/typedefs.lisp b/code/typedefs.lisp
index 4f825f73c2c4e0a125faa15660a66eb850abc5d3..39872dcdb79bc235af82e64cebb6a6397d04c157 100644
--- a/code/typedefs.lisp
+++ b/code/typedefs.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/typedefs.lisp,v 1.10 1994/10/31 04:11:27 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/typedefs.lisp,v 1.11 1998/05/01 01:02:56 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -22,7 +22,7 @@
 ;;; These are the Common Lisp defined type specifier symbols.  These are the
 ;;; things which can be used as declarations without requiring the use of TYPE.
 (defconstant type-specifier-symbols
-  '(array atom bignum bit bit-vector character common compiled-function
+  '(array atom bignum bit bit-vector character compiled-function
     complex cons double-float extended-char fixnum float function
     hash-table integer keyword list long-float nil null number package
     pathname random-state ratio rational real readtable sequence