pierpal has quit [Read error: Connection reset by peer]
iovec has quit [Quit: Connection closed for inactivity]
wxie has joined #lisp
pierpal has joined #lisp
pierpal has quit [Read error: Connection reset by peer]
mrcom has quit [Read error: Connection reset by peer]
Essadon has quit [Quit: Qutting]
JetJej has quit [Quit: [Quit]]
krwq has joined #lisp
mrcom has joined #lisp
frodef has quit [Ping timeout: 240 seconds]
pierpal has joined #lisp
Kundry_Wag has joined #lisp
Kundry_Wag has quit [Ping timeout: 244 seconds]
akoana has left #lisp ["Leaving"]
<krwq>
is there any easier way to write (find t list :key 'some-func)? searching for t feels a little weird
<minion>
krwq, memo from pjb: you are wrong. The internet was invented a very long time ago. Since the invention of paper, usenet took off: people wrote posts on paper, little packets that were transported thru a network of messengers from people to people. Some people made copies of the packets to diffuse them faster to more people. They were forwarded for more exposure, answered, etc. The system was then improved by the universities
<minion>
krwq, memo from pjb: with nntp there were repositories of articles called "university libraries", where scholars and students to find and read old articles, classified by matter.
<minion>
krwq, memo from pjb: It was a little slower than the current internet, but it didn't take 27 years to swap articles between Poland and the USA…
<Bike>
krwq: (some 'some-func list), maybe
<Bike>
assuming some-func doesn't return true values other than t, at least
<pjb>
(find-if (function identity) list :key (function some-func))
Oladon has quit [Ping timeout: 258 seconds]
<pjb>
without assuming that some-func return t, but just a generalized boolean true value.
<krwq>
nice, thanks a lot Bike! why cannot it return values other than t? in my case it is t but kinda curious
<pjb>
Or, you can write: (find nil list :key (function some-func) :test-not (function eql))
<pjb>
or (find nil list :key (complement (function some-func)))
<pjb>
krwq: most predicates are specified to return generalized booleans.
<pjb>
eg. (= 1 1) may return eg. 1 instead of t.
<Bike>
well, some will return the first thing such that (some-func thing) is true
<pjb>
digit-char-p is specifically specified to return a fixnum.
<Bike>
whereas the find will only look for t
<pjb>
Indeed, SOME is better in this case. I didn't remember it returned the first non-nil value.
<krwq>
Bike: I see - actually i even generalized boolean better
<krwq>
i actually didn't think about generalized boolean when i wrote version with find since i was using some-struct-p
<krwq>
i meant i like generalized version more :P
<pjb>
krwq: clsh defstruct says: "The predicate (structure-name-p object) is true if an object is of this type; "
<pjb>
It says true, not T. So some-struct-p can return 42 instead of T.
<krwq>
pjb: any specific implementation in mind?
<pjb>
I write conforming Common Lisp programs.
<pjb>
This is #lisp, not #sbcl.
<krwq>
ok i think i like find-if the most since it also returns the element it found
vms14 has quit [Remote host closed the connection]
<no-defun-allowed>
krwq: my assumption is *your specific Lisp system* returns the value produced by the predicate, which is a number for digit-char-p and a generalised boolean for oddp
<krwq>
no-defun-allowed: makes sense i guess
slyrus_ has joined #lisp
slyrus1 has quit [Quit: slyrus1]
fckit has joined #lisp
nanozz has quit [Ping timeout: 244 seconds]
Kundry_Wag has joined #lisp
Kundry_Wag has quit [Ping timeout: 258 seconds]
slyrus2 has joined #lisp
sindan has quit [Ping timeout: 245 seconds]
slyrus2 has quit [Quit: slyrus2]
igemnace has joined #lisp
igemnace has quit [Client Quit]
_whitelogger has joined #lisp
meepdeew has joined #lisp
sabrac has joined #lisp
orivej has quit [Ping timeout: 250 seconds]
<sabrac>
Hello all
nanozz has joined #lisp
fckit has quit [Ping timeout: 272 seconds]
iovec has joined #lisp
dale has joined #lisp
anewuser has joined #lisp
<beach>
Hello sabrac.
FreeBirdLjj has joined #lisp
<sabrac>
Anyone have pointers on differences between ccl and sbcl on thread handling on linux that I should be paying attention to?
<sabrac>
I am running tests on postmodern and getting around a 2% failure rate using ccl that I am not seeing on sbcl
<sabrac>
failures having to do with talking to the network sockets
torbo has joined #lisp
<sabrac>
No issues with cmucl but ecl has about a 10% error rate complaining about attempts to access invalid memory address
amerlyq has quit [Quit: amerlyq]
jack_rabbit has joined #lisp
ggole has joined #lisp
Kundry_Wag has joined #lisp
Kundry_Wag has quit [Ping timeout: 250 seconds]
ahungry has quit [Remote host closed the connection]
akoana has joined #lisp
dddddd has quit [Remote host closed the connection]
dmiles has quit [Ping timeout: 250 seconds]
Kundry_Wag has joined #lisp
torbo has quit [Remote host closed the connection]
Kundry_Wag has quit [Ping timeout: 250 seconds]
xrash has quit [Ping timeout: 250 seconds]
krwq has quit [Remote host closed the connection]
_whitelogger has joined #lisp
orivej has joined #lisp
anewuser has quit [Quit: anewuser]
FreeBirdLjj has quit [Remote host closed the connection]
orivej has quit [Ping timeout: 250 seconds]
jack_rabbit has quit [Ping timeout: 260 seconds]
FreeBirdLjj has joined #lisp
meepdeew has quit [Remote host closed the connection]
FreeBirdLjj has quit [Remote host closed the connection]
FreeBirdLjj has joined #lisp
jack_rabbit has joined #lisp
pierpal has quit [Remote host closed the connection]
Kundry_Wag has joined #lisp
Kundry_Wag has quit [Read error: Connection reset by peer]
Kundry_Wag has joined #lisp
four has joined #lisp
fouric has quit [Ping timeout: 250 seconds]
Kundry_Wag has quit [Ping timeout: 250 seconds]
<four>
(defun hello () "hello, #lisp!")
<four>
(hello)
<beach>
Hello four.
<beach>
four: Are you new here? I don't recognize your nick.
orivej has joined #lisp
Oladon has joined #lisp
varjag has joined #lisp
varjag has quit [Ping timeout: 268 seconds]
Kundry_Wag has joined #lisp
angavrilov has joined #lisp
Kundry_Wag has quit [Ping timeout: 272 seconds]
<phoe>
heyyy
<beach>
Hello phoe.
<phoe>
Hey beach
* beach
vanishes to go to the store.
mrcom has quit [Read error: Connection reset by peer]
mrcom has joined #lisp
ggole has quit [Ping timeout: 260 seconds]
dmiles has joined #lisp
wxie has joined #lisp
random-nick has joined #lisp
ggole has joined #lisp
Kundry_Wag has joined #lisp
dale has quit [Quit: dale]
orivej has quit [Ping timeout: 240 seconds]
makomo has joined #lisp
Kundry_Wag has quit [Ping timeout: 250 seconds]
thinkpad has quit [Quit: lawl]
thinkpad has joined #lisp
Kundry_Wag has joined #lisp
Kundry_Wag has quit [Ping timeout: 250 seconds]
FreeBirdLjj has quit [Remote host closed the connection]
_whitelogger has joined #lisp
FreeBirdLjj has quit [Ping timeout: 268 seconds]
ggole has quit [Ping timeout: 250 seconds]
atgreen has joined #lisp
kajo has quit [Ping timeout: 250 seconds]
kajo has joined #lisp
Kundry_Wag has joined #lisp
Kundry_Wag has quit [Ping timeout: 245 seconds]
ggole has joined #lisp
marvin2 has quit [Ping timeout: 246 seconds]
cage_ has joined #lisp
wxie has quit [Ping timeout: 246 seconds]
robdog_ has joined #lisp
Zaab1t has joined #lisp
varjag has joined #lisp
FreeBirdLjj has joined #lisp
Mr-Potter has joined #lisp
FreeBirdLjj has quit [Ping timeout: 258 seconds]
<pjb>
sabrac: I guess the differences between threading implementations are embedded in bordeaux-threads.
FreeBirdLjj has joined #lisp
<jackdaniel>
sabrac: I was about to answer on ecl-devel mailing list to your question
<pjb>
minion: memo for krwq: In the case of oddp, it's implementation dependent since it returns a generalized boolean. But in the case of digit-char-p, the result is precisely specified. (however, all the main implementations return T from (oddp 3)).
<minion>
Remembered. I'll tell krwq when he/she/it next speaks.
<jackdaniel>
I was about to ask: do you use last ecl release or upstream code from git repository (branch develop)?
<jackdaniel>
because the latter had many fixes since the last release which purpose was to fix issues which are similar to what you have asked about
FreeBirdLjj has quit [Remote host closed the connection]
FreeBirdLjj has joined #lisp
Kundry_Wag has joined #lisp
trafaret1 has joined #lisp
<trafaret1>
hi there
<beach>
Hello trafaret1.
<trafaret1>
maybe anybody can help me, i'm not pro programmer but I want to know how to realise lisp function to calculate addr offset
<beach>
What do you mean by "addr offset"?
<akoana>
hi there
Kundry_Wag has quit [Ping timeout: 244 seconds]
FreeBirdLjj has quit [Ping timeout: 272 seconds]
<beach>
Hello akoana.
<trafaret1>
beach: I learning how to write app for PLC systems sometiems there are a lot of alike object I need to get memroy cell for some properties
<beach>
You want to get the address of a memory cell like you can do with pointer arithmetic in C?
<trafaret1>
yes
<beach>
trafaret1: Luckily you can't do that. That's one of the reasons Common Lisp is a much better programming language for applications that C is.
<trafaret1>
actually I write pascal like lanaguge name ST(structured text)
<beach>
I don't know what that means. Sorry. But maybe it's not important.
<akoana>
I'm working through Norvig's PAIP, why does the bank-account function (https://termbin.com/7gw1) works also without the #' in front of (lambda... or why it is needed. It works with and without #' - Just diving into learning Common Lisp - Thanks
fckit has joined #lisp
<akoana>
s/works/work/
<beach>
akoana: LAMBDA is a macro that expands to (function (lambda ...)) which is the same as #'lambda ...
<beach>
akoana: It is generally recommended these days to drop the #' in front of (lambda ...)
<akoana>
beach: ah, so #' is not necessary?
<beach>
For LAMBDA, that's correct.
<pjb>
Not in front of (lambda …)
<akoana>
beach: Thank you for clarification, I had to think a lot about this, are there any other "pitfalls" / ancient uses in PAIP?
<beach>
I can't remember. But I would guess that he is not using standard classes and generic functions as much as one would do these days.
<beach>
Otherwise, it's a great text.
nanozz has quit [Ping timeout: 272 seconds]
<akoana>
yes, amazing - thank you pjb and beach!
<beach>
Anytime.
FreeBirdLjj has joined #lisp
robotoad has quit [Quit: robotoad]
jack_rabbit has quit [Ping timeout: 258 seconds]
makomo has quit [Ping timeout: 245 seconds]
shifty has joined #lisp
isBEKaml has joined #lisp
ggole has quit [Ping timeout: 264 seconds]
Kundry_Wag has joined #lisp
heisig has joined #lisp
isBEKaml has quit [Quit: WeeChat 2.3]
Kundry_Wag has quit [Ping timeout: 272 seconds]
akoana has left #lisp ["Leaving"]
ggole has joined #lisp
hiroaki has joined #lisp
trafaret1 has quit [Ping timeout: 244 seconds]
scymtym has quit [Remote host closed the connection]
orivej has joined #lisp
st_iron has joined #lisp
<st_iron>
good afternoon
<LdBeth>
good evening
scymtym has joined #lisp
wxie has joined #lisp
frodef has joined #lisp
robdog_ has quit [Remote host closed the connection]
fckit has quit [Ping timeout: 240 seconds]
marm has joined #lisp
orivej has quit [Ping timeout: 240 seconds]
Mr-Potter has quit [Remote host closed the connection]
Mr-Potter has joined #lisp
Kundry_Wag has joined #lisp
Kundry_Wag has quit [Ping timeout: 246 seconds]
Mr-Potter has quit [Ping timeout: 240 seconds]
hiroaki has quit [Ping timeout: 268 seconds]
hiroaki has joined #lisp
wxie has quit [Ping timeout: 244 seconds]
JetJej has joined #lisp
Lycurgus has joined #lisp
dddddd has joined #lisp
thodg has joined #lisp
Kundry_Wag has joined #lisp
ggole has quit [Ping timeout: 245 seconds]
ggole has joined #lisp
Kundry_Wag has quit [Ping timeout: 246 seconds]
hiroaki has quit [Ping timeout: 260 seconds]
st_iron has left #lisp ["ERC (IRC client for Emacs 25.1.1)"]
hiroaki has joined #lisp
test1600 has joined #lisp
ggole has quit [Ping timeout: 246 seconds]
JetJej has quit [Quit: [Quit]]
Kundry_Wag has joined #lisp
<sabrac>
jackdaniel: Thank you. building new ecl now.
Kundry_Wag has quit [Ping timeout: 258 seconds]
themsay has joined #lisp
xrash has joined #lisp
Essadon has joined #lisp
Essadon has quit [Max SendQ exceeded]
Essadon has joined #lisp
yvy has joined #lisp
hiroaki has quit [Ping timeout: 268 seconds]
Oladon has quit [Quit: Leaving.]
Oladon has joined #lisp
Mr-Potter has joined #lisp
Lycurgus has quit [Quit: Exeunt]
McParen has joined #lisp
edgar-rft has quit [Read error: Connection reset by peer]
pjb has quit [Remote host closed the connection]
pjb has joined #lisp
xvx has joined #lisp
heisig has quit [Quit: Leaving]
yvy has quit [Read error: Connection reset by peer]
swflint has quit [Ping timeout: 264 seconds]
swflint has joined #lisp
xvx has quit [Quit: xvx]
mejja has joined #lisp
xvx has joined #lisp
nopf has quit [Quit: leaving]
Lord_of_Life_ has joined #lisp
Kundry_Wag has joined #lisp
Lord_of_Life has quit [Ping timeout: 246 seconds]
Lord_of_Life_ is now known as Lord_of_Life
nopf has joined #lisp
Kundry_Wag has quit [Ping timeout: 250 seconds]
random-nick has quit [Read error: Connection reset by peer]
shifty has quit [Ping timeout: 268 seconds]
orivej has joined #lisp
orivej has quit [Ping timeout: 240 seconds]
FreeBirdLjj has quit [Remote host closed the connection]
FreeBirdLjj has joined #lisp
FreeBirdLjj has quit [Ping timeout: 246 seconds]
orivej has joined #lisp
FreeBirdLjj has joined #lisp
puchacz has joined #lisp
<puchacz>
hi, to force finalisation of classes, shall I just make-instance of them?
<puchacz>
jackdaniel: thanks. the thing is that some function calls were complaining they were not finalised, so I discovered I can make-instance. if it is legal way, and not something that works by accident, I am happy with it.
<puchacz>
for what you are saying it is legal
<jackdaniel>
it is legal, yes
<puchacz>
oki, tks
<jackdaniel>
finalization is specified to take place "no later than the first instance of class is allocated"
<jackdaniel>
sure
<puchacz>
jackdaniel - it has been a looong time since I read AMOP :)
xvx has quit [Quit: xvx]
xvx has joined #lisp
pierpal has joined #lisp
FreeBirdLjj has quit [Remote host closed the connection]
thodg has quit [Quit: Lost terminal]
Kundry_Wag has joined #lisp
makomo has joined #lisp
<jackdaniel>
I haven't read it yet, so you are ahead anyway ;-)
Kundry_Wag has quit [Ping timeout: 245 seconds]
makomo has quit [Ping timeout: 245 seconds]
orivej has quit [Ping timeout: 258 seconds]
scymtym has quit [Ping timeout: 252 seconds]
nanoz has joined #lisp
Oladon has quit [Ping timeout: 244 seconds]
makomo has joined #lisp
emar has quit [Ping timeout: 246 seconds]
scymtym has joined #lisp
nanoz has quit [Ping timeout: 258 seconds]
mrcom has quit [Read error: Connection reset by peer]
themsay has quit [Ping timeout: 246 seconds]
dddddd has quit [Ping timeout: 245 seconds]
nowhere_man has quit [Ping timeout: 252 seconds]
X-Scale has quit [Ping timeout: 245 seconds]
xvx has quit [Quit: xvx]
X-Scale` has joined #lisp
xvx has joined #lisp
X-Scale` is now known as X-Scale
<asarch>
AMOP, "Another MetaObject Protocol"?
dddddd has joined #lisp
<thrig>
object spill, cleanup on aisle 3
<jackdaniel>
asarch: The Art of the Metaobject Protocol
<jackdaniel>
minion: tell asarch about amop
<minion>
asarch: have a look at amop: AMOP: The Art of the Metaobject Protocol, an essential book for understanding the implementation of CLOS and advanced OO. See <http://metamodular.com/CLOS-MOP>
<jackdaniel>
note that this link covers only two chapters of the book for which authors allowed publication. I think that for the rest you need to buy a book.
<puchacz>
is this the actual blueprint for cl-mop library?
<puchacz>
or the implementation departed from it?
Kundry_Wag has joined #lisp
<jackdaniel>
I don't know what is cl-mop (I guess it is somewhat similar to c2mop portability layer)
<jackdaniel>
as far as I'm concerned it is a blueprint, yes
<jackdaniel>
(c2mop - closer-to-mop
<jackdaniel>
)
orivej has joined #lisp
mrcom has joined #lisp
Kundry_Wag has quit [Ping timeout: 244 seconds]
<asarch>
Yeah, my mistake. I have that book
<asarch>
I bought it when I was learning to use Perl's Catalyst
<puchacz>
jackdaniel: same thing, (defpackage #:closer-mop .... (:nicknames #:c2mop) ....)
<puchacz>
right, there is no cl-mop :) I was writing it and having slime autocomplete to closer-mop :)
cage_ has quit [Remote host closed the connection]
Kundry_Wag has joined #lisp
test1600 has quit [Quit: Leaving]
Kundry_Wag has quit [Ping timeout: 250 seconds]
v0|d has joined #lisp
anewuser has joined #lisp
krwq has joined #lisp
xvx has quit [Quit: xvx]
aindilis has quit [Remote host closed the connection]
karlosz has joined #lisp
aindilis has joined #lisp
JetJej has quit [Quit: [Quit]]
xvx has joined #lisp
puchacz has quit [Quit: Konversation terminated!]
yvy has joined #lisp
v0|d has quit [Remote host closed the connection]
jmercouris has joined #lisp
orivej has quit [Ping timeout: 246 seconds]
Kundry_Wag has joined #lisp
angavrilov has quit [Remote host closed the connection]
Kundry_Wag has quit [Ping timeout: 258 seconds]
krwq has quit [Remote host closed the connection]
xvx has quit [Quit: xvx]
verisimilitude has quit [Remote host closed the connection]
<aindilis>
guys I have a dumb question. I'm on ABCL and I have some files in a subdirectory. when I try to load the main file (load "subdirectory/mainfile") it thinks its in the parent of subdirectory, and won't load subdirectory/dependency1 etc. how can I get it to load them?
orivej has joined #lisp
<aindilis>
(setq *load-pathname* "/.../subdirectory/") had no effect
<frgo>
aindilis: Do you know ASDF?
<aindilis>
no
<aindilis>
I only know Emacs Lisp
<frgo>
Oh emacs ...
<jmercouris>
aindilis: Install slime, start slime, open the file then slime-load-buffer or something I think is what its called
<jmercouris>
or slime-load-file
<jmercouris>
aindilis: really thought, if you have an asdf file file with .asd suffix, what you'll want to do is load the system defined in that file
<frgo>
Slime works with Emacs as the lisp implementation?
<jmercouris>
to do that you'll have to place the file in ~/local/common-lisp or some other such directory as defined by your configuration
<jmercouris>
frgo: I didn't say that
<frgo>
jmercouris: He's talking about Emacs lisp, not some CL implementation
<jmercouris>
frgo: I said he can use slime to fire up a REPL, and then load his file into the image via Slime
<jmercouris>
frgo: I'm pretty sure he isn't becuase if you read his first message he said "I'm on ABCL"
<frgo>
jmercouris: IIRC he can't. He's on Emacs lisp.
<jmercouris>
HE IS NOT on Emacs Lisp, see above
<aindilis>
sorry, I only know Emacs Lisp, but the system I am working on is ABCL
<jmercouris>
linking to the ASDF page is basically no help at all
<jmercouris>
you might as well tell him to through his computer out the window
<jmercouris>
ASDF is a tool used to manage common lisp projects, bundles of related tools, these are called "systems", a system contains modules, files, etc
<frgo>
Well, without knowing ASDF it will be a lot of manual loading...
<frgo>
But yeah - you know the world.
<aindilis>
I was hoping that I could just set like an additional load path and then load the main
<jmercouris>
ASDF also helps manage dependencies with regards to other systems
<jmercouris>
aindilis: you will need to move the project to a path locatable by ASDF
<jmercouris>
and then, within your slime REPL, you will do something like load-sytem, and then specify your system name containd within the *.asd file in your project
<aindilis>
okay I'll give it a shot, and come back here if I cannot get it.
<jmercouris>
the installation instructions are very straightforward
<jmercouris>
then you can (ql:quickload :your-system-name) and it will fetch all the dependencies for your system
<aindilis>
k, will do, thanks again to both of you for your help!
<jmercouris>
Don't thank him, he was mostly antagonistic, but no problem!
<jmercouris>
s/through/throw
<jmercouris>
aindilis: last thing of important notice, when you are in the slime repl, type in "," and you'll see all the commands you can invoke, quite handy
shv4 has joined #lisp
<frgo>
aindilis: Thanks. Hope you get it working.
frgo has left #lisp [#lisp]
McParen has left #lisp [#lisp]
Kundry_Wag has joined #lisp
yvy has quit [Ping timeout: 272 seconds]
rippa has quit [Quit: {#`%${%&`+'${`%&NO CARRIER]
Kundry_Wag has quit [Ping timeout: 258 seconds]
<pjb>
aindilis: set *default-pathname-defaults* ; the path you give to load or compile-file are passed to open, and the paths passed to open are merged with *default-pathname-defaults* by maerge-pathnames.
karlosz has quit [Quit: karlosz]
<pjb>
Furthermore, if *default-pathname-defaults* is "empty", such as #P"" or #P"./", the POSIX current working directory may be used to resolve the relative pathname obtained by (merge-pathnames "subdirectory/mainfile" *default-pathname-defaults* nil).
<pjb>
You could do something like (setf *default-pathname-defaults* #P"/path/to/your/project/directory/")
<pjb>
aindilis: *load-pathname*, *load-truename*, *compile-file-pathname* and *compile-file-truename* are bound by load and by compile-file while loading or compiling a file, so the file may know who it is (and eg. access other files relatively to their own path).
<aindilis>
YAY!
<aindilis>
ty!
<aindilis>
pjb: worked
v0|d has joined #lisp
mange has joined #lisp
<pjb>
aindilis: so, basically, (defun cd (path) (setf *default-pathname-defaults* path)) ; but you may want to add also the implementation specific way to set the POSIX current working directory. And you should take into account that *default-pathname-defaults* lets you provide defaults also for the host, the name, the type, or the version of the pathname.
lavaflow has quit [Read error: No route to host]
lavaflow has joined #lisp
dale has joined #lisp
lavaflow has quit [Read error: Connection reset by peer]
lavaflow has joined #lisp
slyrus_ has quit [Ping timeout: 272 seconds]
Kundry_Wag has joined #lisp
Kundry_Wag has quit [Ping timeout: 250 seconds]
asarch has quit [Quit: Leaving]
jmercouris has quit [Remote host closed the connection]
jprajzne has quit [Quit: jprajzne]
robotoad has quit [Ping timeout: 258 seconds]
Oladon has joined #lisp
robotoad has joined #lisp
eschatologist has quit [Remote host closed the connection]
shv4 has quit [Remote host closed the connection]
ebrasca has quit [Remote host closed the connection]
eschatologist has joined #lisp
mejja has quit [Quit: mejja]
varjag has quit [Quit: ERC (IRC client for Emacs 26.1)]