Skip to content
Snippets Groups Projects
Commit a91040c9 authored by rtoy's avatar rtoy
Browse files

Add :CMUCL to *FEATURES*.

(Even though I (rtoy) should know better, I still find myself writing
:cmucl instead of :cmu in feature tests.)
parent d00265c5
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -160,6 +160,12 @@
#+unicode #+unicode
(sys:register-lisp-runtime-feature :unicode) (sys:register-lisp-runtime-feature :unicode)
#+cmu
(sys:register-lisp-feature :cmu)
#+(or cmu cmucl)
(sys:register-lisp-feature :cmucl)
(defun featurep (x) (defun featurep (x)
"If X is an atom, see if it is present in *FEATURES*. Also "If X is an atom, see if it is present in *FEATURES*. Also
handle arbitrary combinations of atoms using NOT, AND, OR." handle arbitrary combinations of atoms using NOT, AND, OR."
......
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