From 80a6456b5e682cd76ef9fb679c8d543e58327dc3 Mon Sep 17 00:00:00 2001 From: janEbert Date: Tue, 23 Jun 2020 16:17:12 +0200 Subject: [PATCH] Adjust blanks to be the same length This way, the test framework can throw the correct errors for these tests as it only allows blanks of exactly four underscores. --- koans/functions.lisp | 4 ++-- koans/strings.lisp | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/koans/functions.lisp b/koans/functions.lisp index ae8b6a93..cf67ffc7 100644 --- a/koans/functions.lisp +++ b/koans/functions.lisp @@ -122,8 +122,8 @@ (assert-equal ____ (funcall (fourth functions) 2 33)))) (define-test lambda-with-optional-parameters - (assert-equal ___ ((lambda (a &optional (b 100)) (+ a b)) 10 9)) - (assert-equal ___ ((lambda (a &optional (b 100)) (+ a b)) 10))) + (assert-equal ____ ((lambda (a &optional (b 100)) (+ a b)) 10 9)) + (assert-equal ____ ((lambda (a &optional (b 100)) (+ a b)) 10))) (defun make-adder (x) ;; MAKE-ADDER will create a function that closes over the parameter X. diff --git a/koans/strings.lisp b/koans/strings.lisp index 7b4c71ce..dcf8850e 100644 --- a/koans/strings.lisp +++ b/koans/strings.lisp @@ -26,7 +26,7 @@ (let ((string "this is a multi line string")) - (true-or-false? ___ (typep string 'string)))) + (true-or-false? ____ (typep string 'string)))) (define-test escapes-in-strings ;; Quotes and backslashes in Lisp strings must be escaped.