LispForum

This is the fastest I have found so far: (defun array-to-list (array) (let* ((dimensions (array-dimensions array)) (depth (1- (length dimensions))) (indices (make-list (1+ depth) :initial-element 0))) (labels ((recurse (n) (loop for j below (nth n dimensions) do (setf (nth n indices) j) collect (if ...

Can you help me figure out how to define my library, I have 1 .asd file now with all my main code and another asd file(gc.asd) that depends on it's 20 or so files completly except it has 1 lisp file with all the garbage collected versions of the functions that would need garbage collecting in the ma...

Actually CFFI has a way but it is slow. If you have CFFI installed you can go like this: (cffi:defcenum :mouse-event-enum (:cv-event-mouse-move 0)) (cffi:foreign-enum-value :mouse-event-enum :cv-event-mouse-move ) and the output is 0 so in a function that accepts a constant as an &optional value...

Or never mind...I just found out how to create a 2d pointer array...that was CFFI btw (cffi::foreign-array-alloc (make-array '(4 2) :initial-contents (list (list (cffi:foreign-alloc :pointer :initial-element (c-pointer (point 1 2))) (cffi:foreign-alloc :pointer :initial-element (c-pointer (point 1 2...

;I got this whittled down as much as I can...for some reason I cant call (aref arg i) in a cond statement twice in a row. I do have to verify it is a vector 2 different ways, before I run (aref arg 0) and (aref arg i) as below...How can I do this?...I'm getting deleting unreachable code error. (defu...

Now I use the SWIG defanonenum: (defmacro defanonenum (&body enums) "Converts anonymous enums to Lisp constants." `(cl:progn ,@(cl:loop for value in enums for index = 0 then (cl:1+ index) when (cl:listp value) do (cl:setf index (cl:second value) value (cl:first value)) collect `(cl:def...

I was hoping someone could look at this and help me debug it. I'm getting: (FOREIGN-ALLOC :POINTER :INITIAL-ELEMENT (NULL-POINTER)) is not of type SB-SYS:SYSTEM-AREA-POINTER. when I run it. (foreign-array-alloc #2A(( (foreign-alloc :pointer :initial-element (null-pointer)) (foreign-alloc :pointer :i...

In my library I have 2 .asd files,the main .asd file and another .asd file that has 1 module with 2 files that depend on the 20 or so files in my main .asd file. I have the smaller.asd file because it has functions that are garbage collected that have the same name as non GC functions in my main .as...

Thank you very much that worked perfect

Normally I can do (defparameter N 1) and run "N" at the repl and it would output 1. Well I have variables from another package I need to setf to the variable "A"(for example)...The variables can be anything but they all start with the prefix "cv::" w/o quotes eg cv::b, ...