diff --git a/code/exports.lisp b/code/exports.lisp
index e6a05f169276455f281f83b1bda446c8f94db2a0..af5a44162b03cadfe432f0604075ddcbeabbc29d 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.210 2003/05/15 11:24:34 gerd Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.211 2003/05/20 20:08:05 gerd Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1074,7 +1074,10 @@
 	     "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING"
 	     "STREAM-READ-SEQUENCE" "STREAM-WRITE-SEQUENCE"
 
-	     "&PARSE-BODY"))
+	     "&PARSE-BODY"
+
+	     ;; PCL declaration identifiers.
+	     "SLOTS" "AUTO-COMPILE" "NOT-AUTO-COMPILE"))
 
 (defpackage "LOOP")
 (dolist
diff --git a/docs/cmu-user/extensions.tex b/docs/cmu-user/extensions.tex
index 6766d5801e32e94d79527f7941ab2bd3037a035b..13c4be4af998f83864d49d61ad57e1518f1af1a2 100644
--- a/docs/cmu-user/extensions.tex
+++ b/docs/cmu-user/extensions.tex
@@ -1905,11 +1905,11 @@ will occur if \code{value} is not a \code{fixnum}.  In method
 \cindex{slot access optimization}
 \cindex{slot declarations}
 
-The declaration \code{pcl:slots} is used for optimizing slot access in
+The declaration \code{ext:slots} is used for optimizing slot access in
 methods.
 
 \begin{example}
-declare (pcl:slots specifier*)
+declare (ext:slots specifier*)
 
 specifier   ::= (quality class-entry*)
 quality     ::= SLOT-BOUNDP | INLINE
@@ -1937,7 +1937,7 @@ Example:
   (a b))
 
 (defmethod bar ((x foo))
-  (declare (pcl:slots (slot-boundp foo)))
+  (declare (ext:slots (slot-boundp foo)))
   (list (slot-value x 'a) (slot-value x 'b)))
 \end{example}
 
@@ -1962,7 +1962,7 @@ Example:
   (a b))
 
 (defmethod bar ((x foo))
-  (declare (pcl:slots (inline (foo a))))
+  (declare (ext:slots (inline (foo a))))
   (list (slot-value x 'a) (slot-value x 'b)))
 \end{example}
 
@@ -1978,7 +1978,7 @@ If a class is \code{proclaim}ed to use inline slot access before it is
 defined, the class is defined at compile time.  Example:
 
 \begin{example}
-(declaim (pcl:slots (inline (foo slot-a))))
+(declaim (ext:slots (inline (foo slot-a))))
 (defclass foo () ...)
 (defclass bar (foo) ...)
 \end{example}
@@ -2042,8 +2042,8 @@ class changes.  Two declarations control which methods are
 automatically recompiled.
 
 \begin{example}
-declaim (pcl:auto-compile specifier*)
-declaim (pcl:not-auto-compile specifier*)
+declaim (ext:auto-compile specifier*)
+declaim (ext:not-auto-compile specifier*)
 
 specifier   ::= gf-name | (gf-name qualifier* (specializer*))
 gf-name     ::= the name of a generic function
@@ -2061,7 +2061,7 @@ of that generic function.
 Examples:
 
 \begin{example}
-(declaim (pcl:auto-compile foo))
+(declaim (ext:auto-compile foo))
 (defmethod foo :around ((x bar)) ...)
 \end{example}
 
@@ -2069,7 +2069,7 @@ The around-method \code{foo} will be automatically recompiled because
 the declamation applies to all methods with name \code{foo}.
 
 \begin{example}
-(declaim (pcl:auto-compile (foo (bar))))
+(declaim (ext:auto-compile (foo (bar))))
 (defmethod foo :around ((x bar)) ...)
 (defmethod foo ((x bar)) ...)
 \end{example}
@@ -2078,8 +2078,8 @@ The around-method will not be automatically recompiled, but the
 primary method will.
 
 \begin{example}
-(declaim (pcl:auto-compile foo))
-(declaim (pcl:not-auto-compile (foo :around (bar)))  
+(declaim (ext:auto-compile foo))
+(declaim (ext:not-auto-compile (foo :around (bar)))  
 (defmethod foo :around ((x bar)) ...)
 (defmethod foo ((x bar)) ...)
 \end{example}
diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt
index 16a4d257c023d589dfc569a0f7d9e333c01ac72f..34e299a70a5a94e457b693d8d5bb3dcb0cbefbbd 100644
--- a/general-info/release-19a.txt
+++ b/general-info/release-19a.txt
@@ -119,6 +119,8 @@ New in this release:
      - SLOT-VALUE, (SETF SLOT-VALUE), SLOT-BOUNDP working with conditions.
      - (SETF SLOT-VALUE) working on read-only structure slots like
        in other implementations.
+     - The declaration identifiers SLOTS, AUTO-COMPILE,
+       NOT-AUTO-COMPILE have been moved from PCL to EXT.
 
   * Improvements to Hemlock, the Emacs-like editor:
 
diff --git a/pcl/info.lisp b/pcl/info.lisp
index 0b547236b4d8bfb2dfe660726340f274e5365553..377349a0a127f890e8ae28765b331425e8f1fd82 100644
--- a/pcl/info.lisp
+++ b/pcl/info.lisp
@@ -36,7 +36,7 @@
 ;;; GF is actually non-accessor GF.  Clean this up.
 ;;; (setf symbol-value) should be handled like (setf fdefinition)
 
-(file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/info.lisp,v 1.5 2003/05/07 17:14:24 gerd Exp $")
+(file-comment "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/info.lisp,v 1.6 2003/05/20 20:08:04 gerd Exp $")
 
 (in-package "PCL")
 
@@ -525,7 +525,6 @@
 ;;; Set up SLOTS, AUTO-COMPILE, and NOT-AUTO-COMPILE as a recognizable
 ;;; declaration.
 ;;;
-(export '(slots auto-compile not-auto-compile))
 (declaim (declaration slots auto-compile not-auto-compile))
 (pushnew 'slots *variable-declarations-with-argument*)
 (pushnew 'slots walker:*variable-declarations*)