[cl-ncurses-devel] alive?

[Julian Stecklina]

Jacob Gabrielson wrote:
> I recently took over the project from Marcelo Ramos (whom neither I nor 
> Erik Enge could successfully contact, although he's certainly welcome to 
> re-take it over if he wants to).  There's now an SVN repository 
> available, which should have your patch, plus a couple more minor 
> changes.  If someone wants to try it out and let me know if it works for 
> them I'll release it as the latest build.

Yes, I am still there. ;) The version from the repository compiles fine 
and some simple tests do what they should (Gentoo x88 with SBCL 1.0.4). 
With one exception: /usr/lib/libncurses.so is a linker script on my 
platform (Gentoo x86) which refers to /lib/libncurses.so, which cannot 
be loaded by SBCL. I reversed the order in which the code looks for the 
library:


--- package.lisp	(revision 14)
+++ package.lisp	(working copy)
@@ -29,7 +29,7 @@

  (in-package :cl-ncurses)

-(defvar *ncurses-search-paths* '("/usr/local/lib/" "/usr/lib/" "/lib/")
+(defvar *ncurses-search-paths* '("/lib/" "/usr/lib/" "/usr/local/lib/")
    "The paths where to search the ncurses shared library")

  (defparameter *ncurses-path*

On a related sidenote, the test program I used also had a bug (declaring 
symbols from the CL package special):

--- tests/scroll-test.lisp	(revision 14)
+++ tests/scroll-test.lisp	(working copy)
@@ -29,7 +29,7 @@
  			       str)))
    t)

-(defvar max 100)
+(defvar *max* 100)

  ;; This function creates two scrolling regions, which scroll
  ;; simultaneously...
@@ -73,7 +73,7 @@
  	(wrefresh win2)
  	
  	(do ((n 3 (incf n)))
-	  ((eql n (+ max 1)))
+	  ((eql n (+ *max* 1)))
  	  (if (>= (+ n 2) 16)
  	    (progn (write-number win1 16 1 n t)
  		   (wrefresh win1)


Regards,
Julian