diff --git a/CHANGELOG b/CHANGELOG index 10dfa067c..fe8577911 100644 --- a/CHANGELOG +++ b/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*=. diff --git a/src/c/ecl_features.h b/src/c/ecl_features.h index f2808347b..c3090af89 100644 --- a/src/c/ecl_features.h +++ b/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 diff --git a/src/clos/package.lsp b/src/clos/package.lsp index 79c3d0137..34509bc2e 100644 --- a/src/clos/package.lsp +++ b/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" diff --git a/src/clos/walk.lsp b/src/clos/walk.lsp index 2586decc4..ff8f75c6c 100644 --- a/src/clos/walk.lsp +++ b/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*) ;;; diff --git a/src/lsp/cdr-5.lsp b/src/lsp/cdr-5.lsp index 9b0b0c8e3..eee8bdd2e 100644 --- a/src/lsp/cdr-5.lsp +++ b/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") ;;;