[PATCH] Fix typo in *struct-access-fragments-delayed*
Philipp Marek via Sbcl-devel <[email protected]>
| Newsgroups | gmane.lisp.steel-bank.devel |
|---|---|
| Message-ID | <[email protected]> |
I guess the third "s" in "accesss" is just a typo? _______________________________________________ Sbcl-devel mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/sbcl-devel
0001-Fix-typo-in-struct-access-fragments-delayed.patch
(text/x-diff, 3.3 KB)
From d60651674c1b7693b2eda5659e4da76f1e6f6e97 Mon Sep 17 00:00:00 2001 From: Philipp Marek <[email protected]> Date: Thu, 1 Jan 2026 10:11:43 +0100 Subject: [PATCH] Fix typo in *struct-access-fragments-delayed* --- src/code/cold-init.lisp | 2 +- src/code/target-defstruct.lisp | 8 ++++---- src/pcl/braid.lisp | 6 +++--- 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp index b067b9f1f..2d3fa91c9 100644 --- a/src/code/cold-init.lisp +++ b/src/code/cold-init.lisp @@ -129,7 +129,7 @@ (setq sb-vm::*immobile-codeblob-tree* nil sb-vm::*dynspace-codeblob-tree* nil) (setq sb-kernel::*defstruct-hooks* '(sb-kernel::!bootstrap-defstruct-hook) - sb-kernel::*struct-accesss-fragments-delayed* nil) + sb-kernel::*struct-access-fragments-delayed* nil) (let ((stream (!make-cold-stderr-stream))) (setq *error-output* stream *standard-output* stream diff --git a/src/code/target-defstruct.lisp b/src/code/target-defstruct.lisp index c1bd5f956..aa8f18443 100644 --- a/src/code/target-defstruct.lisp +++ b/src/code/target-defstruct.lisp @@ -271,8 +271,8 @@ ;;; arguments to the defstruct hook (which renders the structure definition ;;; into a CLOS class) without having to figure out some means of stashing ;;; functions in the DD or DD for the structure. -(defvar *struct-accesss-fragments* nil) -(define-load-time-global *struct-accesss-fragments-delayed* nil) +(defvar *struct-access-fragments* nil) +(define-load-time-global *struct-access-fragments-delayed* nil) (defun !bootstrap-defstruct-hook (classoid) ;; I hate this, but do whatever it takes... @@ -280,8 +280,8 @@ ;; into the LAYOUT-SLOT-TABLE now. ;; (I think that's where the code fragments end up) (unless (member (classoid-name classoid) '(pathname condition)) ; KLUDGE - (push (cons (classoid-name classoid) *struct-accesss-fragments*) - *struct-accesss-fragments-delayed*))) + (push (cons (classoid-name classoid) *struct-access-fragments*) + *struct-access-fragments-delayed*))) (defun %target-defstruct (dd equalp &rest accessors) (declare (type defstruct-description dd)) diff --git a/src/pcl/braid.lisp b/src/pcl/braid.lisp index 27370ea88..c44232021 100644 --- a/src/pcl/braid.lisp +++ b/src/pcl/braid.lisp @@ -128,12 +128,12 @@ (include (dd-include dd)) (all-slots (dd-slots dd))) (unless extra-data - (acond ((assoc (dd-name dd) sb-kernel::*struct-accesss-fragments-delayed*) + (acond ((assoc (dd-name dd) sb-kernel::*struct-access-fragments-delayed*) (let ((fragments (cdr it))) (dolist (dsd (dd-slots dd)) (push (list dsd (pop fragments) (pop fragments)) extra-data))) - (setq sb-kernel::*struct-accesss-fragments-delayed* - (delete it sb-kernel::*struct-accesss-fragments-delayed*))) + (setq sb-kernel::*struct-access-fragments-delayed* + (delete it sb-kernel::*struct-access-fragments-delayed*))) (t (dolist (dsd (dd-slots dd)) (push (cons dsd (accessor-closures dsd)) extra-data))))) -- 2.51.0