larsbrinkhoff/emacs-cl

Common Lisp implemented in Emacs Lisp.

emacs-cl

Emacs Common Lisp is an implementation of Common Lisp, written in Emacs Lisp.

emacs-cl's Issues

Not compiling on emacs-26?

I get this when running make in src:

emacs -batch -l load-cl.el -f compile-cl
Loading /Users/johnw/emacs/site-lisp/emacs-cl/src/utils.el (source)...
Loading /Users/johnw/emacs/site-lisp/emacs-cl/src/func.el (source)...
Loading /Users/johnw/emacs/site-lisp/emacs-cl/src/cl-evaluation.el (source)...
Loading /Users/johnw/emacs/site-lisp/emacs-cl/src/cl-flow.el (source)...
Loading /Users/johnw/emacs/site-lisp/emacs-cl/src/cl-numbers.el (source)...
Eager macro-expansion failure: (error "Autoloading file /nix/store/g5fgi3ivqd05habgdkhh8nxykxyx88gn-emacs26/share/emacs/26.0.90/lisp/emacs-lisp/cl-extra.elc failed to define function cl-mapcar-many")
Debugger entered--Lisp error: (error "Autoloading file /nix/store/g5fgi3ivqd05habgdkhh8nxykxyx88gn-emacs26/share/emacs/26.0.90/lisp/emacs-lisp/cl-extra.elc failed to define function cl-mapcar-many")
  (cl-mapcar-many fn lists)
  (if (null (cdr lists)) (mapcar fn (car lists)) (cl-mapcar-many fn lists))
  (apply (function append) (if (null (cdr lists)) (mapcar fn (car lists)) (cl-mapcar-many fn lists)))
  mappend((lambda (var default) (list (list 'when (list 'eq var (list 'quote unbound)) (list 'setq var (if env (compile-form default env) default))))) (START END RADIX JUNK-ALLOWED) (0 (LENGTH string) 10 nil))

Test Quicklisp

Use lexical binding bytecodes

Use record types

Finish CLOS

Emacs `cl:lambda` macro handles &KEY arguments incorrectly.

In Common Lisp, if you write something like this and then don't use the keyword arguments, then the variables should be bound to NIL:

(cl:defun MAKE-PACKAGE (name &KEY NICKNAMES USE)
  (let ((package (make-vector 8 'PACKAGE))
        (use-packages (mapcar #'FIND-PACKAGE USE)))
    (aset package 1 (STRING name))                      ;name                                                                                            

Instead, cl:lambda initializes the NICKNAMES and USE variables to unbound, which results in a type error when (mapcar #'FIND-PACKAGE USE) is evaluated.

As a result of that, I can't load load-cl.el in Emacs 26.1. It looks like some post-processing is supposed to happen to transform unbound to nil, but for some reason the unbound value makes it through.

It looks like something is going wrong when parsing the lambda list. I couldn't understand what the code generated by the keyword-assignments macro is supposed to do, but functions like lambda-list-keys and lambda-list-keyword-defaults seem to return the correct values.

Import ASDF3

Support usocket

https://github.com/usocket/usocket