From c235a57ded2569e33a40a1b51949fe0a099bebc5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Mon, 7 Oct 2024 07:42:22 +0200 Subject: [PATCH] Small compatibility fixes - add a new character name alias Formfeed (for Page) -- sometimes used in the wild - export asdf:registered-system (exported upstream, some systems use it) --- contrib/asdf/asdf.lisp | 6 +++--- src/c/iso_latin_names.h | 5 +++-- 2 files changed, 6 insertions(+), 5 deletions(-) diff --git a/contrib/asdf/asdf.lisp b/contrib/asdf/asdf.lisp index ec83592fd..c18cdcfbf 100644 --- a/contrib/asdf/asdf.lisp +++ b/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*- -;;; This is ASDF 3.1.8.9: Another System Definition Facility. +;;; This is ASDF 3.1.8.10: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to . @@ -7274,7 +7274,7 @@ previously-loaded version of ASDF." ;; "3.4.5.67" would be a development version in the official branch, on top of 3.4.5. ;; "3.4.5.0.8" would be your eighth local modification of official release 3.4.5 ;; "3.4.5.67.8" would be your eighth local modification of development version 3.4.5.67 - (asdf-version "3.1.8.9") + (asdf-version "3.1.8.10") (existing-version (asdf-version))) (setf *asdf-version* asdf-version) (when (and existing-version (not (equal asdf-version existing-version))) @@ -12530,7 +12530,7 @@ Please use UIOP:RUN-PROGRAM instead." #:clear-source-registry #:ensure-source-registry #:process-source-registry - #:system-registered-p #:registered-systems #:already-loaded-systems + #:system-registered-p #:registered-system #:registered-systems #:already-loaded-systems #:resolve-location #:asdf-message #:*user-cache* diff --git a/src/c/iso_latin_names.h b/src/c/iso_latin_names.h index dafd27588..6e2fd3633 100644 --- a/src/c/iso_latin_names.h +++ b/src/c/iso_latin_names.h @@ -154,6 +154,7 @@ ecl_def_string_array(extra_char_names,static,const) = { ecl_def_string_array_elt("Linefeed"), /* 10 */ ecl_def_string_array_elt("Lf"), /* 10 */ ecl_def_string_array_elt("Escape"), /* 27 */ + ecl_def_string_array_elt("Formfeed"), /* 12 */ ecl_def_string_array_elt("Ff"), /* 12 */ ecl_def_string_array_elt("Cr"), /* 13 */ ecl_def_string_array_elt("Sp"), /* 32 */ @@ -162,8 +163,8 @@ ecl_def_string_array(extra_char_names,static,const) = { }; static const unsigned char extra_char_codes[] = { - 0, 7, 8, 9, 10, 10, 27, 12, 13, 32, 127, 127 + 0, 7, 8, 9, 10, 10, 27, 12, 12, 13, 32, 127, 127 }; -#define extra_char_names_size 12 +#define extra_char_names_size 13