Search
Sunday, 2nd of September 2018, 2:13:03 UTC
3:07:55
beach
Good morning everyone!
4:15:12
drmeister
Say I have a vector of some number type and I want to convert it to a vector of single-floats - I have to convert the elements one by one - right?
4:19:23
beach
Yes, (map-into v #'float v)
4:20:39
beach
Or something slightly more complicated.
4:21:20
beach
(map-into v (lambda (x) (float x 1s0)) v)
5:01:51
drmeister
Plotting graphs in jupyterlab using Common Lisp...
5:01:54
drmeister
https://usercontent.irccloud-cdn.com/file/0CgQZAFY/image.png
5:17:37
drmeister
https://usercontent.irccloud-cdn.com/file/31VxUYkw/image.png
5:27:32
SaganMan
Morning beach. How are you? How is your research going?
5:32:43
beach
SaganMan: I am fine, thank you. I have been making excellent progress on bootstrapping the past few days. What about you?
5:33:24
SaganMan
beach: I'm good. The business is going fine.
5:33:35
beach
Great! What is your business?
5:34:38
SaganMan
beach: I'm in my family business. It's real estate and construction. We take land for development and construct apartments.
5:35:12
SaganMan
beach: this is our latest project http://www.ashirvaadbuildtech.com/
5:36:00
SaganMan
beach: It's in Bangalore which is IT hub in India.
5:37:32
beach
Hey no-defun-allowed.
5:37:38
SaganMan
beach: We don't usually do projects on that grand scale. That is the biggest investment in mine and my father's life. It looks impressive but it's great risk and stress.
5:43:26
no-defun-allowed
i think i could generalise the cl-vep image generator a bit
6:20:48
no-defun-allowed
well my ffmpeg interface is still shitslow at 4fps but the videos aren't broken now
11:26:09
makomo
pjb: i managed to find one occurence of the (4) (3) ordering, https://www.hexstreamsoft.com/libraries/place-utils/#funcallf-applyf
11:26:38
makomo
granted, funcallf is just _f in disguise, but the evaluation order has been explictily documented (and therefore thought through)
12:14:41
adlai
"risk and stress" ... yep, that sounds like components of the construction Hamiltonian. story checks out!
12:20:25
phoe
ftp://ftp.ai.mit.edu/people/naha/WordNet/WordNet.html
12:20:38
phoe
I wonder if this runs on contemporary Lisps
12:27:17
phoe
#+Genera (scl:defsystem WordNet ...)
12:27:44
phoe
This code was done in 1995
12:35:53
phoe
...and it does contain curse words
12:48:12
phoe
I'm running code that's fifteen years old and the only thing that was really required is fixing it to use ASDF.
12:50:02
phoe
I have something for you, beach - this thing has a CLIM browser. (:
12:52:05
_death
phoe: check copyright date range @ https://bitbucket.org/dfmorrison/roan/src/e43b5ae8af0aba6930f0183a4afbc7e3e004da1e/roan.lisp?at=master&fileviewer=file-view-default
13:08:46
smokeink
compiling nodes question http://pastecode.ru/8ef7b9/
13:10:18
pjb
phoe: https://www.informatimago.com/develop/lisp/com/informatimago/small-cl-pgms/wang.html if you can run that, then wordnet!
13:10:28
Bike
smokeink: no. as a parameter to f, A is a lexical variable.
13:11:06
Bike
i'm not really sure what you're trying to do here, though.
13:11:43
pjb
smokeink: add a (declare (special a) in the lambda.
13:12:10
pjb
smokeink: have a look at https://www.informatimago.com/articles/usenet.html#C-like-pointers-in-Lisp
13:13:31
pjb
Sorry, I mean (declare (special myvar) in the let.
13:15:19
pjb
smokeink: your code is full of bug, that's why I cannot say anything consistent about it.
13:15:52
pjb
(quote apple) is not a function, so compile-node will return nil anyways.
13:16:18
pjb
and there's no link between f and compile-node.
13:17:06
phoe
(defun foo (...) (declare (values ...)))
13:17:16
phoe
That's a strange declaration
13:17:24
smokeink
pjb: ignore f, I first typed that f function to specifically ask whether myvar can access that a in some way or not
13:17:28
Bike
that's in what, clisp or something? to indicate return value types
13:17:44
smokeink
I have two types of nodes , I only presented one type of node in that "example"
13:17:55
smokeink
terminal nodes have symbols in them
13:18:05
smokeink
nonterminal nodes have functions in them (instead of that 'apple )
13:18:26
pjb
smokeink: it can. Just declare a as special.
13:18:53
pjb
smokeink: why do you use lists with the quote symbol as first element?
13:18:59
pjb
This is useless and confusing.
13:18:59
smokeink
I just wrote a snippet, I didn't paste my actual code because the actual code has other unnecessary details
13:19:27
smokeink
pjb: that was a typo , that node is just `(root apple) , nothing else
13:19:38
pjb
Well, they you get those answers above, instead of the actual answer.
13:19:47
pjb
I'll try to add typoes too.
13:20:28
smokeink
I should have typed it as `(root apple) or as (list 'root 'apple)
13:21:49
phoe
(get-synonyms "horse" :noun) ;=> (("horse" 0) ("horse_cavalry" 1) ("cavalry" 1) ("horse" 0) ("Equus_caballus" 0) ("horse" 3) ("gymnastic_horse" 0) ("sawhorse" 0) ("horse" 1) ("sawbuck" 0) ("buck" 0))
13:22:58
pjb
smokeink: you test for (functionp myvar) and then in the case you test for symbols. Therefore the case will always return nil, if myvar is bound to a function, and the IF will return nil if not.
13:23:38
pjb
smokeink: a compiler can detect that at compilation time, so it can generate (lambda (a b) (declare (ignore a b)) nil) instead.
13:23:46
smokeink
ahh , I had a funcall there, forgot to type it
13:25:02
smokeink
http://pastecode.ru/9430ad/ fixed the two typos
13:25:51
pjb
smokeink: ok, better. Now what is the question?
13:26:22
pjb
This compile-node function seems to be doing something.
13:27:09
smokeink
no question for now, I'll first try to see if declaring vars special will work well or not
13:27:37
smokeink
thanks for the quick response
13:28:19
pjb
https://gitlab.com/snippets/1750435
13:31:31
pjb
smokeink: reload https://gitlab.com/snippets/1750435 I've added a few lines.
13:35:00
phoe
How is that code licensed though?
13:35:15
phoe
I assume it has been published back in the day when hardly anyone thought of licenses
13:35:31
phoe
But it would be bold for me to assume any license at all if the author put none on it.
13:36:28
pjb
Just locate the author and ask them.
13:36:48
phoe
pjb: I did. All I have is the email address @ai.mit.edu which might or might not work after all these years.
13:39:01
phoe
And googling for the person reveals last traces of activity in 2001.
13:39:18
phoe
Wait. No. This code is 23 years old.
13:42:14
pjb
(- 2018 2001) #| --> 17 |# it's consistent.
13:47:20
phoe
Well. Last traces of activity are from 17 years ago.
13:47:35
phoe
And the domain .ai.mit.edu is no longer active - it redirects elsewhere.
13:51:05
phoe
pjb: there's no mailserver at ai.mit.edu. I have no direct means of contacting the author.
13:57:03
pjb
phoe: the "copyright" seems to be: 1995, Mark Nahabedian
13:58:00
phoe
pjb: yes, exactly, I've googled the person.
13:58:05
pjb
phoe: since it comes from the MIT, it might be under the MIT license. But you'd need confirmation.
13:59:39
pjb
Have you tried Mark Nahabedian <Naha@AI.MIT. EDU>?
14:00:05
phoe
pjb: there's no mailserver at ai.mit.edu.
14:01:29
pjb
phoe: it might be at Google/ITA: https://imagebin.ca/v/4EK069bhAQj2
14:04:11
phoe
https://groups.google.com/forum/?hl=uk&nomobile=true#!topic/golang-nuts/Lo0UPRd0wb4
14:04:19
phoe
They seemingly do Golang nowadays.
14:04:37
phoe
That message is from just a few days ago.
14:05:20
phoe
Oh boy, not only I'm doing programming, I'm also doing archaeology
14:10:47
oni-on-ion
aeth: check out recent release notes if you havnt already, http://www.sbcl.org/all-news.html , like 1.4.10 adding or subtracting 1 from a fixnum does not cons. =)
14:11:18
smokeink
optimization question http://pastecode.ru/3b8a06/
14:12:33
pjb
smokeink: have a look at the sources of the sbcl or sicl compilers?
Sunday, 2nd of September 2018, 14:13:03 UTC