[PATCH] packages: Add 'define-package' syntax.

OpenSubmitted by Sarah Morgensen.
Details
5 participants
  • Sarah Morgensen
  • Maxime Devos
  • Tobias Geerinckx-Rice
  • Taylan Kammer
  • zimoun
Owner
unassigned
Severity
wishlist
Merged with
S
S
Sarah Morgensen wrote on 3 Sep 06:06 +0200
(address . guix-patches@gnu.org)
15d01b32313f5f2f291b120597719ae92bd26acd.1630639896.git.iskarian@mgsn.dev
* guix/packages.scm (define-package): New syntax.* .dir-locals.el: Add indent rule for 'define-package'.* etc/indent-code.el (main): Adjust package search regex accordingly.* etc/snippets/text-mode/guix-commit-message-add-cl-package: Likewise.* etc/snippets/text-mode/guix-commit-message-add-package: Likewise.* etc/snippets/text-mode/guix-commit-message-rename-package: Likewise.* etc/snippets/text-mode/guix-commit-message-update-package: Likewise.---Hello Guix,
This patch adds a shorthand for "(define-public name (package ...))":
(define-package my-favorite-package (name "my-favorite-package") ...)
The purpose is primarily to save the horizontal indent, but IMO it looksbetter, and is marginally more clear for newcomers. I think ideally we couldeventually transition to using this syntax as the primary syntax and only use'define-public' when necessary.
There are some downsides... it's one more form to keep track of, and 'let'forms can't easily be used with it.
Since it's a syntax rule, it doesn't cause packages to rebuild (tested). I'vealso tested the indentation rules, indent-code.el, and the snippets.
This probably deserves a documentation addition, but I wasn't sure where toadd it without confusing newcomers. Suggestions welcome!
(If this is accepted, we'll also want to make a few changes toemacs-guix/elisp/guix-devel.el, adding 'define-package' to'guix-devel-keywords' and to 'guix-devel-scheme-indent' with level 1.)
What do you all think?--Sarah
.dir-locals.el | 1 + etc/indent-code.el | 2 +- etc/snippets/text-mode/guix-commit-message-add-cl-package | 2 +- etc/snippets/text-mode/guix-commit-message-add-package | 2 +- etc/snippets/text-mode/guix-commit-message-rename-package | 4 ++-- etc/snippets/text-mode/guix-commit-message-update-package | 2 +- guix/packages.scm | 8 ++++++++ 7 files changed, 15 insertions(+), 6 deletions(-)
Toggle diff (121 lines)diff --git a/.dir-locals.el b/.dir-locals.elindex aaa48ab552..8141cf4fc2 100644--- a/.dir-locals.el+++ b/.dir-locals.el@@ -71,6 +71,7 @@ (eval . (put 'with-writable-file 'scheme-indent-function 2)) (eval . (put 'package 'scheme-indent-function 0))+ (eval . (put 'define-package 'scheme-indent-function 1)) (eval . (put 'package/inherit 'scheme-indent-function 1)) (eval . (put 'origin 'scheme-indent-function 0)) (eval . (put 'build-system 'scheme-indent-function 0))diff --git a/etc/indent-code.el b/etc/indent-code.elindex bdea8ee8bf..b83659f2f9 100755--- a/etc/indent-code.el+++ b/etc/indent-code.el@@ -94,7 +94,7 @@ ;; Indent the definition of PACKAGE-NAME in FILE-NAME. (find-file file-name) (goto-char (point-min))- (if (re-search-forward (concat "^(define\\(\\|-public\\) +"+ (if (re-search-forward (concat "^(define\\(\\|-public\\|-package\\) +" package-name) nil t) (let ((indent-tabs-mode nil))diff --git a/etc/snippets/text-mode/guix-commit-message-add-cl-package b/etc/snippets/text-mode/guix-commit-message-add-cl-packageindex e255736b05..eb0de677e7 100644--- a/etc/snippets/text-mode/guix-commit-message-add-cl-package+++ b/etc/snippets/text-mode/guix-commit-message-add-cl-package@@ -7,7 +7,7 @@ gnu: Add ${1:`(with-temp-buffer (magit-git-wash #'magit-diff-wash-diffs "diff" "--staged") (beginning-of-buffer)- (when (search-forward "+(define-public " nil 'noerror)+ (when (re-search-forward "+(define-\\(public\\|package\\) " nil 'noerror) (replace-regexp-in-string "^sbcl-" "" (thing-at-point 'sexp 'no-properties))))`}.diff --git a/etc/snippets/text-mode/guix-commit-message-add-package b/etc/snippets/text-mode/guix-commit-message-add-packageindex 7cebd4023a..11aeceb129 100644--- a/etc/snippets/text-mode/guix-commit-message-add-package+++ b/etc/snippets/text-mode/guix-commit-message-add-package@@ -7,7 +7,7 @@ gnu: Add ${1:`(with-temp-buffer (magit-git-wash #'magit-diff-wash-diffs "diff" "--staged") (goto-char (point-min))- (when (re-search-forward "\\+(define-public \\(\\S-+\\)" nil 'noerror)+ (when (re-search-forward "\\+(define-\\(?:public\\|package\\) \\(\\S-+\\)" nil 'noerror) (match-string-no-properties 1)))`}. * `(car (magit-staged-files))` ($1): New variable.\ No newline at end of filediff --git a/etc/snippets/text-mode/guix-commit-message-rename-package b/etc/snippets/text-mode/guix-commit-message-rename-packageindex 9695ca1b3d..2315443573 100644--- a/etc/snippets/text-mode/guix-commit-message-rename-package+++ b/etc/snippets/text-mode/guix-commit-message-rename-package@@ -7,12 +7,12 @@ gnu: ${1:`(with-temp-buffer (magit-git-wash #'magit-diff-wash-diffs "diff" "--staged") (beginning-of-buffer)- (when (search-forward "-(define-public " nil 'noerror)+ (when (re-search-forward "-(define-\\(public\\|package\\) " nil 'noerror) (thing-at-point 'sexp 'no-properties)))`}: Rename package to ${2:`(with-temp-buffer (magit-git-wash #'magit-diff-wash-diffs "diff" "--staged") (beginning-of-buffer)- (when (search-forward "+(define-public " nil 'noerror)+ (when (re-search-forward "+(define-\\(public\\|package\\) " nil 'noerror) (thing-at-point 'sexp 'no-properties)))`}. * `(car (magit-staged-files))` ($1): Define in terms ofdiff --git a/etc/snippets/text-mode/guix-commit-message-update-package b/etc/snippets/text-mode/guix-commit-message-update-packageindex f187419aa2..1d39e28b77 100644--- a/etc/snippets/text-mode/guix-commit-message-update-package+++ b/etc/snippets/text-mode/guix-commit-message-update-package@@ -8,7 +8,7 @@ gnu: ${1:`(with-temp-buffer (magit-git-wash #'magit-diff-wash-diffs "diff" "--staged") (goto-char (point-min))- (when (re-search-forward "(define-public \\(\\S-+\\)" nil 'noerror)+ (when (re-search-forward "(define-\\(?:public\\|package\\) \\(\\S-+\\)" nil 'noerror) (match-string-no-properties 1)))`}: Update to ${2:`(with-temp-buffer (magit-git-wash #'magit-diff-wash-diffs "diff" "--staged")diff --git a/guix/packages.scm b/guix/packages.scmindex c825f427d8..ecd0b7e47d 100644--- a/guix/packages.scm+++ b/guix/packages.scm@@ -6,6 +6,7 @@ ;;; Copyright © 2017, 2019, 2020 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2019 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2021 Chris Marusich <cmmarusich@gmail.com>+;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev> ;;; ;;; This file is part of GNU Guix. ;;;@@ -99,6 +100,7 @@ (define-module (guix packages) package-supported-systems package-properties package-location+ define-package hidden-package hidden-package? package-superseded@@ -425,6 +427,12 @@ (define-record-type* <package> package) 16))))) +(define-syntax-rule (define-package name body ...)+ "Equivalent to (define-public name (package body ...))."+ (define-public name+ (package+ body ...)))+ (define-syntax-rule (package/inherit p overrides ...) "Like (package (inherit P) OVERRIDES ...), except that the same transformation is done to the package P's replacement, if any. P must be a bare
base-commit: 95c29d2746943733cbe8df7013854d45bb0df413-- 2.31.1
Z
Z
zimoun wrote on 3 Sep 07:41 +0200
86h7f21aip.fsf@gmail.com
Hi Sarah,
On Thu, 02 Sep 2021 at 21:06, Sarah Morgensen <iskarian@mgsn.dev> wrote:
Toggle quote (9 lines)> (define-package my-favorite-package> (name "my-favorite-package")> ...)>> The purpose is primarily to save the horizontal indent, but IMO it looks> better, and is marginally more clear for newcomers. I think ideally we could> eventually transition to using this syntax as the primary syntax and only use> 'define-public' when necessary.
On one hand, I think it is a good idea; especially for newcomers. Onthe other hand, it will break ’git-blame’, isn’t it?
Therefore, I am not convinced such change is worth for ’gnu/packages/’.Instead it seems worth only for teaching custom packages. Explaining topeople in my labs, they are often confused between ’define’ and’define-public’. But then, there is two “styles” and people could bemore confused.
Well, my feelings are mixed. Thanks for opening the discussion. :-)

Cheers,simon
S
S
Sarah Morgensen wrote on 3 Sep 23:56 +0200
(name . zimoun)(address . zimon.toutoune@gmail.com)(address . 50349@debbugs.gnu.org)
86k0jxxqzv.fsf@mgsn.dev
Hi,
zimoun <zimon.toutoune@gmail.com> writes:
Toggle quote (16 lines)> Hi Sarah,>> On Thu, 02 Sep 2021 at 21:06, Sarah Morgensen <iskarian@mgsn.dev> wrote:>>> (define-package my-favorite-package>> (name "my-favorite-package")>> ...)>>>> The purpose is primarily to save the horizontal indent, but IMO it looks>> better, and is marginally more clear for newcomers. I think ideally we could>> eventually transition to using this syntax as the primary syntax and only use>> 'define-public' when necessary.>> On one hand, I think it is a good idea; especially for newcomers. On> the other hand, it will break ’git-blame’, isn’t it?
Yes, there would be a one-time discontinuity. Reformats like this canbe ignored with the `--ignore-ref' option, or with a file and a configoption:
.git-blame-ignore-revs:
Toggle snippet (4 lines)# Convert 'define-public' forms to 'define-package' forms15d01b32313f5f2f291b120597719ae92bd26acd
.git/config:
Toggle snippet (4 lines)[blame] ignoreRevsFile = .git-blame-ignore-revs
We could include the latter in e.g. a `.gitconfig' file committed to therepo, but in order to use config settings from the file, users wouldhave to first run
git config --local include.path ../.gitconfig
Thankfully, this only has to be done once per clone. If you reallywanted to make sure it got run, I suppose you could add it to a 'make'target.
--Sarah
M
M
Maxime Devos wrote on 4 Sep 10:42 +0200
757b7543b931335c3725264edfbc79c012aa10fc.camel@telenet.be
Sarah Morgensen schreef op do 02-09-2021 om 21:06 [-0700]:
Toggle quote (8 lines)> Hello Guix,> > This patch adds a shorthand for "(define-public name (package ...))":> > (define-package my-favorite-package> (name "my-favorite-package")> ...)
This could be even shorter in the special case that the variable nameand package name are the same (modulo types):
(define-package "my-favorite-package" (version ...) ...)
'datum->syntax' and 'string->symbol' can be used to turn "my-favorite-package"into an identifier.
A 'define-unexported-package' might be required in some places.
Toggle quote (14 lines)> The purpose is primarily to save the horizontal indent, but IMO it looks> better, and is marginally more clear for newcomers. I think ideally we could> eventually transition to using this syntax as the primary syntax and only use> 'define-public' when necessary.> > There are some downsides... it's one more form to keep track of, and 'let'> forms can't easily be used with it.> > Since it's a syntax rule, it doesn't cause packages to rebuild (tested). I've> also tested the indentation rules, indent-code.el, and the snippets.> > This probably deserves a documentation addition, but I wasn't sure where to> add it without confusing newcomers. Suggestions welcome!
‘Defining Packages’ would be a good place I think.
Toggle quote (2 lines)> What do you all think?
This looks nice to me. IIUC, the define-package is intended to be clearerto newcomers, so you might want to ask for feedback on the new syntax onhelp-guix@gnu.org.
Greetings,Maxime.
-----BEGIN PGP SIGNATURE-----
iI0EABYKADUWIQTB8z7iDFKP233XAR9J4+4iGRcl7gUCYTMxWhccbWF4aW1lZGV2b3NAdGVsZW5ldC5iZQAKCRBJ4+4iGRcl7sKYAP9w+XTSzxWZhmUnqm6b2HrJBnkepSydXdNSCWBe9TK8qgD/VHtoAU9jniP90C59rVH8baidLxFnPW7dJ7wctbyXeg4==+pGj-----END PGP SIGNATURE-----

T
T
Tobias Geerinckx-Rice wrote on 4 Sep 12:19 +0200
(no subject)
(name . GNU Debbugs)(address . control@debbugs.gnu.org)
871r64bq0t.fsf@nckx
severity 50349 wishlistreassign 50349 guixmerge 15284 50349
T
T
Tobias Geerinckx-Rice wrote on 4 Sep 12:09 +0200
Re: [bug#50349] [PATCH] packages: Add 'define-package' syntax.
(name . Maxime Devos)(address . maximedevos@telenet.be)
87y28caazy.fsf@nckx
All,
To keep a link with previous ‘define-package’ discussion, I've merged this bug with #15284. It was never resolved IMO and things have changed since 2013 with the label-less input style.
Maxime Devos 写道:
Toggle quote (8 lines)> This could be even shorter in the special case that the variable > name> and package name are the same (modulo types):>> (define-package "my-favorite-package"> (version ...)> ...)
(define-anything STRING ...) is just too weird to ack. Are there any package names that aren't currently valid symbols? Is there a good reason for them?
Kind regards,
T G-R
-----BEGIN PGP SIGNATURE-----
iIMEARYKACsWIQT12iAyS4c9C3o4dnINsP+IT1VteQUCYTNK0Q0cbWVAdG9iaWFzLmdyAAoJEA2w/4hPVW15/+AA/2KDGdPwCf27KyEllAKu87PGffRIUv4hutkxnCW9i5gSAQCuuf5NC9Fxhj/d+lejfiRjfYNNUPJaqrD/2zrR2co2CA===NCTi-----END PGP SIGNATURE-----
T
T
Taylan Kammer wrote on 4 Sep 16:29 +0200
Re: bug#50349: [PATCH] packages: Add 'define-package' syntax.
95c92fc5-1fcf-b347-370e-d1943f22c2c3@gmail.com
On 04.09.2021 12:09, Tobias Geerinckx-Rice via Bug reports for GNU Guix wrote:
Toggle quote (18 lines)> All,> > To keep a link with previous ‘define-package’ discussion, I've merged this bug with #15284.  It was never resolved IMO and things have changed since 2013 with the label-less input style.> > Maxime Devos 写道:>> This could be even shorter in the special case that the variable name>> and package name are the same (modulo types):>>>> (define-package "my-favorite-package">>   (version ...)>>   ...)> > (define-anything STRING ...) is just too weird to ack.  Are there any package names that aren't currently valid symbols?  Is there a good reason for them?> > Kind regards,> > T G-R
To me the most obvious thing to do seems
(define-package foo ...) ;no explicit name needed
to bind the variable 'foo' and use symbol->string for the name of thepackage, with the possibility to override the name like
(define-package foo (name "foobar") ...)
which would bind the variable 'foo' to a package named "foobar".
Here's a syntax-case definition:
(define-syntax define-package (lambda (stx) (syntax-case stx () ((_ <name> (<field> <value> ...) ...) (if (memq 'name (map syntax->datum #'(<field> ...))) #'(define-public <name> (package (<field> <value> ...) ...)) #`(define-public <name> (package (name #,(symbol->string (syntax->datum #'<name>))) (<field> <value> ...) ...)))))))
-- Taylan
T
T
Tobias Geerinckx-Rice wrote on 4 Sep 16:44 +0200
(name . Taylan Kammer)(address . taylan.kammer@gmail.com)
87bl58wfk7.fsf@nckx
Taylan Kammer 写道:
Toggle quote (12 lines)> To me the most obvious thing to do seems>> (define-package foo ...) ;no explicit name needed>> to bind the variable 'foo' and use symbol->string for the name > of the> package, with the possibility to override the name like>> (define-package foo (name "foobar") ...)>> which would bind the variable 'foo' to a package named "foobar".
Right, that's what I meant, and it's how I read bug #15284, and it looks remarkably like the form I use in my personal channels (and I'm sure I'm not the first! :-).
You're much better at the language/implementation side of things than I am, Taylan. Would this negatively affect performance (including ‘guix pull’ compilation)?
Kind regards,
T G-R
-----BEGIN PGP SIGNATURE-----
iIMEARYKACsWIQT12iAyS4c9C3o4dnINsP+IT1VteQUCYTOKOQ0cbWVAdG9iaWFzLmdyAAoJEA2w/4hPVW153NAA/REHwe3zGjottM6pjEg6RnF9/Fb6r7m4Ruv8liXcrkmIAQDOwXDxmTgkvU9XDyiLCd9i4BZPb4Qpq8v40uevQpDaBw===gupr-----END PGP SIGNATURE-----
T
T
Taylan Kammer wrote on 4 Sep 19:23 +0200
(name . Tobias Geerinckx-Rice)(address . me@tobias.gr)
a93161dd-4425-f722-fa43-273ff9561916@gmail.com
On 04.09.2021 16:44, Tobias Geerinckx-Rice wrote:
Toggle quote (20 lines)> Taylan Kammer 写道:>> To me the most obvious thing to do seems>>>>   (define-package foo ...)  ;no explicit name needed>>>> to bind the variable 'foo' and use symbol->string for the name of the>> package, with the possibility to override the name like>>>>   (define-package foo (name "foobar") ...)>>>> which would bind the variable 'foo' to a package named "foobar".> > Right, that's what I meant, and it's how I read bug #15284, and it looks remarkably like the form I use in my personal channels (and I'm sure I'm not the first! :-).> > You're much better at the language/implementation side of things than I am, Taylan.  Would this negatively affect performance (including ‘guix pull’ compilation)?> > Kind regards,> > T G-R
I'm flattered, but don't really know the answer, so I decided to attemptsome sort of benchmark. :-P
test1.scm uses the syntax-case macro, test2.scm just define-public.
I don't actually import the Guix modules, so the (package ...) form isn'tmacro-expanded, regardless of whether it's used directly or results fromexpanding define-package.
This way, the impact of define-package should dominate the time difference.
The results are... interesting. I started out with 256 definitions in thefiles, and the define-package one would take about 4.2s to compile whilethe regular one about 3.9s. There was some jitter in the results thoughafter running it several times so I thought, let's increase the number ofpackages to reduce noise.
With 512 packages, the one using regular define-public takes a wholeminute to compile, whereas the define-package one just ~14 seconds!
So no idea what's going on there, and how the use of this macro in theactual (gnu packages ...) modules would affect performance. :-)
-- Taylan
(define-module (test1)) (define-syntax define-package (lambda (stx) (syntax-case stx () ((_ <name> (<field> <value> ...) ...) (if (memq 'name (map syntax->datum #'(<field> ...))) #'(define-public <name> (package (<field> <value> ...) ...)) #`(define-public <name> (package (name #,(symbol->string (syntax->datum #'<name>))) (<field> <value> ...) ...))))))) (define-package p0 (foo x) (bar y) (baz z)) (define-package p1 (foo x) (bar y) (baz z)) (define-package p2 (foo x) (bar y) (baz z)) (define-package p3 (foo x) (bar y) (baz z)) (define-package p4 (foo x) (bar y) (baz z)) (define-package p5 (foo x) (bar y) (baz z)) (define-package p6 (foo x) (bar y) (baz z)) (define-package p7 (foo x) (bar y) (baz z)) (define-package p8 (foo x) (bar y) (baz z)) (define-package p9 (foo x) (bar y) (baz z)) (define-package p10 (foo x) (bar y) (baz z)) (define-package p11 (foo x) (bar y) (baz z)) (define-package p12 (foo x) (bar y) (baz z)) (define-package p13 (foo x) (bar y) (baz z)) (define-package p14 (foo x) (bar y) (baz z)) (define-package p15 (foo x) (bar y) (baz z)) (define-package p16 (foo x) (bar y) (baz z)) (define-package p17 (foo x) (bar y) (baz z)) (define-package p18 (foo x) (bar y) (baz z)) (define-package p19 (foo x) (bar y) (baz z)) (define-package p20 (foo x) (bar y) (baz z)) (define-package p21 (foo x) (bar y) (baz z)) (define-package p22 (foo x) (bar y) (baz z)) (define-package p23 (foo x) (bar y) (baz z)) (define-package p24 (foo x) (bar y) (baz z)) (define-package p25 (foo x) (bar y) (baz z)) (define-package p26 (foo x) (bar y) (baz z)) (define-package p27 (foo x) (bar y) (baz z)) (define-package p28 (foo x) (bar y) (baz z)) (define-package p29 (foo x) (bar y) (baz z)) (define-package p30 (foo x) (bar y) (baz z)) (define-package p31 (foo x) (bar y) (baz z)) (define-package p32 (foo x) (bar y) (baz z)) (define-package p33 (foo x) (bar y) (baz z)) (define-package p34 (foo x) (bar y) (baz z)) (define-package p35 (foo x) (bar y) (baz z)) (define-package p36 (foo x) (bar y) (baz z)) (define-package p37 (foo x) (bar y) (baz z)) (define-package p38 (foo x) (bar y) (baz z)) (define-package p39 (foo x) (bar y) (baz z)) (define-package p40 (foo x) (bar y) (baz z)) (define-package p41 (foo x) (bar y) (baz z)) (define-package p42 (foo x) (bar y) (baz z)) (define-package p43 (foo x) (bar y) (baz z)) (define-package p44 (foo x) (bar y) (baz z)) (define-package p45 (foo x) (bar y) (baz z)) (define-package p46 (foo x) (bar y) (baz z)) (define-package p47 (foo x) (bar y) (baz z)) (define-package p48 (foo x) (bar y) (baz z)) (define-package p49 (foo x) (bar y) (baz z)) (define-package p50 (foo x) (bar y) (baz z)) (define-package p51 (foo x) (bar y) (baz z)) (define-package p52 (foo x) (bar y) (baz z)) (define-package p53 (foo x) (bar y) (baz z)) (define-package p54 (foo x) (bar y) (baz z)) (define-package p55 (foo x) (bar y) (baz z)) (define-package p56 (foo x) (bar y) (baz z)) (define-package p57 (foo x) (bar y) (baz z)) (define-package p58 (foo x) (bar y) (baz z)) (define-package p59 (foo x) (bar y) (baz z)) (define-package p60 (foo x) (bar y) (baz z)) (define-package p61 (foo x) (bar y) (baz z)) (define-package p62 (foo x) (bar y) (baz z)) (define-package p63 (foo x) (bar y) (baz z)) (define-package p64 (foo x) (bar y) (baz z)) (define-package p65 (foo x) (bar y) (baz z)) (define-package p66 (foo x) (bar y) (baz z)) (define-package p67 (foo x) (bar y) (baz z)) (define-package p68 (foo x) (bar y) (baz z)) (define-package p69 (foo x) (bar y) (baz z)) (define-package p70 (foo x) (bar y) (baz z)) (define-package p71 (foo x) (bar y) (baz z)) (define-package p72 (foo x) (bar y) (baz z)) (define-package p73 (foo x) (bar y) (baz z)) (define-package p74 (foo x) (bar y) (baz z)) (define-package p75 (foo x) (bar y) (baz z)) (define-package p76 (foo x) (bar y) (baz z)) (define-package p77 (foo x) (bar y) (baz z)) (define-package p78 (foo x) (bar y) (baz z)) (define-package p79 (foo x) (bar y) (baz z)) (define-package p80 (foo x) (bar y) (baz z)) (define-package p81 (foo x) (bar y) (baz z)) (define-package p82 (foo x) (bar y) (baz z)) (define-package p83 (foo x) (bar y) (baz z)) (define-package p84 (foo x) (bar y) (baz z)) (define-package p85 (foo x) (bar y) (baz z)) (define-package p86 (foo x) (bar y) (baz z)) (define-package p87 (foo x) (bar y) (baz z)) (define-package p88 (foo x) (bar y) (baz z)) (define-package p89 (foo x) (bar y) (baz z)) (define-package p90 (foo x) (bar y) (baz z)) (define-package p91 (foo x) (bar y) (baz z)) (define-package p92 (foo x) (bar y) (baz z)) (define-package p93 (foo x) (bar y) (baz z)) (define-package p94 (foo x) (bar y) (baz z)) (define-package p95 (foo x) (bar y) (baz z)) (define-package p96 (foo x) (bar y) (baz z)) (define-package p97 (foo x) (bar y) (baz z)) (define-package p98 (foo x) (bar y) (baz z)) (define-package p99 (foo x) (bar y) (baz z)) (define-package p100 (foo x) (bar y) (baz z)) (define-package p101 (foo x) (bar y) (baz z)) (define-package p102 (foo x) (bar y) (baz z)) (define-package p103 (foo x) (bar y) (baz z)) (define-package p104 (foo x) (bar y) (baz z)) (define-package p105 (foo x) (bar y) (baz z)) (define-package p106 (foo x) (bar y) (baz z)) (define-package p107 (foo x) (bar y) (baz z)) (define-package p108 (foo x) (bar y) (baz z)) (define-package p109 (foo x) (bar y) (baz z)) (define-package p110 (foo x) (bar y) (baz z)) (define-package p111 (foo x) (bar y) (baz z)) (define-package p112 (foo x) (bar y) (baz z)) (define-package p113 (foo x) (bar y) (baz z)) (define-package p114 (foo x) (bar y) (baz z)) (define-package p115 (foo x) (bar y) (baz z)) (define-package p116 (foo x) (bar y) (baz z)) (define-package p117 (foo x) (bar y) (baz z)) (define-package p118 (foo x) (bar y) (baz z)) (define-package p119 (foo x) (bar y) (baz z)) (define-package p120 (foo x) (bar y) (baz z)) (define-package p121 (foo x) (bar y) (baz z)) (define-package p122 (foo x) (bar y) (baz z)) (define-package p123 (foo x) (bar y) (baz z)) (define-package p124 (foo x) (bar y) (baz z)) (define-package p125 (foo x) (bar y) (baz z)) (define-package p126 (foo x) (bar y) (baz z)) (define-package p127 (foo x) (bar y) (baz z)) (define-package p128 (foo x) (bar y) (baz z)) (define-package p129 (foo x) (bar y) (baz z)) (define-package p130 (foo x) (bar y) (baz z)) (define-package p131 (foo x) (bar y) (baz z)) (define-package p132 (foo x) (bar y) (baz z)) (define-package p133 (foo x) (bar y) (baz z)) (define-package p134 (foo x) (bar y) (baz z)) (define-package p135 (foo x) (bar y) (baz z)) (define-package p136 (foo x) (bar y) (baz z)) (define-package p137 (foo x) (bar y) (baz z)) (define-package p138 (foo x) (bar y) (baz z)) (define-package p139 (foo x) (bar y) (baz z)) (define-package p140 (foo x) (bar y) (baz z)) (define-package p141 (foo x) (bar y) (baz z)) (define-package p142 (foo x) (bar y) (baz z)) (define-package p143 (foo x) (bar y) (baz z)) (define-package p144 (foo x) (bar y) (baz z)) (define-package p145 (foo x) (bar y) (baz z)) (define-package p146 (foo x) (bar y) (baz z)) (define-package p147 (foo x) (bar y) (baz z)) (define-package p148 (foo x) (bar y) (baz z)) (define-package p149 (foo x) (bar y) (baz z)) (define-package p150 (foo x) (bar y) (baz z)) (define-package p151 (foo x) (bar y) (baz z)) (define-package p152 (foo x) (bar y) (baz z)) (define-package p153 (foo x) (bar y) (baz z)) (define-package p154 (foo x) (bar y) (baz z)) (define-package p155 (foo x) (bar y) (baz z)) (define-package p156 (foo x) (bar y) (baz z)) (define-package p157 (foo x) (bar y) (baz z)) (define-package p158 (foo x) (bar y) (baz z)) (define-package p159 (foo x) (bar y) (baz z)) (define-package p160 (foo x) (bar y) (baz z)) (define-package p161 (foo x) (bar y) (baz z)) (define-package p162 (foo x) (bar y) (baz z)) (define-package p163 (foo x) (bar y) (baz z)) (define-package p164 (foo x) (bar y) (baz z)) (define-package p165 (foo x) (bar y) (baz z)) (define-package p166 (foo x) (bar y) (baz z)) (define-package p167 (foo x) (bar y) (baz z)) (define-package p168 (foo x) (bar y) (baz z)) (define-package p169 (foo x) (bar y) (baz z)) (define-package p170 (foo x) (bar y) (baz z)) (define-package p171 (foo x) (bar y) (baz z)) (define-package p172 (foo x) (bar y) (baz z)) (define-package p173 (foo x) (bar y) (baz z)) (define-package p174 (foo x) (bar y) (baz z)) (define-package p175 (foo x) (bar y) (baz z)) (define-package p176 (foo x) (bar y) (baz z)) (define-package p177 (foo x) (bar y) (baz z)) (define-package p178 (foo x) (bar y) (baz z)) (define-package p179 (foo x) (bar y) (baz z)) (define-package p180 (foo x) (bar y) (baz z)) (define-package p181 (foo x) (bar y) (baz z)) (define-package p182 (foo x) (bar y) (baz z)) (define-package p183 (foo x) (bar y) (baz z)) (define-package p184 (foo x) (bar y) (baz z)) (define-package p185 (foo x) (bar y) (baz z)) (define-package p186 (foo x) (bar y) (baz z)) (define-package p187 (foo x) (bar y) (baz z)) (define-package p188 (foo x) (bar y) (baz z)) (define-package p189 (foo x) (bar y) (baz z)) (define-package p190 (foo x) (bar y) (baz z)) (define-package p191 (foo x) (bar y) (baz z)) (define-package p192 (foo x) (bar y) (baz z)) (define-package p193 (foo x) (bar y) (baz z)) (define-package p194 (foo x) (bar y) (baz z)) (define-package p195 (foo x) (bar y) (baz z)) (define-package p196 (foo x) (bar y) (baz z)) (define-package p197 (foo x) (bar y) (baz z)) (define-package p198 (foo x) (bar y) (baz z)) (define-package p199 (foo x) (bar y) (baz z)) (define-package p200 (foo x) (bar y) (baz z)) (define-package p201 (foo x) (bar y) (baz z)) (define-package p202 (foo x) (bar y) (baz z)) (define-package p203 (foo x) (bar y) (baz z)) (define-package p204 (foo x) (bar y) (baz z)) (define-package p205 (foo x) (bar y) (baz z)) (define-package p206 (foo x) (bar y) (baz z)) (define-package p207 (foo x) (bar y) (baz z)) (define-package p208 (foo x) (bar y) (baz z)) (define-package p209 (foo x) (bar y) (baz z)) (define-package p210 (foo x) (bar y) (baz z)) (define-package p211 (foo x) (bar y) (baz z)) (define-package p212 (foo x) (bar y) (baz z)) (define-package p213 (foo x) (bar y) (baz z)) (define-package p214 (foo x) (bar y) (baz z)) (define-package p215 (foo x) (bar y) (baz z)) (define-package p216 (foo x) (bar y) (baz z)) (define-package p217 (foo x) (bar y) (baz z)) (define-package p218 (foo x) (bar y) (baz z)) (define-package p219 (foo x) (bar y) (baz z)) (define-package p220 (foo x) (bar y) (baz z)) (define-package p221 (foo x) (bar y) (baz z)) (define-package p222 (foo x) (bar y) (baz z)) (define-package p223 (foo x) (bar y) (baz z)) (define-package p224 (foo x) (bar y) (baz z)) (define-package p225 (foo x) (bar y) (baz z)) (define-package p226 (foo x) (bar y) (baz z)) (define-package p227 (foo x) (bar y) (baz z)) (define-package p228 (foo x) (bar y) (baz z)) (define-package p229 (foo x) (bar y) (baz z)) (define-package p230 (foo x) (bar y) (baz z)) (define-package p231 (foo x) (bar y) (baz z)) (define-package p232 (foo x) (bar y) (baz z)) (define-package p233 (foo x) (bar y) (baz z)) (define-package p234 (foo x) (bar y) (baz z)) (define-package p235 (foo x) (bar y) (baz z)) (define-package p236 (foo x) (bar y) (baz z)) (define-package p237 (foo x) (bar y) (baz z)) (define-package p238 (foo x) (bar y) (baz z)) (define-package p239 (foo x) (bar y) (baz z)) (define-package p240 (foo x) (bar y) (baz z)) (define-package p241 (foo x) (bar y) (baz z)) (define-package p242 (foo x) (bar y) (baz z)) (define-package p243 (foo x) (bar y) (baz z)) (define-package p244 (foo x) (bar y) (baz z)) (define-package p245 (foo x) (bar y) (baz z)) (define-package p246 (foo x) (bar y) (baz z)) (define-package p247 (foo x) (bar y) (baz z)) (define-package p248 (foo x) (bar y) (baz z)) (define-package p249 (foo x) (bar y) (baz z)) (define-package p250 (foo x) (bar y) (baz z)) (define-package p251 (foo x) (bar y) (baz z)) (define-package p252 (foo x) (bar y) (baz z)) (define-package p253 (foo x) (bar y) (baz z)) (define-package p254 (foo x) (bar y) (baz z)) (define-package p255 (foo x) (bar y) (baz z)) (define-package r0 (foo x) (bar y) (baz z)) (define-package r1 (foo x) (bar y) (baz z)) (define-package r2 (foo x) (bar y) (baz z)) (define-package r3 (foo x) (bar y) (baz z)) (define-package r4 (foo x) (bar y) (baz z)) (define-package r5 (foo x) (bar y) (baz z)) (define-package r6 (foo x) (bar y) (baz z)) (define-package r7 (foo x) (bar y) (baz z)) (define-package r8 (foo x) (bar y) (baz z)) (define-package r9 (foo x) (bar y) (baz z)) (define-package r10 (foo x) (bar y) (baz z)) (define-package r11 (foo x) (bar y) (baz z)) (define-package r12 (foo x) (bar y) (baz z)) (define-package r13 (foo x) (bar y) (baz z)) (define-package r14 (foo x) (bar y) (baz z)) (define-package r15 (foo x) (bar y) (baz z)) (define-package r16 (foo x) (bar y) (baz z)) (define-package r17 (foo x) (bar y) (baz z)) (define-package r18 (foo x) (bar y) (baz z)) (define-package r19 (foo x) (bar y) (baz z)) (define-package r20 (foo x) (bar y) (baz z)) (define-package r21 (foo x) (bar y) (baz z)) (define-package r22 (foo x) (bar y) (baz z)) (define-package r23 (foo x) (bar y) (baz z)) (define-package r24 (foo x) (bar y) (baz z)) (define-package r25 (foo x) (bar y) (baz z)) (define-package r26 (foo x) (bar y) (baz z)) (define-package r27 (foo x) (bar y) (baz z)) (define-package r28 (foo x) (bar y) (baz z)) (define-package r29 (foo x) (bar y) (baz z)) (define-package r30 (foo x) (bar y) (baz z)) (define-package r31 (foo x) (bar y) (baz z)) (define-package r32 (foo x) (bar y) (baz z)) (define-package r33 (foo x) (bar y) (baz z)) (define-package r34 (foo x) (bar y) (baz z)) (define-package r35 (foo x) (bar y) (baz z)) (define-package r36 (foo x) (bar y) (baz z)) (define-package r37 (foo x) (bar y) (baz z)) (define-package r38 (foo x) (bar y) (baz z)) (define-package r39 (foo x) (bar y) (baz z)) (define-package r40 (foo x) (bar y) (baz z)) (define-package r41 (foo x) (bar y) (baz z)) (define-package r42 (foo x) (bar y) (baz z)) (define-package r43 (foo x) (bar y) (baz z)) (define-package r44 (foo x) (bar y) (baz z)) (define-package r45 (foo x) (bar y) (baz z)) (define-package r46 (foo x) (bar y) (baz z)) (define-package r47 (foo x) (bar y) (baz z)) (define-package r48 (foo x) (bar y) (baz z)) (define-package r49 (foo x) (bar y) (baz z)) (define-package r50 (foo x) (bar y) (baz z)) (define-package r51 (foo x) (bar y) (baz z)) (define-package r52 (foo x) (bar y) (baz z)) (define-package r53 (foo x) (bar y) (baz z)) (define-package r54 (foo x) (bar y) (baz z)) (define-package r55 (foo x) (bar y) (baz z)) (define-package r56 (foo x) (bar y) (baz z)) (define-package r57 (foo x) (bar y) (baz z)) (define-package r58 (foo x) (bar y) (baz z)) (define-package r59 (foo x) (bar y) (baz z)) (define-package r60 (foo x) (bar y) (baz z)) (define-package r61 (foo x) (bar y) (baz z)) (define-package r62 (foo x) (bar y) (baz z)) (define-package r63 (foo x) (bar y) (baz z)) (define-package r64 (foo x) (bar y) (baz z)) (define-package r65 (foo x) (bar y) (baz z)) (define-package r66 (foo x) (bar y) (baz z)) (define-package r67 (foo x) (bar y) (baz z)) (define-package r68 (foo x) (bar y) (baz z)) (define-package r69 (foo x) (bar y) (baz z)) (define-package r70 (foo x) (bar y) (baz z)) (define-package r71 (foo x) (bar y) (baz z)) (define-package r72 (foo x) (bar y) (baz z)) (define-package r73 (foo x) (bar y) (baz z)) (define-package r74 (foo x) (bar y) (baz z)) (define-package r75 (foo x) (bar y) (baz z)) (define-package r76 (foo x) (bar y) (baz z)) (define-package r77 (foo x) (bar y) (baz z)) (define-package r78 (foo x) (bar y) (baz z)) (define-package r79 (foo x) (bar y) (baz z)) (define-package r80 (foo x) (bar y) (baz z)) (define-package r81 (foo x) (bar y) (baz z)) (define-package r82 (foo x) (bar y) (baz z)) (define-package r83 (foo x) (bar y) (baz z)) (define-package r84 (foo x) (bar y) (baz z)) (define-package r85 (foo x) (bar y) (baz z)) (define-package r86 (foo x) (bar y) (baz z)) (define-package r87 (foo x) (bar y) (baz z)) (define-package r88 (foo x) (bar y) (baz z)) (define-package r89 (foo x) (bar y) (baz z)) (define-package r90 (foo x) (bar y) (baz z)) (define-package r91 (foo x) (bar y) (baz z)) (define-package r92 (foo x) (bar y) (baz z)) (define-package r93 (foo x) (bar y) (baz z)) (define-package r94 (foo x) (bar y) (baz z)) (define-package r95 (foo x) (bar y) (baz z)) (define-package r96 (foo x) (bar y) (baz z)) (define-package r97 (foo x) (bar y) (baz z)) (define-package r98 (foo x) (bar y) (baz z)) (define-package r99 (foo x) (bar y) (baz z)) (define-package r100 (foo x) (bar y) (baz z)) (define-package r101 (foo x) (bar y) (baz z)) (define-package r102 (foo x) (bar y) (baz z)) (define-package r103 (foo x) (bar y) (baz z)) (define-package r104 (foo x) (bar y) (baz z)) (define-package r105 (foo x) (bar y) (baz z)) (define-package r106 (foo x) (bar y) (baz z)) (define-package r107 (foo x) (bar y) (baz z)) (define-package r108 (foo x) (bar y) (baz z)) (define-package r109 (foo x) (bar y) (baz z)) (define-package r110 (foo x) (bar y) (baz z)) (define-package r111 (foo x) (bar y) (baz z)) (define-package r112 (foo x) (bar y) (baz z)) (define-package r113 (foo x) (bar y) (baz z)) (define-package r114 (foo x) (bar y) (baz z)) (define-package r115 (foo x) (bar y) (baz z)) (define-package r116 (foo x) (bar y) (baz z)) (define-package r117 (foo x) (bar y) (baz z)) (define-package r118 (foo x) (bar y) (baz z)) (define-package r119 (foo x) (bar y) (baz z)) (define-package r120 (foo x) (bar y) (baz z)) (define-package r121 (foo x) (bar y) (baz z)) (define-package r122 (foo x) (bar y) (baz z)) (define-package r123 (foo x) (bar y) (baz z)) (define-package r124 (foo x) (bar y) (baz z)) (define-package r125 (foo x) (bar y) (baz z)) (define-package r126 (foo x) (bar y) (baz z)) (define-package r127 (foo x) (bar y) (baz z)) (define-package r128 (foo x) (bar y) (baz z)) (define-package r129 (foo x) (bar y) (baz z)) (define-package r130 (foo x) (bar y) (baz z)) (define-package r131 (foo x) (bar y) (baz z)) (define-package r132 (foo x) (bar y) (baz z)) (define-package r133 (foo x) (bar y) (baz z)) (define-package r134 (foo x) (bar y) (baz z)) (define-package r135 (foo x) (bar y) (baz z)) (define-package r136 (foo x) (bar y) (baz z)) (define-package r137 (foo x) (bar y) (baz z)) (define-package r138 (foo x) (bar y) (baz z)) (define-package r139 (foo x) (bar y) (baz z)) (define-package r140 (foo x) (bar y) (baz z)) (define-package r141 (foo x) (bar y) (baz z)) (define-package r142 (foo x) (bar y) (baz z)) (define-package r143 (foo x) (bar y) (baz z)) (define-package r144 (foo x) (bar y) (baz z)) (define-package r145 (foo x) (bar y) (baz z)) (define-package r146 (foo x) (bar y) (baz z)) (define-package r147 (foo x) (bar y) (baz z)) (define-package r148 (foo x) (bar y) (baz z)) (define-package r149 (foo x) (bar y) (baz z)) (define-package r150 (foo x) (bar y) (baz z)) (define-package r151 (foo x) (bar y) (baz z)) (define-package r152 (foo x) (bar y) (baz z)) (define-package r153 (foo x) (bar y) (baz z)) (define-package r154 (foo x) (bar y) (baz z)) (define-package r155 (foo x) (bar y) (baz z)) (define-package r156 (foo x) (bar y) (baz z)) (define-package r157 (foo x) (bar y) (baz z)) (define-package r158 (foo x) (bar y) (baz z)) (define-package r159 (foo x) (bar y) (baz z)) (define-package r160 (foo x) (bar y) (baz z)) (define-package r161 (foo x) (bar y) (baz z)) (define-package r162 (foo x) (bar y) (baz z)) (define-package r163 (foo x) (bar y) (baz z)) (define-package r164 (foo x) (bar y) (baz z)) (define-package r165 (foo x) (bar y) (baz z)) (define-package r166 (foo x) (bar y) (baz z)) (define-package r167 (foo x) (bar y) (baz z)) (define-package r168 (foo x) (bar y) (baz z)) (define-package r169 (foo x) (bar y) (baz z)) (define-package r170 (foo x) (bar y) (baz z)) (define-package r171 (foo x) (bar y) (baz z)) (define-package r172 (foo x) (bar y) (baz z)) (define-package r173 (foo x) (bar y) (baz z)) (define-package r174 (foo x) (bar y) (baz z)) (define-package r175 (foo x) (bar y) (baz z)) (define-package r176 (foo x) (bar y) (baz z)) (define-package r177 (foo x) (bar y) (baz z)) (define-package r178 (foo x) (bar y) (baz z)) (define-package r179 (foo x) (bar y) (baz z)) (define-package r180 (foo x) (bar y) (baz z)) (define-package r181 (foo x) (bar y) (baz z)) (define-package r182 (foo x) (bar y) (baz z)) (define-package r183 (foo x) (bar y) (baz z)) (define-package r184 (foo x) (bar y) (baz z)) (define-package r185 (foo x) (bar y) (baz z)) (define-package r186 (foo x) (bar y) (baz z)) (define-package r187 (foo x) (bar y) (baz z)) (define-package r188 (foo x) (bar y) (baz z)) (define-package r189 (foo x) (bar y) (baz z)) (define-package r190 (foo x) (bar y) (baz z)) (define-package r191 (foo x) (bar y) (baz z)) (define-package r192 (foo x) (bar y) (baz z)) (define-package r193 (foo x) (bar y) (baz z)) (define-package r194 (foo x) (bar y) (baz z)) (define-package r195 (foo x) (bar y) (baz z)) (define-package r196 (foo x) (bar y) (baz z)) (define-package r197 (foo x) (bar y) (baz z)) (define-package r198 (foo x) (bar y) (baz z)) (define-package r199 (foo x) (bar y) (baz z)) (define-package r200 (foo x) (bar y) (baz z)) (define-package r201 (foo x) (bar y) (baz z)) (define-package r202 (foo x) (bar y) (baz z)) (define-package r203 (foo x) (bar y) (baz z)) (define-package r204 (foo x) (bar y) (baz z)) (define-package r205 (foo x) (bar y) (baz z)) (define-package r206 (foo x) (bar y) (baz z)) (define-package r207 (foo x) (bar y) (baz z)) (define-package r208 (foo x) (bar y) (baz z)) (define-package r209 (foo x) (bar y) (baz z)) (define-package r210 (foo x) (bar y) (baz z)) (define-package r211 (foo x) (bar y) (baz z)) (define-package r212 (foo x) (bar y) (baz z)) (define-package r213 (foo x) (bar y) (baz z)) (define-package r214 (foo x) (bar y) (baz z)) (define-package r215 (foo x) (bar y) (baz z)) (define-package r216 (foo x) (bar y) (baz z)) (define-package r217 (foo x) (bar y) (baz z)) (define-package r218 (foo x) (bar y) (baz z)) (define-package r219 (foo x) (bar y) (baz z)) (define-package r220 (foo x) (bar y) (baz z)) (define-package r221 (foo x) (bar y) (baz z)) (define-package r222 (foo x) (bar y) (baz z)) (define-package r223 (foo x) (bar y) (baz z)) (define-package r224 (foo x) (bar y) (baz z)) (define-package r225 (foo x) (bar y) (baz z)) (define-package r226 (foo x) (bar y) (baz z)) (define-package r227 (foo x) (bar y) (baz z)) (define-package r228 (foo x) (bar y) (baz z)) (define-package r229 (foo x) (bar y) (baz z)) (define-package r230 (foo x) (bar y) (baz z)) (define-package r231 (foo x) (bar y) (baz z)) (define-package r232 (foo x) (bar y) (baz z)) (define-package r233 (foo x) (bar y) (baz z)) (define-package r234 (foo x) (bar y) (baz z)) (define-package r235 (foo x) (bar y) (baz z)) (define-package r236 (foo x) (bar y) (baz z)) (define-package r237 (foo x) (bar y) (baz z)) (define-package r238 (foo x) (bar y) (baz z)) (define-package r239 (foo x) (bar y) (baz z)) (define-package r240 (foo x) (bar y) (baz z)) (define-package r241 (foo x) (bar y) (baz z)) (define-package r242 (foo x) (bar y) (baz z)) (define-package r243 (foo x) (bar y) (baz z)) (define-package r244 (foo x) (bar y) (baz z)) (define-package r245 (foo x) (bar y) (baz z)) (define-package r246 (foo x) (bar y) (baz z)) (define-package r247 (foo x) (bar y) (baz z)) (define-package r248 (foo x) (bar y) (baz z)) (define-package r249 (foo x) (bar y) (baz z)) (define-package r250 (foo x) (bar y) (baz z)) (define-package r251 (foo x) (bar y) (baz z)) (define-package r252 (foo x) (bar y) (baz z)) (define-package r253 (foo x) (bar y) (baz z)) (define-package r254 (foo x) (bar y) (baz z)) (define-package r255 (foo x) (bar y) (baz z))
(define-module (test2)) (define-public p0 (package (name "p0") (foo x) (bar y) (baz z))) (define-public p1 (package (name "p1") (foo x) (bar y) (baz z))) (define-public p2 (package (name "p2") (foo x) (bar y) (baz z))) (define-public p3 (package (name "p3") (foo x) (bar y) (baz z))) (define-public p4 (package (name "p4") (foo x) (bar y) (baz z))) (define-public p5 (package (name "p5") (foo x) (bar y) (baz z))) (define-public p6 (package (name "p6") (foo x) (bar y) (baz z))) (define-public p7 (package (name "p7") (foo x) (bar y) (baz z))) (define-public p8 (package (name "p8") (foo x) (bar y) (baz z))) (define-public p9 (package (name "p9") (foo x) (bar y) (baz z))) (define-public p10 (package (name "p10") (foo x) (bar y) (baz z))) (define-public p11 (package (name "p11") (foo x) (bar y) (baz z))) (define-public p12 (package (name "p12") (foo x) (bar y) (baz z))) (define-public p13 (package (name "p13") (foo x) (bar y) (baz z))) (define-public p14 (package (name "p14") (foo x) (bar y) (baz z))) (define-public p15 (package (name "p15") (foo x) (bar y) (baz z))) (define-public p16 (package (name "p16") (foo x) (bar y) (baz z))) (define-public p17 (package (name "p17") (foo x) (bar y) (baz z))) (define-public p18 (package (name "p18") (foo x) (bar y) (baz z))) (define-public p19 (package (name "p19") (foo x) (bar y) (baz z))) (define-public p20 (package (name "p20") (foo x) (bar y) (baz z))) (define-public p21 (package (name "p21") (foo x) (bar y) (baz z))) (define-public p22 (package (name "p22") (foo x) (bar y) (baz z))) (define-public p23 (package (name "p23") (foo x) (bar y) (baz z))) (define-public p24 (package (name "p24") (foo x) (bar y) (baz z))) (define-public p25 (package (name "p25") (foo x) (bar y) (baz z))) (define-public p26 (package (name "p26") (foo x) (bar y) (baz z))) (define-public p27 (package (name "p27") (foo x) (bar y) (baz z))) (define-public p28 (package (name "p28") (foo x) (bar y) (baz z))) (define-public p29 (package (name "p29") (foo x) (bar y) (baz z))) (define-public p30 (package (name "p30") (foo x) (bar y) (baz z))) (define-public p31 (package (name "p31") (foo x) (bar y) (baz z))) (define-public p32 (package (name "p32") (foo x) (bar y) (baz z))) (define-public p33 (package (name "p33") (foo x) (bar y) (baz z))) (define-public p34 (package (name "p34") (foo x) (bar y) (baz z))) (define-public p35 (package (name "p35") (foo x) (bar y) (baz z))) (define-public p36 (package (name "p36") (foo x) (bar y) (baz z))) (define-public p37 (package (name "p37") (foo x) (bar y) (baz z))) (define-public p38 (package (name "p38") (foo x) (bar y) (baz z))) (define-public p39 (package (name "p39") (foo x) (bar y) (baz z))) (define-public p40 (package (name "p40") (foo x) (bar y) (baz z))) (define-public p41 (package (name "p41") (foo x) (bar y) (baz z))) (define-public p42 (package (name "p42") (foo x) (bar y) (baz z))) (define-public p43 (package (name "p43") (foo x) (bar y) (baz z))) (define-public p44 (package (name "p44") (foo x) (bar y) (baz z))) (define-public p45 (package (name "p45") (foo x) (bar y) (baz z))) (define-public p46 (package (name "p46") (foo x) (bar y) (baz z))) (define-public p47 (package (name "p47") (foo x) (bar y) (baz z))) (define-public p48 (package (name "p48") (foo x) (bar y) (baz z))) (define-public p49 (package (name "p49") (foo x) (bar y) (baz z))) (define-public p50 (package (name "p50") (foo x) (bar y) (baz z))) (define-public p51 (package (name "p51") (foo x) (bar y) (baz z))) (define-public p52 (package (name "p52") (foo x) (bar y) (baz z))) (define-public p53 (package (name "p53") (foo x) (bar y) (baz z))) (define-public p54 (package (name "p54") (foo x) (bar y) (baz z))) (define-public p55 (package (name "p55") (foo x) (bar y) (baz z))) (define-public p56 (package (name "p56") (foo x) (bar y) (baz z))) (define-public p57 (package (name "p57") (foo x) (bar y) (baz z))) (define-public p58 (package (name "p58") (foo x) (bar y) (baz z))) (define-public p59 (package (name "p59") (foo x) (bar y) (baz z))) (define-public p60 (package (name "p60") (foo x) (bar y) (baz z))) (define-public p61 (package (name "p61") (foo x) (bar y) (baz z))) (define-public p62 (package (name "p62") (foo x) (bar y) (baz z))) (define-public p63 (package (name "p63") (foo x) (bar y) (baz z))) (define-public p64 (package (name "p64") (foo x) (bar y) (baz z))) (define-public p65 (package (name "p65") (foo x) (bar y) (baz z))) (define-public p66 (package (name "p66") (foo x) (bar y) (baz z))) (define-public p67 (package (name "p67") (foo x) (bar y) (baz z))) (define-public p68 (package (name "p68") (foo x) (bar y) (baz z))) (define-public p69 (package (name "p69") (foo x) (bar y) (baz z))) (define-public p70 (package (name "p70") (foo x) (bar y) (baz z))) (define-public p71 (package (name "p71") (foo x) (bar y) (baz z))) (define-public p72 (package (name "p72") (foo x) (bar y) (baz z))) (define-public p73 (package (name "p73") (foo x) (bar y) (baz z))) (define-public p74 (package (name "p74") (foo x) (bar y) (baz z))) (define-public p75 (package (name "p75") (foo x) (bar y) (baz z))) (define-public p76 (package (name "p76") (foo x) (bar y) (baz z))) (define-public p77 (package (name "p77") (foo x) (bar y) (baz z))) (define-public p78 (package (name "p78") (foo x) (bar y) (baz z))) (define-public p79 (package (name "p79") (foo x) (bar y) (baz z))) (define-public p80 (package (name "p80") (foo x) (bar y) (baz z))) (define-public p81 (package (name "p81") (foo x) (bar y) (baz z))) (define-public p82 (package (name "p82") (foo x) (bar y) (baz z))) (define-public p83 (package (name "p83") (foo x) (bar y) (baz z))) (define-public p84 (package (name "p84") (foo x) (bar y) (baz z))) (define-public p85 (package (name "p85") (foo x) (bar y) (baz z))) (define-public p86 (package (name "p86") (foo x) (bar y) (baz z))) (define-public p87 (package (name "p87") (foo x) (bar y) (baz z))) (define-public p88 (package (name "p88") (foo x) (bar y) (baz z))) (define-public p89 (package (name "p89") (foo x) (bar y) (baz z))) (define-public p90 (package (name "p90") (foo x) (bar y) (baz z))) (define-public p91 (package (name "p91") (foo x) (bar y) (baz z))) (define-public p92 (package (name "p92") (foo x) (bar y) (baz z))) (define-public p93 (package (name "p93") (foo x) (bar y) (baz z))) (define-public p94 (package (name "p94") (foo x) (bar y) (baz z))) (define-public p95 (package (name "p95") (foo x) (bar y) (baz z))) (define-public p96 (package (name "p96") (foo x) (bar y) (baz z))) (define-public p97 (package (name "p97") (foo x) (bar y) (baz z))) (define-public p98 (package (name "p98") (foo x) (bar y) (baz z))) (define-public p99 (package (name "p99") (foo x) (bar y) (baz z))) (define-public p100 (package (name "p100") (foo x) (bar y) (baz z))) (define-public p101 (package (name "p101") (foo x) (bar y) (baz z))) (define-public p102 (package (name "p102") (foo x) (bar y) (baz z))) (define-public p103 (package (name "p103") (foo x) (bar y) (baz z))) (define-public p104 (package (name "p104") (foo x) (bar y) (baz z))) (define-public p105 (package (name "p105") (foo x) (bar y) (baz z))) (define-public p106 (package (name "p106") (foo x) (bar y) (baz z))) (define-public p107 (package (name "p107") (foo x) (bar y) (baz z))) (define-public p108 (package (name "p108") (foo x) (bar y) (baz z))) (define-public p109 (package (name "p109") (foo x) (bar y) (baz z))) (define-public p110 (package (name "p110") (foo x) (bar y) (baz z))) (define-public p111 (package (name "p111") (foo x) (bar y) (baz z))) (define-public p112 (package (name "p112") (foo x) (bar y) (baz z))) (define-public p113 (package (name "p113") (foo x) (bar y) (baz z))) (define-public p114 (package (name "p114") (foo x) (bar y) (baz z))) (define-public p115 (package (name "p115") (foo x) (bar y) (baz z))) (define-public p116 (package (name "p116") (foo x) (bar y) (baz z))) (define-public p117 (package (name "p117") (foo x) (bar y) (baz z))) (define-public p118 (package (name "p118") (foo x) (bar y) (baz z))) (define-public p119 (package (name "p119") (foo x) (bar y) (baz z))) (define-public p120 (package (name "p120") (foo x) (bar y) (baz z))) (define-public p121 (package (name "p121") (foo x) (bar y) (baz z))) (define-public p122 (package (name "p122") (foo x) (bar y) (baz z))) (define-public p123 (package (name "p123") (foo x) (bar y) (baz z))) (define-public p124 (package (name "p124") (foo x) (bar y) (baz z))) (define-public p125 (package (name "p125") (foo x) (bar y) (baz z))) (define-public p126 (package (name "p126") (foo x) (bar y) (baz z))) (define-public p127 (package (name "p127") (foo x) (bar y) (baz z))) (define-public p128 (package (name "p128") (foo x) (bar y) (baz z))) (define-public p129 (package (name "p129") (foo x) (bar y) (baz z))) (define-public p130 (package (name "p130") (foo x) (bar y) (baz z))) (define-public p131 (package (name "p131") (foo x) (bar y) (baz z))) (define-public p132 (package (name "p132") (foo x) (bar y) (baz z))) (define-public p133 (package (name "p133") (foo x) (bar y) (baz z))) (define-public p134 (package (name "p134") (foo x) (bar y) (baz z))) (define-public p135 (package (name "p135") (foo x) (bar y) (baz z))) (define-public p136 (package (name "p136") (foo x) (bar y) (baz z))) (define-public p137 (package (name "p137") (foo x) (bar y) (baz z))) (define-public p138 (package (name "p138") (foo x) (bar y) (baz z))) (define-public p139 (package (name "p139") (foo x) (bar y) (baz z))) (define-public p140 (package (name "p140") (foo x) (bar y) (baz z))) (define-public p141 (package (name "p141") (foo x) (bar y) (baz z))) (define-public p142 (package (name "p142") (foo x) (bar y) (baz z))) (define-public p143 (package (name "p143") (foo x) (bar y) (baz z))) (define-public p144 (package (name "p144") (foo x) (bar y) (baz z))) (define-public p145 (package (name "p145") (foo x) (bar y) (baz z))) (define-public p146 (package (name "p146") (foo x) (bar y) (baz z))) (define-public p147 (package (name "p147") (foo x) (bar y) (baz z))) (define-public p148 (package (name "p148") (foo x) (bar y) (baz z))) (define-public p149 (package (name "p149") (foo x) (bar y) (baz z))) (define-public p150 (package (name "p150") (foo x) (bar y) (baz z))) (define-public p151 (package (name "p151") (foo x) (bar y) (baz z))) (define-public p152 (package (name "p152") (foo x) (bar y) (baz z))) (define-public p153 (package (name "p153") (foo x) (bar y) (baz z))) (define-public p154 (package (name "p154") (foo x) (bar y) (baz z))) (define-public p155 (package (name "p155") (foo x) (bar y) (baz z))) (define-public p156 (package (name "p156") (foo x) (bar y) (baz z))) (define-public p157 (package (name "p157") (foo x) (bar y) (baz z))) (define-public p158 (package (name "p158") (foo x) (bar y) (baz z))) (define-public p159 (package (name "p159") (foo x) (bar y) (baz z))) (define-public p160 (package (name "p160") (foo x) (bar y) (baz z))) (define-public p161 (package (name "p161") (foo x) (bar y) (baz z))) (define-public p162 (package (name "p162") (foo x) (bar y) (baz z))) (define-public p163 (package (name "p163") (foo x) (bar y) (baz z))) (define-public p164 (package (name "p164") (foo x) (bar y) (baz z))) (define-public p165 (package (name "p165") (foo x) (bar y) (baz z))) (define-public p166 (package (name "p166") (foo x) (bar y) (baz z))) (define-public p167 (package (name "p167") (foo x) (bar y) (baz z))) (define-public p168 (package (name "p168") (foo x) (bar y) (baz z))) (define-public p169 (package (name "p169") (foo x) (bar y) (baz z))) (define-public p170 (package (name "p170") (foo x) (bar y) (baz z))) (define-public p171 (package (name "p171") (foo x) (bar y) (baz z))) (define-public p172 (package (name "p172") (foo x) (bar y) (baz z))) (define-public p173 (package (name "p173") (foo x) (bar y) (baz z))) (define-public p174 (package (name "p174") (foo x) (bar y) (baz z))) (define-public p175 (package (name "p175") (foo x) (bar y) (baz z))) (define-public p176 (package (name "p176") (foo x) (bar y) (baz z))) (define-public p177 (package (name "p177") (foo x) (bar y) (baz z))) (define-public p178 (package (name "p178") (foo x) (bar y) (baz z))) (define-public p179 (package (name "p179") (foo x) (bar y) (baz z))) (define-public p180 (package (name "p180") (foo x) (bar y) (baz z))) (define-public p181 (package (name "p181") (foo x) (bar y) (baz z))) (define-public p182 (package (name "p182") (foo x) (bar y) (baz z))) (define-public p183 (package (name "p183") (foo x) (bar y) (baz z))) (define-public p184 (package (name "p184") (foo x) (bar y) (baz z))) (define-public p185 (package (name "p185") (foo x) (bar y) (baz z))) (define-public p186 (package (name "p186") (foo x) (bar y) (baz z))) (define-public p187 (package (name "p187") (foo x) (bar y) (baz z))) (define-public p188 (package (name "p188") (foo x) (bar y) (baz z))) (define-public p189 (package (name "p189") (foo x) (bar y) (baz z))) (define-public p190 (package (name "p190") (foo x) (bar y) (baz z))) (define-public p191 (package (name "p191") (foo x) (bar y) (baz z))) (define-public p192 (package (name "p192") (foo x) (bar y) (baz z))) (define-public p193 (package (name "p193") (foo x) (bar y) (baz z))) (define-public p194 (package (name "p194") (foo x) (bar y) (baz z))) (define-public p195 (package (name "p195") (foo x) (bar y) (baz z))) (define-public p196 (package (name "p196") (foo x) (bar y) (baz z))) (define-public p197 (package (name "p197") (foo x) (bar y) (baz z))) (define-public p198 (package (name "p198") (foo x) (bar y) (baz z))) (define-public p199 (package (name "p199") (foo x) (bar y) (baz z))) (define-public p200 (package (name "p200") (foo x) (bar y) (baz z))) (define-public p201 (package (name "p201") (foo x) (bar y) (baz z))) (define-public p202 (package (name "p202") (foo x) (bar y) (baz z))) (define-public p203 (package (name "p203") (foo x) (bar y) (baz z))) (define-public p204 (package (name "p204") (foo x) (bar y) (baz z))) (define-public p205 (package (name "p205") (foo x) (bar y) (baz z))) (define-public p206 (package (name "p206") (foo x) (bar y) (baz z))) (define-public p207 (package (name "p207") (foo x) (bar y) (baz z))) (define-public p208 (package (name "p208") (foo x) (bar y) (baz z))) (define-public p209 (package (name "p209") (foo x) (bar y) (baz z))) (define-public p210 (package (name "p210") (foo x) (bar y) (baz z))) (define-public p211 (package (name "p211") (foo x) (bar y) (baz z))) (define-public p212 (package (name "p212") (foo x) (bar y) (baz z))) (define-public p213 (package (name "p213") (foo x) (bar y) (baz z))) (define-public p214 (package (name "p214") (foo x) (bar y) (baz z))) (define-public p215 (package (name "p215") (foo x) (bar y) (baz z))) (define-public p216 (package (name "p216") (foo x) (bar y) (baz z))) (define-public p217 (package (name "p217") (foo x) (bar y) (baz z))) (define-public p218 (package (name "p218") (foo x) (bar y) (baz z))) (define-public p219 (package (name "p219") (foo x) (bar y) (baz z))) (define-public p220 (package (name "p220") (foo x) (bar y) (baz z))) (define-public p221 (package (name "p221") (foo x) (bar y) (baz z))) (define-public p222 (package (name "p222") (foo x) (bar y) (baz z))) (define-public p223 (package (name "p223") (foo x) (bar y) (baz z))) (define-public p224 (package (name "p224") (foo x) (bar y) (baz z))) (define-public p225 (package (name "p225") (foo x) (bar y) (baz z))) (define-public p226 (package (name "p226") (foo x) (bar y) (baz z))) (define-public p227 (package (name "p227") (foo x) (bar y) (baz z))) (define-public p228 (package (name "p228") (foo x) (bar y) (baz z))) (define-public p229 (package (name "p229") (foo x) (bar y) (baz z))) (define-public p230 (package (name "p230") (foo x) (bar y) (baz z))) (define-public p231 (package (name "p231") (foo x) (bar y) (baz z))) (define-public p232 (package (name "p232") (foo x) (bar y) (baz z))) (define-public p233 (package (name "p233") (foo x) (bar y) (baz z))) (define-public p234 (package (name "p234") (foo x) (bar y) (baz z))) (define-public p235 (package (name "p235") (foo x) (bar y) (baz z))) (define-public p236 (package (name "p236") (foo x) (bar y) (baz z))) (define-public p237 (package (name "p237") (foo x) (bar y) (baz z))) (define-public p238 (package (name "p238") (foo x) (bar y) (baz z))) (define-public p239 (package (name "p239") (foo x) (bar y) (baz z))) (define-public p240 (package (name "p240") (foo x) (bar y) (baz z))) (define-public p241 (package (name "p241") (foo x) (bar y) (baz z))) (define-public p242 (package (name "p242") (foo x) (bar y) (baz z))) (define-public p243 (package (name "p243") (foo x) (bar y) (baz z))) (define-public p244 (package (name "p244") (foo x) (bar y) (baz z))) (define-public p245 (package (name "p245") (foo x) (bar y) (baz z))) (define-public p246 (package (name "p246") (foo x) (bar y) (baz z))) (define-public p247 (package (name "p247") (foo x) (bar y) (baz z))) (define-public p248 (package (name "p248") (foo x) (bar y) (baz z))) (define-public p249 (package (name "p249") (foo x) (bar y) (baz z))) (define-public p250 (package (name "p250") (foo x) (bar y) (baz z))) (define-public p251 (package (name "p251") (foo x) (bar y) (baz z))) (define-public p252 (package (name "p252") (foo x) (bar y) (baz z))) (define-public p253 (package (name "p253") (foo x) (bar y) (baz z))) (define-public p254 (package (name "p254") (foo x) (bar y) (baz z))) (define-public p255 (package (name "p255") (foo x) (bar y) (baz z))) (define-public r0 (package (name "p0") (foo x) (bar y) (baz z))) (define-public r1 (package (name "p1") (foo x) (bar y) (baz z))) (define-public r2 (package (name "p2") (foo x) (bar y) (baz z))) (define-public r3 (package (name "p3") (foo x) (bar y) (baz z))) (define-public r4 (package (name "p4") (foo x) (bar y) (baz z))) (define-public r5 (package (name "p5") (foo x) (bar y) (baz z))) (define-public r6 (package (name "p6") (foo x) (bar y) (baz z))) (define-public r7 (package (name "p7") (foo x) (bar y) (baz z))) (define-public r8 (package (name "p8") (foo x) (bar y) (baz z))) (define-public r9 (package (name "p9") (foo x) (bar y) (baz z))) (define-public r10 (package (name "p10") (foo x) (bar y) (baz z))) (define-public r11 (package (name "p11") (foo x) (bar y) (baz z))) (define-public r12 (package (name "p12") (foo x) (bar y) (baz z))) (define-public r13 (package (name "p13") (foo x) (bar y) (baz z))) (define-public r14 (package (name "p14") (foo x) (bar y) (baz z))) (define-public r15 (package (name "p15") (foo x) (bar y) (baz z))) (define-public r16 (package (name "p16") (foo x) (bar y) (baz z))) (define-public r17 (package (name "p17") (foo x) (bar y) (baz z))) (define-public r18 (package (name "p18") (foo x) (bar y) (baz z))) (define-public r19 (package (name "p19") (foo x) (bar y) (baz z))) (define-public r20 (package (name "p20") (foo x) (bar y) (baz z))) (define-public r21 (package (name "p21") (foo x) (bar y) (baz z))) (define-public r22 (package (name "p22") (foo x) (bar y) (baz z))) (define-public r23 (package (name "p23") (foo x) (bar y) (baz z))) (define-public r24 (package (name "p24") (foo x) (bar y) (baz z))) (define-public r25 (package (name "p25") (foo x) (bar y) (baz z))) (define-public r26 (package (name "p26") (foo x) (bar y) (baz z))) (define-public r27 (package (name "p27") (foo x) (bar y) (baz z))) (define-public r28 (package (name "p28") (foo x) (bar y) (baz z))) (define-public r29 (package (name "p29") (foo x) (bar y) (baz z))) (define-public r30 (package (name "p30") (foo x) (bar y) (baz z))) (define-public r31 (package (name "p31") (foo x) (bar y) (baz z))) (define-public r32 (package (name "p32") (foo x) (bar y) (baz z))) (define-public r33 (package (name "p33") (foo x) (bar y) (baz z))) (define-public r34 (package (name "p34") (foo x) (bar y) (baz z))) (define-public r35 (package (name "p35") (foo x) (bar y) (baz z))) (define-public r36 (package (name "p36") (foo x) (bar y) (baz z))) (define-public r37 (package (name "p37") (foo x) (bar y) (baz z))) (define-public r38 (package (name "p38") (foo x) (bar y) (baz z))) (define-public r39 (package (name "p39") (foo x) (bar y) (baz z))) (define-public r40 (package (name "p40") (foo x) (bar y) (baz z))) (define-public r41 (package (name "p41") (foo x) (bar y) (baz z))) (define-public r42 (package (name "p42") (foo x) (bar y) (baz z))) (define-public r43 (package (name "p43") (foo x) (bar y) (baz z))) (define-public r44 (package (name "p44") (foo x) (bar y) (baz z))) (define-public r45 (package (name "p45") (foo x) (bar y) (baz z))) (define-public r46 (package (name "p46") (foo x) (bar y) (baz z))) (define-public r47 (package (name "p47") (foo x) (bar y) (baz z))) (define-public r48 (package (name "p48") (foo x) (bar y) (baz z))) (define-public r49 (package (name "p49") (foo x) (bar y) (baz z))) (define-public r50 (package (name "p50") (foo x) (bar y) (baz z))) (define-public r51 (package (name "p51") (foo x) (bar y) (baz z))) (define-public r52 (package (name "p52") (foo x) (bar y) (baz z))) (define-public r53 (package (name "p53") (foo x) (bar y) (baz z))) (define-public r54 (package (name "p54") (foo x) (bar y) (baz z))) (define-public r55 (package (name "p55") (foo x) (bar y) (baz z))) (define-public r56 (package (name "p56") (foo x) (bar y) (baz z))) (define-public r57 (package (name "p57") (foo x) (bar y) (baz z))) (define-public r58 (package (name "p58") (foo x) (bar y) (baz z))) (define-public r59 (package (name "p59") (foo x) (bar y) (baz z))) (define-public r60 (package (name "p60") (foo x) (bar y) (baz z))) (define-public r61 (package (name "p61") (foo x) (bar y) (baz z))) (define-public r62 (package (name "p62") (foo x) (bar y) (baz z))) (define-public r63 (package (name "p63") (foo x) (bar y) (baz z))) (define-public r64 (package (name "p64") (foo x) (bar y) (baz z))) (define-public r65 (package (name "p65") (foo x) (bar y) (baz z))) (define-public r66 (package (name "p66") (foo x) (bar y) (baz z))) (define-public r67 (package (name "p67") (foo x) (bar y) (baz z))) (define-public r68 (package (name "p68") (foo x) (bar y) (baz z))) (define-public r69 (package (name "p69") (foo x) (bar y) (baz z))) (define-public r70 (package (name "p70") (foo x) (bar y) (baz z))) (define-public r71 (package (name "p71") (foo x) (bar y) (baz z))) (define-public r72 (package (name "p72") (foo x) (bar y) (baz z))) (define-public r73 (package (name "p73") (foo x) (bar y) (baz z))) (define-public r74 (package (name "p74") (foo x) (bar y) (baz z))) (define-public r75 (package (name "p75") (foo x) (bar y) (baz z))) (define-public r76 (package (name "p76") (foo x) (bar y) (baz z))) (define-public r77 (package (name "p77") (foo x) (bar y) (baz z))) (define-public r78 (package (name "p78") (foo x) (bar y) (baz z))) (define-public r79 (package (name "p79") (foo x) (bar y) (baz z))) (define-public r80 (package (name "p80") (foo x) (bar y) (baz z))) (define-public r81 (package (name "p81") (foo x) (bar y) (baz z))) (define-public r82 (package (name "p82") (foo x) (bar y) (baz z))) (define-public r83 (package (name "p83") (foo x) (bar y) (baz z))) (define-public r84 (package (name "p84") (foo x) (bar y) (baz z))) (define-public r85 (package (name "p85") (foo x) (bar y) (baz z))) (define-public r86 (package (name "p86") (foo x) (bar y) (baz z))) (define-public r87 (package (name "p87") (foo x) (bar y) (baz z))) (define-public r88 (package (name "p88") (foo x) (bar y) (baz z))) (define-public r89 (package (name "p89") (foo x) (bar y) (baz z))) (define-public r90 (package (name "p90") (foo x) (bar y) (baz z))) (define-public r91 (package (name "p91") (foo x) (bar y) (baz z))) (define-public r92 (package (name "p92") (foo x) (bar y) (baz z))) (define-public r93 (package (name "p93") (foo x) (bar y) (baz z))) (define-public r94 (package (name "p94") (foo x) (bar y) (baz z))) (define-public r95 (package (name "p95") (foo x) (bar y) (baz z))) (define-public r96 (package (name "p96") (foo x) (bar y) (baz z))) (define-public r97 (package (name "p97") (foo x) (bar y) (baz z))) (define-public r98 (package (name "p98") (foo x) (bar y) (baz z))) (define-public r99 (package (name "p99") (foo x) (bar y) (baz z))) (define-public r100 (package (name "p100") (foo x) (bar y) (baz z))) (define-public r101 (package (name "p101") (foo x) (bar y) (baz z))) (define-public r102 (package (name "p102") (foo x) (bar y) (baz z))) (define-public r103 (package (name "p103") (foo x) (bar y) (baz z))) (define-public r104 (package (name "p104") (foo x) (bar y) (baz z))) (define-public r105 (package (name "p105") (foo x) (bar y) (baz z))) (define-public r106 (package (name "p106") (foo x) (bar y) (baz z))) (define-public r107 (package (name "p107") (foo x) (bar y) (baz z))) (define-public r108 (package (name "p108") (foo x) (bar y) (baz z))) (define-public r109 (package (name "p109") (foo x) (bar y) (baz z))) (define-public r110 (package (name "p110") (foo x) (bar y) (baz z))) (define-public r111 (package (name "p111") (foo x) (bar y) (baz z))) (define-public r112 (package (name "p112") (foo x) (bar y) (baz z))) (define-public r113 (package (name "p113") (foo x) (bar y) (baz z))) (define-public r114 (package (name "p114") (foo x) (bar y) (baz z))) (define-public r115 (package (name "p115") (foo x) (bar y) (baz z))) (define-public r116 (package (name "p116") (foo x) (bar y) (baz z))) (define-public r117 (package (name "p117") (foo x) (bar y) (baz z))) (define-public r118 (package (name "p118") (foo x) (bar y) (baz z))) (define-public r119 (package (name "p119") (foo x) (bar y) (baz z))) (define-public r120 (package (name "p120") (foo x) (bar y) (baz z))) (define-public r121 (package (name "p121") (foo x) (bar y) (baz z))) (define-public r122 (package (name "p122") (foo x) (bar y) (baz z))) (define-public r123 (package (name "p123") (foo x) (bar y) (baz z))) (define-public r124 (package (name "p124") (foo x) (bar y) (baz z))) (define-public r125 (package (name "p125") (foo x) (bar y) (baz z))) (define-public r126 (package (name "p126") (foo x) (bar y) (baz z))) (define-public r127 (package (name "p127") (foo x) (bar y) (baz z))) (define-public r128 (package (name "p128") (foo x) (bar y) (baz z))) (define-public r129 (package (name "p129") (foo x) (bar y) (baz z))) (define-public r130 (package (name "p130") (foo x) (bar y) (baz z))) (define-public r131 (package (name "p131") (foo x) (bar y) (baz z))) (define-public r132 (package (name "p132") (foo x) (bar y) (baz z))) (define-public r133 (package (name "p133") (foo x) (bar y) (baz z))) (define-public r134 (package (name "p134") (foo x) (bar y) (baz z))) (define-public r135 (package (name "p135") (foo x) (bar y) (baz z))) (define-public r136 (package (name "p136") (foo x) (bar y) (baz z))) (define-public r137 (package (name "p137") (foo x) (bar y) (baz z))) (define-public r138 (package (name "p138") (foo x) (bar y) (baz z))) (define-public r139 (package (name "p139") (foo x) (bar y) (baz z))) (define-public r140 (package (name "p140") (foo x) (bar y) (baz z))) (define-public r141 (package (name "p141") (foo x) (bar y) (baz z))) (define-public r142 (package (name "p142") (foo x) (bar y) (baz z))) (define-public r143 (package (name "p143") (foo x) (bar y) (baz z))) (define-public r144 (package (name "p144") (foo x) (bar y) (baz z))) (define-public r145 (package (name "p145") (foo x) (bar y) (baz z))) (define-public r146 (package (name "p146") (foo x) (bar y) (baz z))) (define-public r147 (package (name "p147") (foo x) (bar y) (baz z))) (define-public r148 (package (name "p148") (foo x) (bar y) (baz z))) (define-public r149 (package (name "p149") (foo x) (bar y) (baz z))) (define-public r150 (package (name "p150") (foo x) (bar y) (baz z))) (define-public r151 (package (name "p151") (foo x) (bar y) (baz z))) (define-public r152 (package (name "p152") (foo x) (bar y) (baz z))) (define-public r153 (package (name "p153") (foo x) (bar y) (baz z))) (define-public r154 (package (name "p154") (foo x) (bar y) (baz z))) (define-public r155 (package (name "p155") (foo x) (bar y) (baz z))) (define-public r156 (package (name "p156") (foo x) (bar y) (baz z))) (define-public r157 (package (name "p157") (foo x) (bar y) (baz z))) (define-public r158 (package (name "p158") (foo x) (bar y) (baz z))) (define-public r159 (package (name "p159") (foo x) (bar y) (baz z))) (define-public r160 (package (name "p160") (foo x) (bar y) (baz z))) (define-public r161 (package (name "p161") (foo x) (bar y) (baz z))) (define-public r162 (package (name "p162") (foo x) (bar y) (baz z))) (define-public r163 (package (name "p163") (foo x) (bar y) (baz z))) (define-public r164 (package (name "p164") (foo x) (bar y) (baz z))) (define-public r165 (package (name "p165") (foo x) (bar y) (baz z))) (define-public r166 (package (name "p166") (foo x) (bar y) (baz z))) (define-public r167 (package (name "p167") (foo x) (bar y) (baz z))) (define-public r168 (package (name "p168") (foo x) (bar y) (baz z))) (define-public r169 (package (name "p169") (foo x) (bar y) (baz z))) (define-public r170 (package (name "p170") (foo x) (bar y) (baz z))) (define-public r171 (package (name "p171") (foo x) (bar y) (baz z))) (define-public r172 (package (name "p172") (foo x) (bar y) (baz z))) (define-public r173 (package (name "p173") (foo x) (bar y) (baz z))) (define-public r174 (package (name "p174") (foo x) (bar y) (baz z))) (define-public r175 (package (name "p175") (foo x) (bar y) (baz z))) (define-public r176 (package (name "p176") (foo x) (bar y) (baz z))) (define-public r177 (package (name "p177") (foo x) (bar y) (baz z))) (define-public r178 (package (name "p178") (foo x) (bar y) (baz z))) (define-public r179 (package (name "p179") (foo x) (bar y) (baz z))) (define-public r180 (package (name "p180") (foo x) (bar y) (baz z))) (define-public r181 (package (name "p181") (foo x) (bar y) (baz z))) (define-public r182 (package (name "p182") (foo x) (bar y) (baz z))) (define-public r183 (package (name "p183") (foo x) (bar y) (baz z))) (define-public r184 (package (name "p184") (foo x) (bar y) (baz z))) (define-public r185 (package (name "p185") (foo x) (bar y) (baz z))) (define-public r186 (package (name "p186") (foo x) (bar y) (baz z))) (define-public r187 (package (name "p187") (foo x) (bar y) (baz z))) (define-public r188 (package (name "p188") (foo x) (bar y) (baz z))) (define-public r189 (package (name "p189") (foo x) (bar y) (baz z))) (define-public r190 (package (name "p190") (foo x) (bar y) (baz z))) (define-public r191 (package (name "p191") (foo x) (bar y) (baz z))) (define-public r192 (package (name "p192") (foo x) (bar y) (baz z))) (define-public r193 (package (name "p193") (foo x) (bar y) (baz z))) (define-public r194 (package (name "p194") (foo x) (bar y) (baz z))) (define-public r195 (package (name "p195") (foo x) (bar y) (baz z))) (define-public r196 (package (name "p196") (foo x) (bar y) (baz z))) (define-public r197 (package (name "p197") (foo x) (bar y) (baz z))) (define-public r198 (package (name "p198") (foo x) (bar y) (baz z))) (define-public r199 (package (name "p199") (foo x) (bar y) (baz z))) (define-public r200 (package (name "p200") (foo x) (bar y) (baz z))) (define-public r201 (package (name "p201") (foo x) (bar y) (baz z))) (define-public r202 (package (name "p202") (foo x) (bar y) (baz z))) (define-public r203 (package (name "p203") (foo x) (bar y) (baz z))) (define-public r204 (package (name "p204") (foo x) (bar y) (baz z))) (define-public r205 (package (name "p205") (foo x) (bar y) (baz z))) (define-public r206 (package (name "p206") (foo x) (bar y) (baz z))) (define-public r207 (package (name "p207") (foo x) (bar y) (baz z))) (define-public r208 (package (name "p208") (foo x) (bar y) (baz z))) (define-public r209 (package (name "p209") (foo x) (bar y) (baz z))) (define-public r210 (package (name "p210") (foo x) (bar y) (baz z))) (define-public r211 (package (name "p211") (foo x) (bar y) (baz z))) (define-public r212 (package (name "p212") (foo x) (bar y) (baz z))) (define-public r213 (package (name "p213") (foo x) (bar y) (baz z))) (define-public r214 (package (name "p214") (foo x) (bar y) (baz z))) (define-public r215 (package (name "p215") (foo x) (bar y) (baz z))) (define-public r216 (package (name "p216") (foo x) (bar y) (baz z))) (define-public r217 (package (name "p217") (foo x) (bar y) (baz z))) (define-public r218 (package (name "p218") (foo x) (bar y) (baz z))) (define-public r219 (package (name "p219") (foo x) (bar y) (baz z))) (define-public r220 (package (name "p220") (foo x) (bar y) (baz z))) (define-public r221 (package (name "p221") (foo x) (bar y) (baz z))) (define-public r222 (package (name "p222") (foo x) (bar y) (baz z))) (define-public r223 (package (name "p223") (foo x) (bar y) (baz z))) (define-public r224 (package (name "p224") (foo x) (bar y) (baz z))) (define-public r225 (package (name "p225") (foo x) (bar y) (baz z))) (define-public r226 (package (name "p226") (foo x) (bar y) (baz z))) (define-public r227 (package (name "p227") (foo x) (bar y) (baz z))) (define-public r228 (package (name "p228") (foo x) (bar y) (baz z))) (define-public r229 (package (name "p229") (foo x) (bar y) (baz z))) (define-public r230 (package (name "p230") (foo x) (bar y) (baz z))) (define-public r231 (package (name "p231") (foo x) (bar y) (baz z))) (define-public r232 (package (name "p232") (foo x) (bar y) (baz z))) (define-public r233 (package (name "p233") (foo x) (bar y) (baz z))) (define-public r234 (package (name "p234") (foo x) (bar y) (baz z))) (define-public r235 (package (name "p235") (foo x) (bar y) (baz z))) (define-public r236 (package (name "p236") (foo x) (bar y) (baz z))) (define-public r237 (package (name "p237") (foo x) (bar y) (baz z))) (define-public r238 (package (name "p238") (foo x) (bar y) (baz z))) (define-public r239 (package (name "p239") (foo x) (bar y) (baz z))) (define-public r240 (package (name "p240") (foo x) (bar y) (baz z))) (define-public r241 (package (name "p241") (foo x) (bar y) (baz z))) (define-public r242 (package (name "p242") (foo x) (bar y) (baz z))) (define-public r243 (package (name "p243") (foo x) (bar y) (baz z))) (define-public r244 (package (name "p244") (foo x) (bar y) (baz z))) (define-public r245 (package (name "p245") (foo x) (bar y) (baz z))) (define-public r246 (package (name "p246") (foo x) (bar y) (baz z))) (define-public r247 (package (name "p247") (foo x) (bar y) (baz z))) (define-public r248 (package (name "p248") (foo x) (bar y) (baz z))) (define-public r249 (package (name "p249") (foo x) (bar y) (baz z))) (define-public r250 (package (name "p250") (foo x) (bar y) (baz z))) (define-public r251 (package (name "p251") (foo x) (bar y) (baz z))) (define-public r252 (package (name "p252") (foo x) (bar y) (baz z))) (define-public r253 (package (name "p253") (foo x) (bar y) (baz z))) (define-public r254 (package (name "p254") (foo x) (bar y) (baz z))) (define-public r255 (package (name "p255") (foo x) (bar y) (baz z)))
S
S
Sarah Morgensen wrote on 4 Sep 20:53 +0200
(name . Taylan Kammer)(address . taylan.kammer@gmail.com)
86v93gjhps.fsf@mgsn.dev
Hi Taylan,
Taylan Kammer <taylan.kammer@gmail.com> writes:
Toggle quote (21 lines)> On 04.09.2021 16:44, Tobias Geerinckx-Rice wrote:>> Taylan Kammer 写道:>>> To me the most obvious thing to do seems>>>>>>   (define-package foo ...)  ;no explicit name needed>>>>>> to bind the variable 'foo' and use symbol->string for the name of the>>> package, with the possibility to override the name like>>>>>>   (define-package foo (name "foobar") ...)>>>>>> which would bind the variable 'foo' to a package named "foobar".>> >> Right, that's what I meant, and it's how I read bug #15284, and it looks remarkably like the form I use in my personal channels (and I'm sure I'm not the first! :-).>> >> You're much better at the language/implementation side of things than I am, Taylan.  Would this negatively affect performance (including ‘guix pull’ compilation)?>> >> Kind regards,>> >> T G-R
I agree; if we added that magic, that's definitely how it should be.
Toggle quote (24 lines)>> I'm flattered, but don't really know the answer, so I decided to attempt> some sort of benchmark. :-P>> test1.scm uses the syntax-case macro, test2.scm just define-public.>> I don't actually import the Guix modules, so the (package ...) form isn't> macro-expanded, regardless of whether it's used directly or results from> expanding define-package.>> This way, the impact of define-package should dominate the time difference.>> The results are... interesting. I started out with 256 definitions in the> files, and the define-package one would take about 4.2s to compile while> the regular one about 3.9s. There was some jitter in the results though> after running it several times so I thought, let's increase the number of> packages to reduce noise.>> With 512 packages, the one using regular define-public takes a whole> minute to compile, whereas the define-package one just ~14 seconds!>> So no idea what's going on there, and how the use of this macro in the> actual (gnu packages ...) modules would affect performance. :-)
Thanks for running some benchmarks. Were both those latter runs with awarm cache?
If so, is it possible that due to a compilation optimization, many ofthe global symbol lookups only happen once with the define-packagemacro?
If you were really interested, I suppose you could test with compilationoptimization off, but I'd be more interested in the performance impactwith (guix packages) imported.
--Sarah
T
T
Taylan Kammer wrote on 4 Sep 23:01 +0200
(name . Sarah Morgensen)(address . iskarian@mgsn.dev)
5e71792b-ac49-65db-13f0-e06fbcbdec1f@gmail.com
On 04.09.2021 20:53, Sarah Morgensen wrote:
Toggle quote (9 lines)> > If you were really interested, I suppose you could test with compilation> optimization off, but I'd be more interested in the performance impact> with (guix packages) imported.> > --> Sarah>
Good questions. Let's see. Caching shouldn't be an issue by the way sinceI always time a command several times and make sure it's consistent.
With -O0 and -O1, both files take a negligible amount of time to compile,approximately 0.25s and 0.3s. A difference of 0.5s for 512 packages meansabout 0.001s per package, which at 100K packages would be 100s.
That's without importing (guix packages) though. When I import it, thenat -O0 and -O1 (I think these are equivalent), the define-packages onetakes about 3.8s and the regular one about 3.5s. So the difference hasactually shrunk down to about 0.3s now.
With (guix packages) and no special optimization flag, the define-packagesone takes about 26s, and the regular one still shows the strange behaviorwhere the time explodes to over a minute.
If I remember correctly though, Guix uses -O1 to compile packages anyway.
So all in all I *think* we can say that the macro induces no importantperformance hit. (And could for some reason significantly improve it ifwe compile a large chunk of packages on -O2...)
One thing I should note though is that I'm using a top-of-the-line typicalconsumer CPU (Ryzen 9 3900X) so on an older machine, or a CPU brand thatputs more value into freedom and security than performance, the resultsmay be different. I still doubt that the impact would be big.
Attached are new scm files since I had to add some fields to make surethe package macro from (guix packages) doesn't abort the compilation.
-- Taylan
(define-module (test1)) (use-modules (guix packages)) (define-syntax define-package (lambda (stx) (syntax-case stx () ((_ <name> (<field> <value> ...) ...) (if (memq 'name (map syntax->datum #'(<field> ...))) #'(define-public <name> (package (<field> <value> ...) ...)) #`(define-public <name> (package (name #,(symbol->string (syntax->datum #'<name>))) (<field> <value> ...) ...))))))) (define-package p0 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p1 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p2 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p3 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p4 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p5 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p6 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p7 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p8 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p9 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p10 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p11 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p12 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p13 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p14 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p15 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p16 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p17 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p18 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p19 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p20 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p21 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p22 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p23 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p24 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p25 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p26 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p27 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p28 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p29 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p30 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p31 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p32 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p33 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p34 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p35 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p36 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p37 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p38 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p39 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p40 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p41 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p42 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p43 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p44 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p45 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p46 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p47 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p48 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p49 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p50 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p51 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p52 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p53 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p54 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p55 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p56 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p57 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p58 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p59 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p60 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p61 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p62 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p63 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p64 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p65 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p66 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p67 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p68 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p69 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p70 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p71 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p72 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p73 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p74 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p75 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p76 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p77 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p78 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p79 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p80 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p81 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p82 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p83 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p84 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p85 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p86 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p87 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p88 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p89 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p90 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p91 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p92 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p93 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p94 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p95 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p96 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p97 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p98 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p99 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p100 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p101 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p102 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p103 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p104 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p105 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p106 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p107 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p108 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p109 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p110 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p111 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p112 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p113 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p114 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p115 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p116 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p117 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p118 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p119 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p120 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p121 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p122 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p123 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p124 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p125 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p126 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p127 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p128 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p129 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p130 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p131 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p132 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p133 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p134 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p135 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p136 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p137 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p138 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p139 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p140 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p141 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p142 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p143 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p144 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p145 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p146 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p147 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p148 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p149 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p150 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p151 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p152 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p153 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p154 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p155 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p156 (source #f) (build-system #f) (license #f) (home-page #f) (version "1.0") (synopsis "test") (description "blah blah blah")) (define-package p157 (source #f) (build-system #f)