diff --git a/src/base/defalias.lisp b/src/base/defalias.lisp
index a294dae6214ef7c5ce953f39c730050994da055c..4988dc7a4351f61e61acabc726449dfd7ee98cad 100644
--- a/src/base/defalias.lisp
+++ b/src/base/defalias.lisp
@@ -77,3 +77,14 @@
      (define-symbol-macro ,alias ,original)
      (setf (documentation ',alias 'variable)
            (documentation ',original 'variable))))
+
+(defnamespace class
+  "The namespace of classes.")
+
+(defmethod make-alias ((namespace (eql 'class))
+                       original alias)
+  `(progn
+     (setf (find-class ,alias)
+           (find-class ,original))
+     (setf (documentation ',alias 'type)
+           (documentation ',original 'type))))
diff --git a/src/base/pkgdcl.lisp b/src/base/pkgdcl.lisp
index 3970d42a8011b9fcafd409f05628f6c0829c1d81..ffff37d78eb1f2676baf62b63fe441e30308360f 100644
--- a/src/base/pkgdcl.lisp
+++ b/src/base/pkgdcl.lisp
@@ -38,6 +38,7 @@
    #:macro
    #:constant
    ;; #:special is already in CL
+   ;; #:class is already in CL
    ;; DEFFOLDABLE
    #:deffoldable
    #:constant-form-value