Hi I am almost finished with the quicklisp importer but I'm stuck with not being able to match what I want with the pattern matcher.
I (still) don't understand the documentation for this matcher and I can't get it to do what I want it seems :/ -- Cheers Swedebugia
scheme@(guile-user) [8]> (let ((l '(asd-record (license-line (text-until-dq
MIT)) (synopsis-line (text-until-dq An async HTTP client)) dependencies
(dependencies (text alexandria)) (dependencies (text babel)) (dependencies
(text fast-io)) (dependencies (text cl-async)) (dependencies (text blackbird))
(dependencies (text quri)) (dependencies (text fast-http)) (dependencies (text
fast-io)) (dependencies (text cl-async-ssl)) (dependencies (text cl-cookie))
(dependencies (text file)))))
(match l ;; <- the input object
(('asd-record (who (_ val)) ...) ;; <- the pattern
who))) ;; <- the expression evaluated upon matching
<unnamed port>:170:23: Throw to key `match-error' with args `("match" "no
matching pattern" (asd-record (license-line (text-until-dq MIT)) (synopsis-line
(text-until-dq An async HTTP client)) dependencies (dependencies (text
alexandria)) (dependencies (text babel)) (dependencies (text fast-io))
(dependencies (text cl-async)) (dependencies (text blackbird)) (dependencies
(text quri)) (dependencies (text fast-http)) (dependencies (text fast-io))
(dependencies (text cl-async-ssl)) (dependencies (text cl-cookie))
(dependencies (text file))))'.
Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue.
scheme@(guile-user) [9]> (let ((l '(asd-record (license-line (text-until-dq
MIT)))))
(match l ;; <- the input object
(('asd-record (who (_ val)) ...) ;; <- the pattern
who))) ;; <- the expression evaluated upon matching
$5 = (license-line)
signature.asc
Description: OpenPGP digital signature
