From 262d63253c6342b1fb727fab4d3eadf4d01a331e Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Thu, 4 Sep 1997 13:10:01 +0000
Subject: [PATCH] Symbol %set-documentation is no longer used.

---
 code/exports.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 354ba4e51..9ab4283f8 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.124 1997/08/30 18:21:34 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.125 1997/09/04 13:10:01 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -595,7 +595,7 @@
 (dolist
     (name
      '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD"
-       "%SBITSET" "%SCHARSET" "%SET-DOCUMENTATION" "%SET-FDEFINITION"
+       "%SBITSET" "%SCHARSET" "%SET-FDEFINITION"
        "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF" "%SETELT" "%SETNTH"
        "%SP-STRING-COMPARE" "%SVSET" "%TYPEP" "*READ-ONLY-SPACE-FREE-POINTER*"
        "*STATIC-SPACE-FREE-POINTER*" "CURRENT-DYNAMIC-SPACE-START"
@@ -619,7 +619,7 @@
 			#+sgi "OLD-SGI")
             (:import-from "LISP" "%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET"
              "%PUT" "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET"
-             "%SET-DOCUMENTATION" "%SET-FDEFINITION" "%SET-FILL-POINTER"
+             "%SET-FDEFINITION" "%SET-FILL-POINTER"
              "%SET-ROW-MAJOR-AREF" "%SETELT" "%SETNTH" "%SP-STRING-COMPARE"
              "%SVSET" "%TYPEP" "*READ-ONLY-SPACE-FREE-POINTER*"
              "*STATIC-SPACE-FREE-POINTER*" "CURRENT-DYNAMIC-SPACE-START"
@@ -1031,7 +1031,7 @@
 (dolist
     (name
      '("%ARRAY-TYPEP" "%ASET" "%BITSET" "%CHARSET" "%PUT"
-       "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET" "%SET-DOCUMENTATION"
+       "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET"
        "%SET-FDEFINITION" "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
        "%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH" "%SP-STRING-COMPARE"
        "%SVSET" "%TYPEP" "LONG-FLOAT-P" "SHORT-FLOAT-P"
@@ -1042,7 +1042,7 @@
   (:nicknames "OLD-C")
   (:import-from "LISP" "%ARRAY-TYPEP" "%ASET"
 		"%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD" "%SBITSET"
-		"%SCHARSET" "%SET-DOCUMENTATION" "%SET-FDEFINITION"
+		"%SCHARSET" "%SET-FDEFINITION"
 		"%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
 		"%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH"
 		"%SP-STRING-COMPARE"
-- 
GitLab