ecl-devel August 2016

ecl-devel@common-lisp.net

4 participants
4 discussions

Ecl fails to compile under visual studio enterprise 2015
by lucaregini＠yahoo.it 01 Sep '16

01 Sep '16

Hi All,I have attempted unsuccesfully to compile Ecl under VS 2015 enterprise.I have simply run the nmake command from a VS2015 x86 command prompt with the makefile left untouched.This is what I am getting: ../ecl/ecl.h(33): warning C4005: 'va_copy': macro redefinition../ecl/config.h(450): warning C4005: 'isnan': macro redefinition ../../src/c/file.d(5324): error C2039: '_cnt': is not a member of '_iobuf' Any clue?Regards,Luca

3 2

Problems with quicklisp under windows
by lucaregini＠yahoo.it 01 Sep '16

01 Sep '16

I have downloaded and installed the prebuild version of ECL 16.1.2 for windows. The installation folder has been set to C:\ecl. When I try to run (require 'ecl-quicklisp) I am getting the following errors: > (require 'ecl-quicklisp) ;;; Loading #P"C:/ECL/ecl-quicklisp.fas" Condition of type: SIMPLE-ERROR LOAD: Could not load file #P"C:/ECL/ecl_quicklisp.fas" (Error: "The operation completed successfully. ") Regards,L

2 1

quicklisp without gcc
by Peter Münster 16 Aug '16

16 Aug '16

Hello, I would like to use quicklisp on a mips target without gcc. Thanks to the howto¹ by Attila Lendvai, I've installed ecl successfully on the target (an Asus router), but installing quicklisp fails: --8<---------------cut here---------------start------------->8--- ; Fetching #<url "http://beta.quicklisp.org/asdf/2.26/asdf.lisp"> ; 194.07KB ================================================== 198,729 bytes in 0.19 seconds (1016.08KB/sec) Condition of type: FILE-ERROR Filesystem error with pathname #P"SYS:CMP.NEWEST". Either 1) the file does not exist, or 2) we are not allowed to access the file, or 3) the pathname points to a broken symbolic link. Available restarts: 1. (RESTART-TOPLEVEL) Go back to Top-Level REPL. Broken at QL-SETUP::ASDF-FASL-PATHNAME. In: #<process TOP-LEVEL>. File: #P"/home/peter/quicklisp/setup.lisp" (Position #0) --8<---------------cut here---------------end--------------->8--- How could this problem be solved please? TIA for any hints, -- Peter ¹ https://www.mail-archive.com/ecl-devel@common-lisp.net/msg00033.html

2 9

Sleeping process not reported as sleeping
by Elias Pipping 03 Aug '16

03 Aug '16

Dear list, I’m trying to find out how different lisp compilers handle external processes(*). As a part of that, I’ve created a short piece of code that launches an external process, sends it SIGSTOP, asks its about its well-being, and allows its to go about its business again by sending SIGCONT. I would expect that ext:external-process-status consequently reports (1) :running before SIGSTOP is sent (2) then :stopped (3) then :running again once SIGCONT was received (4) and finally :exited. Indeed, that is what `ps` would do if you ran it on the command line (so I’ve added that to the example for comparison). Here’s the output of my script: external status: [S] (expected: [S]) internal status: RUNNING (expected: running) external status: [T] (expected: [T]) internal status: RUNNING (expected: stopped) external status: [S] (expected: [S]) internal status: RUNNING (expected: running) external status: [ ] (expected: [] or [Z]) internal status: EXITED (expected: exited) My expectations aren’t met in (2) and (3): Even though according to https://common-lisp.net/project/ecl/manual/rn01re63.html the status of a process can be :stopped, and the process is clearly stopped, it is not reported as such. So I’d like to ask: Is this a bug or intentional? Elias Pipping (*) I’ve already sent very similar messages to openmcl-devel and sbcl-devel. PS: Here’s the script that I used (the aforementioned messages used an earlier version): ;; careful with cmucl. it doesn't actually sleep when external processes ;; are around https://gitlab.common-lisp.net/cmucl/cmucl/issues/26 #+clozure (use-package :ccl) #+sbcl (use-package :sb-ext) #+cmu (use-package :ext) #+clozure (setf (fdefinition 'process-output) #'external-process-output-stream) #+ecl (setf (fdefinition 'process-output) #'ext:external-process-output) #+ecl (setf (fdefinition 'run-program) #'(lambda (&rest rest) (nth-value 2 (apply #'ext:run-program rest)))) (defconstant +sigstop+ #+clozure (symbol-value (read-from-string "#$SIGSTOP")) #+cmu (unix:unix-signal-number :sigstop) #+ecl ext:+sigstop+ #+sbcl (progn (require :sb-posix) (symbol-value (find-symbol (symbol-name :sigstop) (find-package :sb-posix))))) (defconstant +sigtstp+ #+clozure (symbol-value (read-from-string "#$SIGTSTP")) #+cmu (unix:unix-signal-number :sigtstp) #+ecl ext:+sigtstp+ #+sbcl (progn (require :sb-posix) (symbol-value (find-symbol (symbol-name :sigtstp) (find-package :sb-posix))))) (defconstant +sigcont+ #+clozure (symbol-value (read-from-string "#$SIGCONT")) #+cmu (unix:unix-signal-number :sigcont) #+ecl ext:+sigcont+ #+sbcl (progn (require :sb-posix) (symbol-value (find-symbol (symbol-name :sigcont) (find-package :sb-posix))))) (defun internal-status (process) #+clozure (external-process-status process) #+(or sbcl cmu) (process-status process) #+ecl (ext:external-process-status process)) (defun external-kill (pid signal) (run-program "/usr/bin/env" (list "kill" (format nil "-~a" signal) (format nil "~a" pid)))) ;; ecl does not support writing to a string stream (defun external-status (pid) (let* ((arg-list (list "ps" "-h" "-p" (format nil "~a" pid) "-o" "state")) (process (run-program "/usr/bin/env" arg-list :output :stream)) (output (process-output process)) ; we expect a single letter (target (make-string 1))) (read-sequence target output) target)) (defun get-pid (process) #+clozure (ccl::external-process-pid process) #+ecl (ext:external-process-pid process) #+(or sbcl cmu) (process-pid process)) (let* ((p (run-program "/usr/bin/env" '("sleep" "3") :wait nil)) (pid (get-pid p))) (format t "external status: [~a] (expected: [S])~%" (external-status pid)) (format t "internal status: ~a (expected: running)~%" (internal-status p)) (external-kill pid +sigstop+) (sleep 1) (format t "external status: [~a] (expected: [T])~%" (external-status pid)) (format t "internal status: ~a (expected: stopped)~%" (internal-status p)) (external-kill pid +sigcont+) (sleep 1) (format t "external status: [~a] (expected: [S])~%" (external-status pid)) (format t "internal status: ~a (expected: running)~%" (internal-status p)) (sleep 3) (format t "external status: [~a] (expected: [] or [Z])~%" (external-status pid)) (format t "internal status: ~a (expected: exited)~%" (internal-status p)))

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

ecl-devel August 2016