From a91040c9b4d3ecf737a1e705b3b4ddcc13bcafcd Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 31 May 2011 13:18:37 +0000 Subject: [PATCH] Add :CMUCL to *FEATURES*. (Even though I (rtoy) should know better, I still find myself writing :cmucl instead of :cmu in feature tests.) --- code/misc.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/code/misc.lisp b/code/misc.lisp index 3f9869481..3b1a20494 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.43 2010/11/08 13:45:27 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/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." -- GitLab