CDR: implement cdr-14

Added CDR-1, CDR-5 and CDR-14 to *features*.

https://common-lisp.net/project/cdr/document/14/index.html

CHANGELOG

@@ -48,6 +48,11 @@ arity dependent on platform) is also possible.
 whenever termination should be forced or not.
 
 ** Enhancements
+- Implemented CDRs: CDR-1, CDR-5, CDR-14
+Both CDR-1 and CDR-5 were already implemented, CDR-14 made us to list them
+in =*features*=
+(https://common-lisp.net/project/cdr/document/14/index.html).
+
 - if ECL is build with =--with-cxx= option, =:CXX-CORE= is present in
   =*features*=.
 

src/c/ecl_features.h

@@ -18,6 +18,7 @@ ecl_def_string_array(feature_names,static,const) = {
   ecl_def_string_array_elt(ECL_ARCHITECTURE),
   ecl_def_string_array_elt("FFI"),
   ecl_def_string_array_elt("PREFIXED-API"),
+  ecl_def_string_array_elt("CDR-14"),
 #ifdef ECL_IEEE_FP
   ecl_def_string_array_elt("IEEE-FLOATING-POINT"),
 #endif

src/clos/package.lsp

@@ -12,6 +12,8 @@
 ;;;;
 ;;;;    See file '../Copyright' for full details.
 
+(pushnew :cdr-1 *features*)
+
 (defpackage "CLOS"
   (:use "CL" "EXT")
   (:import-from "SI" "UNBOUND" "GET-SYSPROP" "PUT-SYSPROP" "REM-SYSPROP"

src/clos/walk.lsp

@@ -61,6 +61,9 @@
 ;;; will need to call define-walker-template, they will have to figure that
 ;;; out for themselves.
 ;;; 
+
+(pushnew :walker *features*)
+
 (defpackage "WALKER"
   (:export define-walker-template
            walk-form
@@ -77,7 +80,6 @@
 (in-package "WALKER")
 (declaim (notinline note-lexical-binding walk-bindings-1 walk-let/let*
                     walk-form-internal))
-(push :walker *features*)
 
 
 ;;;

src/lsp/cdr-5.lsp

@@ -11,6 +11,9 @@
 ;;;;
 ;;;;    See file '../Copyright' for full details.
 
+;;; Include CDR-5 in features
+(pushnew :cdr-5 *features*)
+
 (in-package "EXT")
 
 ;;;