From b85c10ba1c53f1b442fea6bde4c2a2f73cfe5d6b Mon Sep 17 00:00:00 2001 From: bd Date: Tue, 8 Apr 2025 01:56:18 -0400 Subject: Simplify lexer-error handling, skeletion parsing functions for types --- t/lex.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 't/lex.lisp') diff --git a/t/lex.lisp b/t/lex.lisp index dfa632a..7a20608 100644 --- a/t/lex.lisp +++ b/t/lex.lisp @@ -76,7 +76,7 @@ (handler-case (progn (read-this "0v0" (lex:read-token)) (fail)) - (lex:invalid-immediate-or-keyword ()))) + (lex:lexer-error ()))) ;; do we want a custom error for this too? (test read-token-immediate-radix @@ -97,4 +97,4 @@ (handler-case (progn (read-this "sub0" (lex:read-token)) (fail)) - (lex:invalid-immediate-or-keyword ()))) + (lex:lexer-error ()))) -- cgit v1.2.3