From 44efb492349025a195a3b402ec580623ad61723f Mon Sep 17 00:00:00 2001 From: riton Date: Sat, 12 Jul 2025 20:02:22 +0300 Subject: defined deftest macro Squashed commit of the following: commit b7779c8d9013d52f4fa94970ac7346ea619eb37c Author: riton Date: Sat Jul 12 15:41:56 2025 +0300 shorthands for some of the test definition tokens commit d37ba8faf43f3a8b54b88bc8df4ab2995935b782 Author: riton Date: Sat Jul 12 15:23:21 2025 +0300 run all tests commit dfc1b2dfaeb50825b7d609ce6b27dc0f8818afb0 Author: riton Date: Sat Jul 12 14:55:44 2025 +0300 deftest macro --- src/token.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/token.lisp') diff --git a/src/token.lisp b/src/token.lisp index f6536ac..8d37734 100644 --- a/src/token.lisp +++ b/src/token.lisp @@ -103,7 +103,7 @@ (defmethod print-object ((token token) stream) (print-unreadable-object (token stream :type t :identity t) - (princ (literal token) stream))) + (format stream "\"~a\"" (literal token)))) (defun as-token (token-type) (multiple-value-bind (str ok) (token->string token-type) -- cgit v1.2.3