6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-05 03:37:43 +00:00
Code Issues Projects Releases Wiki Activity

Fix minmax.lisp example

Browse Source
This commit is contained in:
David Schmenk 2024-07-24 20:44:04 -07:00
parent 54b36f9ef7
commit c3ea787808
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
images/apple/DRAWL.po
View File

Binary file not shown.

4
src/lisp/minmax.lisp
View File

@ -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)))
))
)