Skip to content
Snippets Groups Projects
Commit 8fcc8901 authored by pw's avatar pw
Browse files

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.
parent 43e605d4
No related branches found
No related tags found
No related merge requests found
......@@ -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.")
......
......@@ -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"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment