OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Changes that bring CLASH up to extended HTTP/1.0 support:

Browse Source 
Added declarations to silence warnings on unused arguments.
This commit is contained in:
Pierre R. Mai
2000-07-22 00:19:55 +00:00
parent 22b2bf1abd
commit 22b8cd9c8f
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/main/readtable.cl
View File

@ -19,6 +19,7 @@
;; HTTP-Versions ;; HTTP-Versions
(set-dispatch-macro-character #\# #\H (set-dispatch-macro-character #\# #\H
#'(lambda (stream subchar args) #'(lambda (stream subchar args)
(declare (ignore subchar args))
(let ((data (read stream t nil t))) (let ((data (read stream t nil t)))
(check-type data string) (check-type data string)
(parse-http-version data))) (parse-http-version data)))
@ -26,6 +27,7 @@
;; URL Parsing ;; URL Parsing
(set-dispatch-macro-character #\# #\U (set-dispatch-macro-character #\# #\U
#'(lambda (stream subchar args) #'(lambda (stream subchar args)
(declare (ignore subchar args))
(let ((data (read stream t nil t))) (let ((data (read stream t nil t)))
(check-type data string) (check-type data string)
(parse-url-from-string data))) (parse-url-from-string data)))