Long warning when installing foreigners added by wasamasa on Sat Jul 16 23:35:35 2016
retrieving ... connecting to host "chicken.kitten-technologies.co.uk", port 80 ... requesting "/henrietta.cgi?name=foreigners&mode=default" ... reading response ... HTTP/1.1 200 OK Date: Sat, 16 Jul 2016 21:34:44 GMT Server: Apache/2.2.29 (Unix) DAV/2 SVN/1.8.10 PHP/5.4.32 mod_fastcgi/2.4.6 Connection: close Transfer-Encoding: chunked Content-Type: text/plain reading chunks . reading files ... ./foreigners.setup ./foreigners.meta ./foreigners.scm foreigners located at /tmp/temp33d4.25332/foreigners checking platform for `foreigners' ... checking dependencies for `foreigners' ... install order: ("foreigners") installing foreigners:1.4.1 ... changing current directory to /tmp/temp33d4.25332/foreigners '/home/wasa/.chickens/4.11/bin/csi' -bnq -setup-mode -e "(require-library setup-api)" -e "(import setup-api)" -e "(setup-error-handling)" -e "(extension-name-and-version '(\"foreigners\" \"1.4.1\"))" 'foreigners.setup' '/home/wasa/.chickens/4.11/bin/csc' -feature compiling-extension -setup-mode -s -O2 -d2 foreigners.scm -j renaming -j foreigners '/home/wasa/.chickens/4.11/bin/csc' -feature compiling-extension -setup-mode -s -O2 -d0 foreigners.import.scm Warning: variable bound multiple times in let construct %declare (let5844 ((%declare (r (quote declare))) (%foreign-declare (r (quote foreign-declare))) (%begin (r (quote begin))) (%define (r (quote define))) (%foreign-lambda* (r (quote foreign-lambda*))) (%if (r (quote if))) (%let (r (quote let))) (%lambda (r (quote lambda))) (%declare (r (quote declare))) (%syntax-error (r (quote syntax-error))) (%and (r (quote and))) (%fx>= (r (quote fx>=))) (%fx< (r (quote fx<)))) (quasiquote ((unquote %begin) (unquote-splicing (if (pair? name) (quote ()) (quasiquote (((unquote %declare) ((unquote %foreign-declare) (unquote (string-intersperse (append (cons (string-append "struct " (->string name) " { ") (map (lambda (slot) (##sys#check-syntax (quote define-foreign-record-type) slot (quote (_ _ _ . _))) (if (pair? (cadr slot)) (sprintf "~A[~A];" (##compiler#foreign-type-declaration (car slot) (->string (caadr slot))) (cadadr slot)) (sprintf "~A;" (##compiler#foreign-type-declaration (car slot) (->string (cadr slot)))))) slots)) (list "};")) "\n")))))))) (unquote-splicing (if (not ctor) (quote ()) (quasiquote (((unquote %define) (unquote ctor) ((unquote %foreign-lambda*) (unquote tname) () (unquote (sprintf "return((~a *)C_malloc(sizeof(~a)));" fname fname)))))))) (unquote-splicing (if (not dtor) (quote ()) (let ((ptr (gensym))) (quasiquote (((unquote %define) ((unquote dtor) (unquote ptr)) (and (unquote ptr) (##core#inline "C_qfree" (unquote ptr))))))))) (unquote-splicing (map (lambda (slot) (##sys#check-syntax (quote define-foreign-record-type) slot (quote (_ _ _ . _))) (let* ((type (car slot)) (namesz (cadr slot)) (type2 (stype type)) (getr (caddr slot)) (setr (cdddr slot))) (if (pair? namesz) (let ((sname (car namesz)) (size (cadr namesz)) (var (gensym)) (cvar (gensym)) (svar (gensym)) (xvar (gensym))) (quasiquote ((unquote %begin) ((unquote %define) (unquote getr) ((unquote %let) (((unquote cvar) ((unquote %foreign-lambda*) (unquote type2) (((unquote tname) (unquote var)) ((unquote %int) (unquote svar))) (unquote (sprintf "return(~A~A->~A[~A]);" (if (not (strtype type)) "" "&") var sname svar))))) ((unquote %lambda) ((unquote var) (unquote svar)) ((unquote %if) (##core#check ((unquote %and) ((unquote %fx>=) (unquote svar) 0) ((unquote %fx<) (unquote svar) (unquote size)))) ((unquote cvar) (unquote var) (unquote svar)) ((unquote %syntax-error) (quote define-foreign-record) "array access out of range" (quote (unquote tname)) (quote (unquote svar)) (unquote size)))))) (unquote-splicing (if (null? setr) (quote ()) (if (eq? type type2) (quasiquote (((unquote %define) (unquote (car setr)) ((unquote %let) (((unquote cvar) ((unquote %foreign-lambda*) (unquote %void) (((unquote tname) (unquote var)) ((unquote %int) (unquote svar)) ((unquote type) (unquote xvar))) (unquote (sprintf "~A->~A[~A] = ~A;" var sname svar xvar))))) ((unquote %lambda) ((unquote var) (unquote svar) (unquote xvar)) ((unquote %if) (##core#check ((unquote %and) ((unquote %fx>=) (unquote svar) 0) ((unquote %fx<) (unquote svar) (unquote size)))) ((unquote cvar) (unquote var) (unquote svar) (unquote xvar)) ((unquote %syntax-error) (quote define-foreign-record) "array access out of range" (quote (unquote tname)) (quote (unquote svar)) (unquote size)))))))) (quote ()))))))) (let ((sname (cadr slot)) (var (gensym)) (xvar (gensym))) (quasiquote ((unquote %begin) ((unquote %define) (unquote getr) ((unquote %foreign-lambda*) (unquote type2) (((unquote tname) (unquote var))) (unquote (sprintf "return(~A~A->~A);" (if (not (strtype type)) "" "&") var sname)))) (unquote-splicing (if (null? setr) (quote ()) (if (eq? type type2) (quasiquote (((unquote %define) (unquote (car setr)) ((unquote %foreign-lambda*) (unquote %void) (((unquote tname) (unquote var)) ((unquote type) (unquote xvar))) (unquote (sprintf "~A->~A = ~A;" var sname xvar)))))) (quote ())))))))))) slots))))) cp -r 'foreigners.so' '/home/wasa/.chickens/4.11/lib/chicken/8/foreigners.so' chmod a+r '/home/wasa/.chickens/4.11/lib/chicken/8/foreigners.so' cp -r 'foreigners.import.so' '/home/wasa/.chickens/4.11/lib/chicken/8/foreigners.import.so' chmod a+r '/home/wasa/.chickens/4.11/lib/chicken/8/foreigners.import.so' chmod a+r '/home/wasa/.chickens/4.11/lib/chicken/8/foreigners.setup-info'