LispForum

Oh, integers of course. OK, I had dim memories there was something like that in this book... time to look into it again. Thanks!

Thanks for the last version. That wasn't a serious test, actually there are many non-trivial ways to round up to the closest power of two fast (or, perhaps even faster then your suggestion). I realize now that floor is not the culprit, but why would log cons any memory? Is this something that is inh...

Below is my complete test: (defun next-power-two-loop (x) (declare (optimize (debug 0) (safety 0) (space 0) (speed 3))) (declare (type fixnum x)) (if (and (> x 0) (= (logand x (1- x)) 0)) x (loop with result fixnum = 1 do (setq result (ash result 1)) do (when (> result x) (return result))))) (defun ...

Hm... after some thought... how many bits is a fixnum on a 64 bit system? I think this must have been a problem then. In my test no value is larger then 2^31, but what if they can't be even this big and it creates long integers?

I've looked into all rounding / truncating / flooring functions that I know, but all of them return multiple values, and, as an artefact, even if the second value isn't used, they create and immediately dispose of new conses. This later causes GC to kick in and can slow down the execution at random ...

Oh, sorry, I've totally missed this reply! Although, too late, thanks!

Hi. I'm trying to come up with a simple table to object mapping (a learning exercise for now, not a real thing). Below is my code, where I can achieve what I need, but in a clumsy way: (defclass db-object () ()) (defun slot-list-from-query (query) (format t "slot-list-from-query: ~s~&"...

You could do a doubly linked list - that way finding the parent of the leaf becomes trivial, but another, perhaps simpler way, if all nodes are unique would be to have a hash-map alongisde the list, which would contain all nodes in the format key = child, value = parent.

One more way to do it: (defun example () (loop for (a b) in '((:question "A?" :answer "A!") (:question "B?" :answer "B!") (:question "C?" :answer "C!")) do (format t "a: ~s, b: ~s~&" a b))) This is called destructuring bind, h...

Aha, I see, thanks for clarification!