diff options
author | Douglas Katzman <dougk@google.com> | 2023-01-27 16:05:29 -0500 |
---|---|---|
committer | Douglas Katzman <dougk@google.com> | 2023-01-27 16:05:29 -0500 |
commit | f14cf6277d2e96b840fad3cf02cdbef14ff4c482 (patch) | |
tree | 03db4878f6ae5cfeb9a4a2a150f81d9e2b9b499b | |
parent | 4731c314a6d6ea053f2a7466fb7757bb6272df71 (diff) |
Fix spelling
-rw-r--r-- | src/code/arena.lisp | 2 | ||||
-rw-r--r-- | src/runtime/private-cons.inc | 2 | ||||
-rw-r--r-- | tests/compiler-test-util.lisp | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/src/code/arena.lisp b/src/code/arena.lisp index 79a05bddb..3a81a1369 100644 --- a/src/code/arena.lisp +++ b/src/code/arena.lisp @@ -167,7 +167,7 @@ one or more times, not to exceed MAX-EXTENSIONS times" ;;; backward-compatibility assuming no extension blocks. DON'T USE THIS! (defun arena-base-address (arena) (arena-first-block arena)) -;;; Possible TOOD: if this needs to be efficient, then we would need +;;; Possible TODO: if this needs to be efficient, then we would need ;;; a balanced tree which maps each 'struct memblk' to an arena. ;;; This would be complicated by the fact that extension occurs in C code, ;;; so C would have to maintain the balanced tree structure. diff --git a/src/runtime/private-cons.inc b/src/runtime/private-cons.inc index 7f8680490..272863f67 100644 --- a/src/runtime/private-cons.inc +++ b/src/runtime/private-cons.inc @@ -9,7 +9,7 @@ * With gencgc we steal a GC card having generation = 0 so that it * won't look like a root page. Optionally, malloc / free can be used * for testing a fallback algorithm that works with cheneygc. - * The fallback is succeptible to deadlock with multiple threads + * The fallback is susceptible to deadlock with multiple threads * and therefore not suitable for production use. * (if a foreign call entails malloc, and malloc potentially acquires a * mutex, and the Lisp thread making the foreign call is stopped for GC, diff --git a/tests/compiler-test-util.lisp b/tests/compiler-test-util.lisp index fc06c6d8f..781ecdc68 100644 --- a/tests/compiler-test-util.lisp +++ b/tests/compiler-test-util.lisp @@ -196,7 +196,7 @@ ;;; TODO: this would be better done as LIST-FULL-CALLS so that you could ;;; make an assertion that the list EQUALs something in particular. -;;; Negative assertions (essentially "count = 0") are silently succeptible +;;; Negative assertions (essentially "count = 0") are silently susceptible ;;; to spelling mistakes or a change in how we name nodes. (defun count-full-calls (function-name lambda-expression) (let ((n 0)) |