Date: Tuesday, May 31, 2011 @ 06:18:38 Author: rtoy Path: /project/cmucl/cvsroot/src/code
Modified: misc.lisp
Add :CMUCL to *FEATURES*.
(Even though I (rtoy) should know better, I still find myself writing :cmucl instead of :cmu in feature tests.)
-----------+ misc.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-)
Index: src/code/misc.lisp diff -u src/code/misc.lisp:1.43 src/code/misc.lisp:1.44 --- src/code/misc.lisp:1.43 Mon Nov 8 05:45:27 2010 +++ src/code/misc.lisp Tue May 31 06:18:37 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.43 2010/11/08 13:45:27 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.44 2011/05/31 13:18:37 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -160,6 +160,12 @@ #+unicode (sys:register-lisp-runtime-feature :unicode)
+#+cmu +(sys:register-lisp-feature :cmu) + +#+(or cmu cmucl) +(sys:register-lisp-feature :cmucl) + (defun featurep (x) "If X is an atom, see if it is present in *FEATURES*. Also handle arbitrary combinations of atoms using NOT, AND, OR."