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
theruran has joined #picolisp
orivej_ has quit [Ping timeout: 256 seconds]
orivej has joined #picolisp
logand`` has joined #picolisp
logand` has quit [Ping timeout: 260 seconds]
orivej has quit [Ping timeout: 264 seconds]
orivej has joined #picolisp
Nistur has quit [Ping timeout: 265 seconds]
orivej has quit [Ping timeout: 260 seconds]
Nistur has joined #picolisp
logand`` has quit [Ping timeout: 246 seconds]
logand` has joined #picolisp
logand` has quit [Ping timeout: 264 seconds]
logand``` has joined #picolisp
logand``` has quit [Ping timeout: 260 seconds]
aw- has left #picolisp [#picolisp]
jibanes has quit [Ping timeout: 246 seconds]
jibanes has joined #picolisp
jibanes has quit [Ping timeout: 246 seconds]
jibanes has joined #picolisp
orivej has joined #picolisp
vikid has quit [Ping timeout: 240 seconds]
theruran has quit [Read error: Connection reset by peer]
michelp has quit [Read error: Connection reset by peer]
michelp has joined #picolisp
theruran has joined #picolisp
theruran has quit [Read error: Connection reset by peer]
theruran has joined #picolisp
theruran has quit [Ping timeout: 264 seconds]
theruran has joined #picolisp
theruran has quit [Ping timeout: 264 seconds]
theruran has joined #picolisp
vikid has joined #picolisp
theruran has quit [Read error: Connection reset by peer]
theruran has joined #picolisp
radiator3434 has joined #picolisp
<radiator3434> Hello, is there a way to trace pilog rules which have a conjunction of goals? e.g. to make a query and to know which goal was called, which failed, which retried with another value, which succeeded? I found (traceAll) but it does not seem to show this information.
<Regenaxer> yes, traceAll is Lisp-level, tracing functions
<Regenaxer> You can trace Pilog execution directly
<Regenaxer> (? append (append (a b c) (d e f) @X))
<Regenaxer> in total:
<Regenaxer> : (? append (append (a b c) (d e f) @X))
<Regenaxer> 2 (append (a b c) (d e f) (a . @Z))
<Regenaxer> 2 (append (b c) (d e f) (b . @Z))
<Regenaxer> 2 (append (c) (d e f) (c . @Z))
<Regenaxer> 1 (append NIL (d e f) (d e f))
<Regenaxer> @X=(a b c d e f)
<Regenaxer> -> NIL
<Regenaxer> '?' is a front-end to 'prove'
<Regenaxer> and 'prove' has such a trace argument
<Regenaxer> (a list of symbols as second arg)
<Regenaxer> Try (trace 'prove) and call the above '?'
<radiator3434> thanks
vikid has quit [Ping timeout: 264 seconds]
<Regenaxer> welcome btw :)
<radiator3434> :)
radiator3434 has quit [Quit: Connection closed]
theruran has quit [Read error: Connection reset by peer]
theruran has joined #picolisp
orivej has quit [Ping timeout: 246 seconds]
orivej has joined #picolisp
orivej has quit [Ping timeout: 244 seconds]