cmucl-imp

cmucl-imp@common-lisp.net

11 discussions

CMUCL-chain taking off
by adrian.pasieka＠ai.pressiton.com 03 Aug '21

03 Aug '21

Hello, Firstly, kindly thank You to Mr Raymond Toy for his patience when I tried to learn CMUCL. Now is time to do something concrete, i.e. to build a CMUCL-chain. Some elements are already completed (very simple version). The goal is to create a commercial CMUCL-chain, not easy, but worth trying. I would need some help with CREATE-INET-LISTENER. CREATE-INET-LISTENER is the ports opener, a critical moment from the cyber-security standpoint. Explanation of the DEFUN below, the proposals inside, and the questions at the very end. The names like "af-inet-mod-1" and "create-inet-listener-mod-1" are in fact COPIES from sources. I have only added :ALIEN, :C-CALL :UNIX descriptions, to know what is coming from where. create-inet-listener-mod-1 = CREATE-INET-LISTENER, in sources. (DEFUN create-inet-listener-mod-1 (port &OPTIONAL (kind :STREAM) &KEY (host 0) reuse-address (backlog 5)) (LET ((socket (CREATE-INET-SOCKET kind)) (addr (IF (STRINGP host) (HOST-ENTRY-ADDR (OR (LOOKUP-HOST-ENTRY host) (ERROR 'socket-error-mod-1 :FORMAT-CONTROL (INTL:GETTEXT "Unknown host: ~S.") :FORMAT-ARGUMENTS (LIST host) :ERRNO (UNIX:UNIX-ERRNO)))) host))) (WHEN reuse-address (MULTIPLE-VALUE-BIND (optval errno) (set-socket-option-mod-1 socket sol-socket-mod-1 so-reuseaddr-mod-1 1) (OR optval (ERROR 'socket-error-mod-1 :FORMAT-CONTROL (INTL:GETTEXT "Error ~S setting socket option on socket ~D.") :FORMAT-ARGUMENTS (LIST (UNIX:GET-UNIX-ERROR-MSG errno) socket) :ERRNO errno)))) (ALIEN:WITH-ALIEN ((sockaddr inet-sockaddr)) (SETF (ALIEN:SLOT sockaddr 'family) af-inet-mod-1) (SETF (ALIEN:SLOT sockaddr 'port) (HTONS port)) (SETF (ALIEN:SLOT sockaddr 'addr) (HTONL addr)) (WHEN (MINUSP (UNIX:UNIX-BIND socket (ALIEN:ALIEN-SAP sockaddr) (ALIEN:ALIEN-SIZE inet-sockaddr :BYTES))) (LET ((errno (UNIX:UNIX-ERRNO))) (UNIX:UNIX-CLOSE socket) (ERROR 'socket-error-mod-1 :FORMAT-CONTROL (INTL:GETTEXT "Error binding socket to port ~A: ~A") :FORMAT-ARGUMENTS (LIST port (UNIX:GET-UNIX-ERROR-MSG)) :ERRNO errno)))) #| ADRIAN PASIEKA's proposals to the :STREAM below. Adding some analytics to the :STREAM below, to see all incoming traffic from an OPEN-NETWORK-STREAM like: - the IP incoming number from OPEN-NETWORK-STREAM from an external machine, - time of connection Each new connection would be added to a LIST, and sent to the file. This would create a history of all connections to CREATE-INET-LISTENER. Additionaly, each CREATE-INET-LISTENER port could have a list of allowed external IP-s. Otherwise anybody can access it with OPEN-NETWORK-STREAM, from any external CMUCL, not good. There will be many thousands computers in the CMUCL-chain networks. We don't need spamers/hackers scanning all CMUCL-chain ports all the time. |# (WHEN (EQ kind :STREAM) (WHEN (MINUSP (UNIX:UNIX-LISTEN socket backlog)) (LET ((errno (UNIX:UNIX-ERRNO))) (UNIX:UNIX-CLOSE socket) (ERROR 'socket-error-mod-1 :FORMAT-CONTROL (INTL:GETTEXT "Error listening to socket: ~A") :FORMAT-ARGUMENTS (LIST (UNIX:GET-UNIX-ERROR-MSG)) :ERRNO errno)))) socket) ) ;;----------------------------------------- QUESTION: Is there any existing solution to the proposals above? Or, is there any specialist who could advise as much as possible? Thank You. -- Kind Regards, Adrian W. Pasieka Ikane

1 0

Testing cmucl mailing list at c-l.net
by Raymond Toy 10 Mar '17

10 Mar '17

Test -- Ray

1 0

[cmucl-imp] PPC snapshot-2013-02 available
by Raymond Toy 10 Feb '13

10 Feb '13

Thanks to Toby Thain for giving me access to a ppc box, there is now a binary for ppc-darwin for snapshot-2013-02. You can find it in the usual download places. Thanks, Toby. Ray

1 0

[cmucl-imp] Ground Hog's day release
by Raymond Toy 02 Feb '13

02 Feb '13

Another month, another snapshot. The Feb 2013 snapshot has been tagged and binaries will be uploaded shortly. See the release notes for full details. Briefly, asdf has been updated to 2.28 (which has a number of changes and improvements) and several tickets have been fixed. Ray

1 0

[cmucl-imp] ASDF 2.019 released
by Faré 28 Nov '11

28 Nov '11

Dear CL users, I released ASDF 2.018.21 as 2.019. Please test and upon success update your implementations and distributions. Since 2.018, we have the following improvements: User-Facing Changes: * UI: Create and use a load-systems abstraction, in view of using it in a system-granular parallelizing backend. (.15) * Usability: when a system can't be found, there's now a restart to retry finding a system after reinitializing the source-registry (.10). * Feature: :around-compile now accepts lambda expressions, and also strings, so you can specify future wrappers that can't even be read yet. (.11, .12). * Filesystem: recursing through logical pathnames in LispWorks (.2, .3), on SBCL as on CMUCL, have asdf:subdirectories follow symlinks (.8., .9) Change in Internals: * Configuration: modify user-configuration-directories and system-configuration-directories to return all valid directory names even when they don't exist yet so you may create them (.6), also output name of non-existing configuration file when opening them for writing (.7), * Internals: strcat (.5), split locate-systems from find-systems (.6) Bug Fixes: * Portability: Debugged CormanLisp support (.1). Fix type declaration for SCL (.17). Tweaked for Genera (.21). * Bug fix: don't drop pathname components without a / at the end when reading a path using GETENV (.18). (Bug from 2.017.27) Closes debian bug #647544. * Bug fix: don't redefine reinitialize-instance in ways that break its contract and its clients (such as asdf-dependency-grovel). Use change-class to reset slots (.16), but not to 'standard-object, which breaks ecl, rather to a proto-system class (.19), and not using keys with breaks genera (.21). (Bug from 2.017.3) * Bug fix: buglet in maybe-add-tree (.4) Upgrade: * Upgrade: unintern internals of signature changed in 2.017.12 (.13), have *system-definition-search-functions* not be a defparameter, but a defvar with a fixup (.14), clear *systems-being-defined* when upgrading asdf but re-find them immediately because they may be needed as part of a higher operation (.14). Unintern some more functions that have changed signature (.20). Happy Hacking! —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org That life is worth living is the most necessary of assumptions, and were it not assumed, the most impossible of conclusions. — George Santayana

1 0

[cmucl-imp] compile-file with :output-file nil?
by Raymond Toy 18 Oct '11

18 Oct '11

Anyone use COMPILE-FILE with :output-file nil? Currently, this causes the file to be compiled, but no fasl is generated. I think strictly speaking the output-file must be a pathname designator and nil is not. In compile-file-pathname an :output-file nil signals an error, and this is slightly inconsistent with compile-file. Ray

1 0

[cmucl-imp] Testing
by Raymond Toy 25 Aug '11

25 Aug '11

Testing for gmail. Ray

1 0

[cmucl-imp] ASDF 2.017 released
by Faré 24 Aug '11

24 Aug '11

Dear CL users, I released ASDF 2.016.3 as 2.017. (This version has been "stable" for over a month.) Please test and upon success update your implementations and distributions. Since 2.016, we have the following improvements: * ABCL: jar translation happier with recent compile-file-pathname* change. * CCL: see truenamize change below. * GCL: vain partially reverted attempts at making GCL 2.6 and 2.7 fail less. * LispWorks: use probe-file for probe-file* * RMCL: location strings are now POSIX namestrings. You can thus share configuration files and environment variables between RMCL and other Lisp implementations on same host. Use #p"" syntax when you insist on using MacOS 9 style MCL pathnames. * truenamize: happier when e.g. the *default-pathname-defaults* is #p"", which is the case notably on CCL by default, or otherwise relative. * Logical pathnames: now preserved by the source-registry's tree directive. * Upgrade: instead of unintern'ing symbols, use fmakunbound; however, treat compilation of asdf specially, by always making sure it is loaded as source before it is compiled, so that compilation is never an upgrade and never calls fmakunbound, thus ensuring functions in the continuation of compilation are always fbound. * Obsolete: dropped support for *system-cache* and get-uid. * Internals: refactored resolve-relative-location-component. * Documentation: update wrt to the location DSL. Happy Lisping! —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org When my time on earth is completed, I want to go quietly in my sleep, like my grandfather ... not screaming in terror, like his passengers.

2 1

[cmucl-imp] ASDF 2.016 released
by Faré 10 Jun '11

10 Jun '11

Dear CMUCL implementors, below is the announcement for ASDF 2.016, as posted on the asdf-announce mailing-list, also accessible via its gmane mirror gmane.lisp.asdf.announce. Please have me take your list off my forwarding aliases if unappropriate. Can you upgrade your implementation to ship with the latest ASDF? Thanks! If you're still using 2.015 (or something even older), there have been many bug fixes, robustness, portability and upgradability enhancements and a few features implemented since. Also, the CLISP maintainers insist on having (require :asdf) not work and (require "asdf") work, whereas CMUCL does the opposite. Since the CLISP maintainers won't seem to budge, could you have CMUCL accept both? PS: I noticed you moved the mailing-list to common-lisp.net; the old address @cons.org seems to still exist, but rejects messages as my not being subscribed. Or do both addresses exist? That's confusing. —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org Consider this: the first hole ever dug on the moon by a man-made machine is now done. It is the most expensive hole in the history of the human race. Now, what does that mean? How do we know whether this is one of man's noblest achievements or if it is a game being played by a small group of lunatics for their own amusement — at our expense?" — Neil Postman, "Teaching as a Subversive Activity" ---------- Forwarded message ---------- From: Faré <fahree(a)gmail.com> Date: 7 June 2011 20:30 Subject: ASDF 2.016 released To: asdf-announce(a)common-lisp.net Cc: ASDF-devel <asdf-devel(a)common-lisp.net> Dear CL users, I released ASDF 2.015.12 as 2.016. Please test, and upon success update your implementations and lisp distributions. Since 2.015, we have the following improvements: * Portability: Fixes for ECL, RMCL. Tweaks for CLISP. Improvements to Windows configuration, notably for LispWorks. * Fix to load-source-op (broken in 2.014.13 - oops). * Avoid infinite loops in defsystem in cases of bad interference between quicklisp and your source-registry. * Small fixes regarding upgrade, compile-file* :output-file. * Make defsystem-depends-on actually useful by allowing a system thus depended on to define the class of the system depending on it. The XCVB bridge notably relies on this feature. * Some documentation updates. Notably, for the sake of CLISP, (require "asdf") is the new canonical way to load ASDF, instead of (require :asdf). Sigh. * Better tests, notably wrt hot upgrade. Happy hacking! —♯ƒ • François-René ÐVB Rideau •Reflection&Cybernethics• http://fare.tunes.org The American diplomat to the Russian: "My country too is free: in the USA too anyone may freely publish the dirty little secrets of president Medvedev!"

2 16

[cmucl-imp] testing
by Raymond Toy 17 Oct '09

17 Oct '09

testing

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

cmucl-imp