[cl-ncurses-devel] alive?

[Jacob Gabrielson]

Ok, that change should now be in SVN as well.  I also added /usr/lib64 to
get this working on x64 Centos 5 (and probably other platforms).

Thanks!

-- Jacob

On 5/22/07, Julian Stecklina <der_julian at web.de> wrote:
>
> 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
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-ncurses-devel/attachments/20070522/5a37a7d4/attachment.html>