June 2016 - cmucl-imp - mailman3.common-lisp.net

[cmucl-imp] Debian bug 821150: problems with the PCL license [resend]
by Peter Van Eynde 26 Aug '16

26 Aug '16

Hello team, I fear that someone noticed a problem with the license of the PCL files in cmucl. The license reads (for example from https://gitlab.common-lisp.net/cmucl/cmucl/blob/master/src/pcl/boot.lisp) > ;;; ************************************************************************* > ;;; Copyright (c) 1985, 1986, 1987, 1988, 1989, 1990 Xerox Corporation. > ;;; All rights reserved. > ;;; > ;;; Use and copying of this software and preparation of derivative works > ;;; based upon this software are permitted. Any distribution of this > ;;; software or derivative works must comply with all applicable United > ;;; States export control laws. > ;;; > ;;; This software is made available AS IS, and Xerox Corporation makes no > ;;; warranty about the software, its performance or its conformity to any > ;;; specification. > ;;; * ;;; Any person obtaining a copy of this software is requested to send their * ;;; name and post office or electronic mail address to: * ;;; CommonLoops Coordinator * ;;; Xerox PARC * ;;; 3333 Coyote Hill Rd. * ;;; Palo Alto, CA 94304 * ;;; (or send Arpanet mail to CommonLoops-Coordinator.pa(a)Xerox.arpa) * ;;; * ;;; Suggestions, comments and requests for improvements are also welcome. > ;;; ************************************************************************* the problem is the part marked by *, this is a requirement not compatible with the DFSG. In addition the email and I guess address is dead. I've noticed that sbcl never had this clause, and I assume that we can remove it without someone complaining? Best regards, Peter -- signature -at- pvaneynd.mailworks.org http://www.livejournal.com/users/pvaneynd/ "God, root, what is difference?" Pitr | "God is more forgiving." Dave Aronson|

5 10

[cmucl-imp] Function with declared result type NIL returned.
by Mark Cox 15 Jun '16

15 Jun '16

G'day, I think there may be an issue with the way CMUCL handles return values. I'm having trouble developing a reduced test case so I have attached the code I encountered the issue with. The code relies on an external library titled external-program. I'm using cumcl-2016-06-x86-darwin. Thanks Mark ;; $ git clone https://github.com/sellout/external-program.git ;; $ cd external-program && git checkout 9f6d518 ;; $ cmucl -noinit -load issue.lisp ;; issue.lisp (in-package "CL-USER") (eval-when (:compile-toplevel :load-toplevel :execute) (require :asdf)) (eval-when (:compile-toplevel :load-toplevel :execute) (push (merge-pathnames "external-program/") asdf:*central-registry*) (asdf:load-system "external-program")) (defun test () (print (lisp-implementation-type)) (print (lisp-implementation-version)) (terpri) (external-program:start "/bin/ls" (list "-la") :output *standard-output*)) (unwind-protect (test) (uiop:quit)) ;; $ cmucl -noinit -load issue.lisp ;; "CMU Common Lisp" ;; "snapshot-2016-06 (21A Unicode)" ;; Function with declared result type NIL returned: ;; (PCL:FAST-METHOD EXTERNAL-PROGRAM:START (T T)) ;; [Condition of type KERNEL:SIMPLE-CONTROL-ERROR] ;; Restarts: ;; 0: [CONTINUE] Return NIL from load of "issue.lisp". ;; 1: [ABORT ] Skip remaining initializations. ;; Debug (type H for help) ;; ("LAMBDA (.KEYARGS-START. .VALID-KEYS. G3148)" #<unused-arg> #<unused-arg> ;; "/bin/ls" ("-la") ...) ;; Source: (FUNCALL (THE FUNCTION #'(PCL:FAST-METHOD EXTERNAL-PROGRAM:START #)) ;; (PCL::FAST-METHOD-CALL-PV-CELL #:G3148) ;; (PCL::FAST-METHOD-CALL-NEXT-METHOD-CALL #:G3148) ;; PCL::.ARG0. ;; ...) ;; 0] total 16 ;; drwxr-xr-x 5 hungry wheel 170 15 Jun 09:20 . ;; drwxrwxrwt 37 root wheel 1258 15 Jun 09:20 .. ;; -rw-r--r-- 1 hungry wheel 634 15 Jun 09:20 issue.lisp ;; drwxr-xr-x 8 hungry wheel 272 15 Jun 09:20 external-program

2 3

[cmucl-imp] Snapshot 2016-06
by Raymond Toy 01 Jun '16

01 Jun '16

The 2016-06 snapshot has been tagged and binaries will be uploaded soon. Major changes: o Ancient bug in COERCE fixed where coercing a double-float to a float would produce a single-float result instead of returning the original number (since it's already of type float). o The binding stack and control stack are now mapped into memory wherever this is space instead of being mapped at fixed locations. -- Ray

1 1