From d8d27302ca5b2da76172092efbf07d1ee173343a Mon Sep 17 00:00:00 2001 From: Kevin Conner Date: Mon, 10 Apr 2023 23:09:51 -0700 Subject: [PATCH] Fix a warning due to a blank specified as _____ rather than ____ SBCL 2.3.2 says: ; in: LAMBDA () ; (LISP-KOANS.TEST:ASSERT-EQUAL LISP-KOANS.KOANS.BACKQUOTE::_____ ; `(LISP-KOANS.KOANS.BACKQUOTE::WORD ; ,LISP-KOANS.KOANS.BACKQUOTE::WORD ; ,LISP-KOANS.KOANS.BACKQUOTE::WORD ; LISP-KOANS.KOANS.BACKQUOTE::WORD)) ; --> LISP-KOANS.TEST::INTERNAL-ASSERT LAMBDA ; ==> ; #'(LAMBDA () LISP-KOANS.KOANS.BACKQUOTE::_____) ; ; caught WARNING: ; undefined variable: LISP-KOANS.KOANS.BACKQUOTE::_____ ; ; compilation unit finished ; Undefined variable: ; LISP-KOANS.KOANS.BACKQUOTE::_____ ; caught 1 WARNING condition --- koans/backquote.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/koans/backquote.lisp b/koans/backquote.lisp index 1304cae..18e576f 100644 --- a/koans/backquote.lisp +++ b/koans/backquote.lisp @@ -54,7 +54,7 @@ (true-or-false? ____ (equal '(1 3 5) `(1 3 5))) (true-or-false? ____ (equal '(1 3 5) `(1 3 number))) (assert-equal ____ `(1 3 ,number)) - (assert-equal _____ `(word ,word ,word word)))) + (assert-equal ____ `(word ,word ,word word)))) (define-test splicing (let ((axis '(x y z)))