diff --git a/code/misc.lisp b/code/misc.lisp index 32b61a8b68263c4126a9f060b9b94ea2027cbd02..335608dabc71eb3c5f6b931310d1a456c9efdde6 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 5617e083d25695accf3e3a21172ac645647427e0..18d092460b994fbdb266f1cf2c0d52ff23f73ae6 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"