ChanServ changed the topic of #picolisp to: PicoLisp language | Channel Log: https://irclog.whitequark.org/picolisp/ | Check also http://www.picolisp.com for more information
orivej has joined #picolisp
orivej has quit [Ping timeout: 240 seconds]
_whitelogger has joined #picolisp
inara has quit [Quit: Leaving]
inara has joined #picolisp
orivej has joined #picolisp
ym has joined #picolisp
aw- has quit [Quit: Leaving.]
orivej has quit [Ping timeout: 260 seconds]
<tankf33der> starting test bundle run on blowing heap loop un gc+.
aw- has joined #picolisp
<Regenaxer> 👍💪
orivej has joined #picolisp
<tankf33der> one of test run failed in another terminal
<tankf33der> http://ix.io/2BWn
<tankf33der> reducing.
<tankf33der> http://ix.io/2BWp
<tankf33der> Regenaxer: ping/
<Regenaxer> Oops, I'm on a hill
<tankf33der> its ok.
<tankf33der> np.
<Regenaxer> Trying ...
<Regenaxer> hmm, works
<Regenaxer> Commented first test
<Regenaxer> Always crashes?
<tankf33der> yeap
<tankf33der> all above under gc+
ym has quit [Quit: Leaving]
<Regenaxer> ah!
<Regenaxer> yes
<Regenaxer> I check when I'm back home
<Regenaxer> Probably similar case as with 'append'
aw- has quit [Quit: Leaving.]
Green_flame has joined #picolisp
Blue_flame has left #picolisp ["User left"]
<Regenaxer> ret
<Regenaxer> Found it. 'eval' (and also 'run') is not correct
<Regenaxer> Both don't save the first argument
<Regenaxer> I released. Please re-test next time
<tankf33der> doing.
<tankf33der> first i would like to read a patch.
<Regenaxer> Of the last change?
<tankf33der> yea. in general i understand it.
<tankf33der> all passed, gc+ passed.
<tankf33der> issue closed.
<Regenaxer> The problem was this http://ix.io/2BXa
<Regenaxer> the (eval E) was *before* the (save E
<tankf33der> yea.
Green_flame has quit [Ping timeout: 272 seconds]
<Regenaxer> The first eval gives the list (cons T NIL)
<Regenaxer> when gc runs *while* this expression is evaluated, we get corruption
<Regenaxer> 'run' had the same problem
<Regenaxer> Very good that you found it
Green_flame has joined #picolisp
Green_flame has quit [Remote host closed the connection]
<tankf33der> i defenitly should write analyzer if i touch all functions in test bundle.
Lambdajack has joined #picolisp
<Regenaxer> Sounds like a good idea
emacsomancer has quit [Ping timeout: 265 seconds]
<tankf33der> code will grow here:
emacsomancer has joined #picolisp
<Regenaxer> Cool
<Regenaxer> Something with (intern (from "\"") (till "\"" T))
<Regenaxer> or, as we have s-exprs:
<Regenaxer> (in "src/glob.l" (use L (while (and (setq L (read)) (n== 'symTab (car L)))) L))
<Regenaxer> then (mapcar car L) plus 'intern' etc
<Regenaxer> The functions can also be analyzed directly in Lisp
<Regenaxer> on s-expr-level
<Regenaxer> I meant (mapcar cadr (cdr L))
<Regenaxer> etc. ;)
<tankf33der> 371 primitives, not bad.
<tankf33der> I did it.
<tankf33der> http://ix.io/2BYy
<tankf33der> afk.
orivej has quit [Ping timeout: 260 seconds]
<Regenaxer> :)
<tankf33der> i have almost everything as expected.