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