Commit 36576dcf authored by Vladimir Sedach's avatar Vladimir Sedach

Fixed formatting and comments

parent f360ce0e
......@@ -22,7 +22,7 @@
(defmacro weak-register-groups-bind (vars regex str &body body)
`(destructuring-bind (&optional ,@vars)
(coerce (nth-value 1 (scan-to-strings ,regex ,str)) 'list)
(coerce (nth-value 1 (scan-to-strings ,regex ,str)) 'list)
(declare (ignorable ,@vars))
(setf ,@(loop for var in vars append
`(,var (when ,var (percent-encoding:decode ,var)))))
......@@ -49,8 +49,7 @@ The standard URI components look like:
%uri-fragment hash
%uri-head http://user@www.foo.com:8080
%uri-tail /dir/abc?bar=baz&xyz=1#hash"
(assert (eq (car template)
'uri-template-to-string))
(assert (eq (car template) 'uri-template-to-string))
(let* ((template (cdr template))
(template-vars (mapcar (lambda (x)
(car (last (second x))))
......
;; Copyright 2007-2012 Vladimir Sedach <vas@oneofus.la>
;;; Copyright 2007-2012 Vladimir Sedach <vas@oneofus.la>
;; SPDX-License-Identifier: GPL-3.0-or-later
;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; This file is part of uri-template2.
......
;; Copyright 2007-2012 Vladimir Sedach <vas@oneofus.la>
;;; Copyright 2007-2012 Vladimir Sedach <vas@oneofus.la>
;; SPDX-License-Identifier: GPL-3.0-or-later
;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; This file is part of uri-template2.
......
;; Copyright 2007-2012 Vladimir Sedach <vas@oneofus.la>
;;; Copyright 2007-2012 Vladimir Sedach <vas@oneofus.la>
;; SPDX-License-Identifier: GPL-3.0-or-later
;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; This file is part of uri-template2.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment