From 22b8cd9c8f26df365f0733029e1cf833ee3e0b6a Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Sat, 22 Jul 2000 00:19:55 +0000 Subject: [PATCH] Changes that bring CLASH up to extended HTTP/1.0 support: Added declarations to silence warnings on unused arguments. --- src/main/readtable.cl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/main/readtable.cl b/src/main/readtable.cl index eac71fe..5e411d2 100644 --- a/src/main/readtable.cl +++ b/src/main/readtable.cl @@ -19,6 +19,7 @@ ;; HTTP-Versions (set-dispatch-macro-character #\# #\H #'(lambda (stream subchar args) + (declare (ignore subchar args)) (let ((data (read stream t nil t))) (check-type data string) (parse-http-version data))) @@ -26,6 +27,7 @@ ;; URL Parsing (set-dispatch-macro-character #\# #\U #'(lambda (stream subchar args) + (declare (ignore subchar args)) (let ((data (read stream t nil t))) (check-type data string) (parse-url-from-string data)))