mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Small compatibility fixes

Browse source 
- add a new character name alias Formfeed (for Page) -- sometimes used in the wild
- export asdf:registered-system (exported upstream, some systems use it)
This commit is contained in:
Daniel Kochmański 2024-10-07 07:42:22 +02:00
parent fee658a580
commit c235a57ded
2 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
contrib/asdf/asdf.lisp
View file

@ -1,5 +1,5 @@
;;; -*- mode: Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; buffer-read-only: t; -*- ;;; -*- 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: ;;; Feedback, bug reports, and patches are all welcome:
;;; please mail to <asdf-devel@common-lisp.net>. ;;; please mail to <asdf-devel@common-lisp.net>.
@ -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.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.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 ;; "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))) (existing-version (asdf-version)))
(setf *asdf-version* asdf-version) (setf *asdf-version* asdf-version)
(when (and existing-version (not (equal asdf-version existing-version))) (when (and existing-version (not (equal asdf-version existing-version)))
@ -12530,7 +12530,7 @@ Please use UIOP:RUN-PROGRAM instead."
#:clear-source-registry #:clear-source-registry
#:ensure-source-registry #:ensure-source-registry
#:process-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 #:resolve-location
#:asdf-message #:asdf-message
#:*user-cache* #:*user-cache*

5
src/c/iso_latin_names.h
View file

@ -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("Linefeed"), /* 10 */
ecl_def_string_array_elt("Lf"), /* 10 */ ecl_def_string_array_elt("Lf"), /* 10 */
ecl_def_string_array_elt("Escape"), /* 27 */ 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("Ff"), /* 12 */
ecl_def_string_array_elt("Cr"), /* 13 */ ecl_def_string_array_elt("Cr"), /* 13 */
ecl_def_string_array_elt("Sp"), /* 32 */ 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[] = { 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