From c3ea787808142f50361f814e0bb680202ec02658 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Wed, 24 Jul 2024 20:44:04 -0700
Subject: [PATCH] Fix minmax.lisp example

---
 images/apple/DRAWL.po | Bin 143360 -> 143360 bytes
 src/lisp/minmax.lisp  |   4 ++--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/images/apple/DRAWL.po b/images/apple/DRAWL.po
index d4b2333c2985ab239a773ecefaf01c83e3d76295..851e31f0c2605681da9a14778eb233a6fa2302d6 100644
GIT binary patch
delta 826
zcmZp8z|ru4V}mOTx3&la!(j%69|qbYlLJ^}j39gl5TA)b&Dqz*(8z)T2H1=lxELG-
zz_K81V8-NmaBW~?m>4tye8PP75E}ox0JY5(glhvUoBRe{+vVWMV3<uHnm?3*k%55;
zt_{qXY{e=Abu^g2Igxem5+<PI6;`Pti%$+%h2oh|1~oTNA6HL*xDEfx7}y!axX_HB
zhptV;F~~jG8?KAtUn9^}$01%vguxqhZK|GrA;v~X+FBS`82+-N*=DsG#WRx=(fA#3
zz5+Og)~|+n3d|2>P;zx~^h0*tRt8Ci8~Ui$Z2r4i@f|RXrYp>1L<ywn0kark27<Mm
zWl(hqat!xDa`y*dDA{nM8aRC(hCWFj&)^U}AQ1r3%kmQ#ObZ#&^u58*C*khwf~1Xs
z<u_2@6tv)-ZZ(?`C7`A!q6>7O3#<nUAgAWD3{pP+L9W3F%UGBg85y>tIdS{n*^B`R
Y(*yr9icC-Z!}t--GTT1qFJp=k0F{cwssI20

delta 852
zcmZp8z|ru4V}mOTw=g#Y!(j%69|pqQlLJ^}j39gl5TA)b&Dqz*(8z)T2H1=lxELG-
zz_K81V8-NmaBW~?m>4tye8PP75E}ox0JY5(glhvUoBRe{+vVWMV3<uHnm?3*k%55;
zt_{qXY{e=Abu^g2Igxem5+<PI6;`Pti%$+%h2oh|1~oTNA6HL*xDEfx7}y!axX_HB
zhptV;F~~jG8?KAtUn9^}$01%vguxqhZK|GrA;v~X+FBS`82+-N*=DsG#WRx=(fA#3
zz5+Og)~|+n3d|2>P;zx~^h0*tRt8Ci8~Ui$Z2r4i@f|RXrYp>1L<ywn0kark27<Mm
zWl(hqat!xDa`y*dDA{nM8aRC(hCWFj&)^U}AQ1r3%kmQ#ObZ#&^u58*C*khwf~1Xs
z<u_2@6tv)-ZZ(?`C7`A!q6>7O3#<nUAgAWD3{pP+L9W3F%UGBg85y>tIdS{n*^B`R
lf;tKszMg(Q3cd;&&MrX;KAO|x{xE*QE^N7d&R@n9BLFn(zvKV_

diff --git a/src/lisp/minmax.lisp b/src/lisp/minmax.lisp
index 4af5e18..1391741 100644
--- a/src/lisp/minmax.lisp
+++ b/src/lisp/minmax.lisp
@@ -1,7 +1,7 @@
 (DEFINE
   (MINL (LAMBDA (M L)
     (COND ((NULL L), M)
-          ((< M (CAR L), (MINL M (CDR L))))
+          ((< M (CAR L)), (MINL M (CDR L)))
           (T, (MINL (CAR L) (CDR L)))
     ))
   )
@@ -13,7 +13,7 @@
   )
   (MAXL (LAMBDA (M L)
     (COND ((NULL L), M)
-          ((> M (CAR L), (MINL M (CDR L))))
+          ((> M (CAR L)), (MINL M (CDR L)))
           (T, (MINL (CAR L) (CDR L)))
     ))
   )