kyle
/
ulisp
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Version 4.4a - 22nd March 2023

This commit is contained in:
David Johnson-Davies 2023-03-22 07:55:45 +00:00 committed by GitHub
parent f24ac94ddc
commit 1d58a95a5e
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ulisp-arm-comments.ino
View File

@ -1,8 +1,9 @@
/* uLisp ARM Release 4.4 - www.ulisp.com /* uLisp ARM Release 4.4a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 21st March 2023 David Johnson-Davies - www.technoblogy.com - 22nd March 2023
Licensed under the MIT license: https://opensource.org/licenses/MIT Licensed under the MIT license: https://opensource.org/licenses/MIT
*/ */
// Lisp Library // Lisp Library
const char LispLibrary[] PROGMEM = ""; const char LispLibrary[] PROGMEM = "";
@ -5985,7 +5986,7 @@ object *sp_withclient (object *args, object *env) {
object *address = eval(first(params), env); object *address = eval(first(params), env);
object *port = eval(second(params), env); object *port = eval(second(params), env);
int success; int success;
if (stringp(address)) success = client.connect(cstring(WITHCLIENT, address, buffer, BUFFERSIZE), checkinteger(port)); if (stringp(address)) success = client.connect(cstring(address, buffer, BUFFERSIZE), checkinteger(port));
else if (integerp(address)) success = client.connect(address->integer, checkinteger(port)); else if (integerp(address)) success = client.connect(address->integer, checkinteger(port));
else error2(PSTR("invalid address")); else error2(PSTR("invalid address"));
if (!success) return nil; if (!success) return nil;
@ -8697,7 +8698,7 @@ void setup () {
initenv(); initenv();
initsleep(); initsleep();
initgfx(); initgfx();
pfstring(PSTR("uLisp 4.4 "), pserial); pln(pserial); pfstring(PSTR("uLisp 4.4a "), pserial); pln(pserial);
} }
// Read/Evaluate/Print loop // Read/Evaluate/Print loop

10
ulisp-arm.ino
View File

@ -1,9 +1,9 @@
/* uLisp ARM Release 4.4 - www.ulisp.com /* uLisp ARM Release 4.4a - www.ulisp.com
David Johnson-Davies - www.technoblogy.com - 21st March 2023 David Johnson-Davies - www.technoblogy.com - 22nd March 2023
Licensed under the MIT license: https://opensource.org/licenses/MIT Licensed under the MIT license: https://opensource.org/licenses/MIT
*/ */
// Lisp Library // Lisp Library
const char LispLibrary[] PROGMEM = ""; const char LispLibrary[] PROGMEM = "";
@ -4838,7 +4838,7 @@ object *sp_withclient (object *args, object *env) {
object *address = eval(first(params), env); object *address = eval(first(params), env);
object *port = eval(second(params), env); object *port = eval(second(params), env);
int success; int success;
if (stringp(address)) success = client.connect(cstring(WITHCLIENT, address, buffer, BUFFERSIZE), checkinteger(port)); if (stringp(address)) success = client.connect(cstring(address, buffer, BUFFERSIZE), checkinteger(port));
else if (integerp(address)) success = client.connect(address->integer, checkinteger(port)); else if (integerp(address)) success = client.connect(address->integer, checkinteger(port));
else error2(PSTR("invalid address")); else error2(PSTR("invalid address"));
if (!success) return nil; if (!success) return nil;
@ -7305,7 +7305,7 @@ void setup () {
initenv(); initenv();
initsleep(); initsleep();
initgfx(); initgfx();
pfstring(PSTR("uLisp 4.4 "), pserial); pln(pserial); pfstring(PSTR("uLisp 4.4a "), pserial); pln(pserial);
} }
// Read/Evaluate/Print loop // Read/Evaluate/Print loop