From 8fcc8901902edb9684e739860c145a0abda929fb Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Sun, 8 Jul 2001 16:28:09 +0000
Subject: [PATCH] From Eric Marsden:

   Remove the *features* :cltl2, :draft-ansi-cl and :x3j13 to be ANSI
   compliant. I guess this might break some old code, but ANSI explicitly
   prohibits cohabitation of these with :ansi-cl.
---
 code/misc.lisp | 9 +++++----
 pcl/pkg.lisp   | 7 +------
 2 files changed, 6 insertions(+), 10 deletions(-)

diff --git a/code/misc.lisp b/code/misc.lisp
index 32b61a8b6..335608dab 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.28 1998/05/01 01:02:55 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/misc.lisp,v 1.29 2001/07/08 16:28:09 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -29,7 +29,7 @@
 (in-package "LISP")
 
 ;;; cobbled from stuff in describe.lisp.
-(defun function-doc(x)
+(defun function-doc (x)
   (let ((name
 	 (case (kernel:get-type x)
 	   (#.vm:closure-header-type
@@ -110,8 +110,9 @@
 		 (info random-documentation stuff name))))))
   string)
 
-(defvar *features* '(:common :cmu :new-compiler :cltl2 :common-lisp :ansi-cl
-			     :draft-ansi-cl :x3j13 :ieee-floating-point)
+
+(defvar *features* '(:common :cmu :new-compiler :common-lisp :ansi-cl
+			     :ieee-floating-point)
   "Holds a list of symbols that describe features provided by the
    implementation.")
 
diff --git a/pcl/pkg.lisp b/pcl/pkg.lisp
index 5617e083d..18d092460 100644
--- a/pcl/pkg.lisp
+++ b/pcl/pkg.lisp
@@ -26,14 +26,9 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/pkg.lisp,v 1.16 1999/05/30 23:14:05 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/pkg.lisp,v 1.17 2001/07/08 16:28:08 pw Exp $")
 ;;;
 ;;; CMUCL 18a: Jan-1998 -- Changing to DEFPACKAGE.
-;;; Note that at this time CMUCL is not in compliance with ANSI
-;;; specified use of feature names :cltl2 :x3j13 :draft-ansi-cl or :ansi-cl
-;;; since all of them are in *features*. So I'm not going to try and be
-;;; clever with hacking around all the various ancient lisp quirks. 
-;;; This file is now CMUCL specific only.
 
 (defpackage "WALKER" (:use :common-lisp)
   (:export "DEFINE-WALKER-TEMPLATE"
-- 
GitLab