orivej_ has joined #picolisp
orivej has quit [Ping timeout: 246 seconds]
orivej_ has quit [Ping timeout: 265 seconds]
orivej has joined #picolisp
orivej has quit [Quit: No Ping reply in 180 seconds.]
orivej has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
orivej has quit [Quit: No Ping reply in 180 seconds.]
orivej has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
orivej has quit [Read error: Connection reset by peer]
orivej has joined #picolisp
DKordic has quit []
orivej has quit [Quit: No Ping reply in 180 seconds.]
orivej has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
Blukunfando has joined #picolisp
orivej has quit [Ping timeout: 246 seconds]
_whitelogger has joined #picolisp
rob_w has joined #picolisp
aw- has joined #picolisp
_whitelogger has joined #picolisp
<
beneroth>
Ahoy Nistur
orivej has joined #picolisp
orivej has quit [Ping timeout: 246 seconds]
orivej has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
alexshendi has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
xkapastel has joined #picolisp
alexshendi has quit [Read error: Connection reset by peer]
orivej has quit [Quit: No Ping reply in 180 seconds.]
orivej has joined #picolisp
aw- has quit [Quit: Leaving.]
<
tankf33der>
Regenaxer: crash
<
tankf33der>
crash on pil21.
<
Regenaxer>
Sorry, was busy. Ready now
<
Regenaxer>
OK, I'll check
alexshendi has joined #picolisp
<
Regenaxer>
Can reproduce
<
Regenaxer>
Can take a look soon
<
tankf33der>
===============
<
tankf33der>
another issue:
<
tankf33der>
should print 2 (1 2)
<
tankf33der>
=============
<
Regenaxer>
'ifn' does not set '@' it seems
<
Regenaxer>
'if' works
<
Regenaxer>
Now let's see 'seek'
alexshendi has quit [Ping timeout: 265 seconds]
rob_w has quit [Remote host closed the connection]
<
Regenaxer>
'fully' etc is irrelevant
<
Regenaxer>
Seems to crash whenever it want to return NIL
<
Regenaxer>
(seek '((L) (foo)) NIL)
<
Regenaxer>
: (seek prog (1 2))
<
Regenaxer>
: (seek prog NIL)
<
Regenaxer>
-> (1 2)
<
Regenaxer>
-> Segmentation fault
<
Regenaxer>
Should be a simple error
alexshendi has joined #picolisp
<
tankf33der>
also check you set @ everywhere it should be
orivej has quit [Ping timeout: 256 seconds]
<
Regenaxer>
It
*is* set I think
<
Regenaxer>
Just in 'ifn' it was reversed
orivej has joined #picolisp
<
Regenaxer>
I also check all mapping functions
<
Regenaxer>
for a similar case as in 'seek'
alexshendi2 has joined #picolisp
alexshendi has quit [Read error: Connection reset by peer]
<
Regenaxer>
All OK I think
<
tankf33der>
released?
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
<
tankf33der>
all works
<
tankf33der>
adventofcode 2016 passed on pil21. important milestone.
<
beneroth>
yippie, congrats
<
Regenaxer>
Thanks tankf33der!!
orivej has quit [Ping timeout: 246 seconds]
orivej has joined #picolisp
xkapastel has quit [Quit: Connection closed for inactivity]
<
tankf33der>
Regenaxer: wrong resulty
<
tankf33der>
Regenaxer: wrong result
<
tankf33der>
pil64 vs. pil21
<
Regenaxer>
List is not defined
<
Regenaxer>
'case' checks the
*elements* if a clause is a list
<
Regenaxer>
So this behavior is not precisely defined I think
<
tankf33der>
but pil64 works.
<
Regenaxer>
hmm, by chance
<
Regenaxer>
At least very inefficient
<
Regenaxer>
cause it first checks with equal, but then checks every element of each list
<
tankf33der>
then how this case example should be modified ?
<
Regenaxer>
pil21 does (if (atom Z) (equal Z A) (member A Z)) )
<
Regenaxer>
It is not an issue for 'case'
<
Regenaxer>
as case expects atomic values
<
Regenaxer>
pil32 and pil64 did (or (equal Z A) (member A Z)) )
<
Regenaxer>
basically
<
tankf33der>
then this shoule be docuement in diff, right ?
<
Regenaxer>
yes, or change it the way old picolisps do
<
Regenaxer>
what is better?
<
Regenaxer>
The ref is not clear about it
<
tankf33der>
what is better is hard question.
<
Regenaxer>
Let's keep it open for a moment?
<
Regenaxer>
until we update the ref
<
tankf33der>
i need update this code then
<
Regenaxer>
Lets see if there are more such cases
<
Regenaxer>
yes, ok, better
<
Regenaxer>
You could use 'assoc'
<
Regenaxer>
(cadr (assoc ...
<
Regenaxer>
old pil was more tolerant
<
Regenaxer>
Perhaps better to be clear
<
Regenaxer>
I update doc/diff for now
<
tankf33der>
ok. cool.
<
Regenaxer>
Thanks again!
orivej has quit [Ping timeout: 264 seconds]
orivej_ has joined #picolisp
orivej_ has quit [Ping timeout: 256 seconds]
orivej has joined #picolisp
<
Regenaxer>
'port' and 'udp' seem to work in @lib/net.l
<
Regenaxer>
So we have a proof of concept that it can all be done with 'native' (in a portable way, I hope)
orivej_ has joined #picolisp
orivej has quit [Ping timeout: 265 seconds]
orivej has joined #picolisp
orivej_ has quit [Ping timeout: 265 seconds]
<
tankf33der>
test from test/src/net.l from picolisp hang on pil21.
<
tankf33der>
debugging.
<
tankf33der>
# First session
<
tankf33der>
: (udp 3) # Receive a datagram
<
tankf33der>
: (port T 6666)
<
tankf33der>
: (udp "localhost" 6666 '(a b c))
<
tankf33der>
# Second session (on the same machine)
<
tankf33der>
-> (a b c)
<
tankf33der>
# First session
<
tankf33der>
-> (a b c)
<
tankf33der>
pil64 ok, pil21 fails - on the same laptop.
<
Regenaxer>
OK, I see
<
Regenaxer>
I did these tests (from the ref) manually, and they worked
orivej has quit [Ping timeout: 265 seconds]
orivej has joined #picolisp
<
tankf33der>
Regenaxer: not on x64, right?
<
Regenaxer>
you mean x86 ;) No, on Arm
<
Regenaxer>
Do you think the arch matters?
<
tankf33der>
on the same laptop pil64 works.
<
Regenaxer>
yes, but I see no reason why it is the CPU
<
Regenaxer>
I try on x86-64
<
Regenaxer>
haha, the receiving part waits forever, both on Arm64 and x86-64
<
Regenaxer>
I think I did the test wrong
<
Regenaxer>
hap pil64 still on the receiving side
<
tankf33der>
this is what i saw
<
Regenaxer>
Perhaps some socket struct members not right
<
Regenaxer>
I first need some more extensions to 'native' and 'struct'
<
Regenaxer>
tomorrow
orivej has quit [Ping timeout: 260 seconds]
orivej has joined #picolisp
orivej has quit [Quit: No Ping reply in 180 seconds.]
orivej has joined #picolisp
xkapastel has joined #picolisp
orivej has quit [Ping timeout: 265 seconds]
orivej has joined #picolisp
orivej has quit [Ping timeout: 256 seconds]
orivej has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
orivej has joined #picolisp
orivej has quit [Quit: No Ping reply in 180 seconds.]
orivej has joined #picolisp
xkapastel has quit [Quit: Connection closed for inactivity]
orivej has quit [Ping timeout: 246 seconds]
orivej has joined #picolisp