Lars Brinkhoff | 15 Dec 08:42

Lexical scope

After a few years of hibernation, I'm considering an update of the
Common Lisp to Emacs Lisp compiler.  Now that Emacs features lexical
scoping, it should be able to improve the generated code greatly.
Peter BARABAS | 14 Sep 16:03
Picon

CVS access

Hello,

I've just read about the project on EmacsWiki. Seems nice.

However I can't reach the CVS. It gives me a 404. Do you know anything about it?

Thank you in advance.

--

-- 
'(Yours parenthetically
"peter barabas")
Thomas F. Burdick | 21 Nov 13:53
Picon

Email account disabled

This account recieves too much spam to the point where it is no longer usable.
Any mail sent here will be deleted without being read.  To contact me, please
use my gmail account, the username for which is my first initial followed by
my family name.
Lars Brinkhoff | 2 Mar 14:21

(Test)

(Ignore this test.)
Nix | 28 Jun 01:30
Picon

make check results for emacs-cl/XEmacs

With the core patch I just posted (the one that worked, not the one that
didn't), I see these test results against XEmacs-21.4.15 with emacs-cl
CVS as of 2004-06-27 23:47:

CHECKING xemacs
Interpreting...

Test bignum arithmetic:                        pass
Test SETF CADR:                                pass
Test #- at end of list:                        pass
Test #| |# at end of list:                     pass
Test reading dotted lists:                     pass
Test binding global special variable:          pass
Test setting global special variable:          pass
Test binding local special variable:           
pass
Test passing &optional and &key arguments:     pass
Test passing &rest and &key arguments:         pass
Test returning the right number of multiple values: pass
Test backquoting:                              FAIL evaluation 
FAIL execution
Test reading character constants:              pass
Test suppressing undefined reader macros:      pass
Test declare in do and dolist:                 
pass
Test merging pathname directories:             pass
Test butlast:                                  pass
Test case:                                     pass
Test remove-if-not:                            pass
Test destructuring-bind:                       
(Continue reading)

Nix | 26 Jun 23:06
Picon

`user is too stupid to build this software'

This is my first attempt to get emacs-cl to build, on XEmacs-21.4.15.

I see:

xemacs -batch -vanilla -l load-cl.el -f compile-cl
Loading utils...
Loading func...
Loading cl-evaluation...
Loading cl-flow...
Loading cl-numbers...
Loading cl-conses...
Loading cl-characters...
Loading cl-strings...
Loading cl-arrays...
Loading cl-sequences...
Loading cl-structures...
Loading cl-iteration...
Loading cl-symbols...
Loading cl-packages...
Loading cl-types...
Loading cl-typep...
Loading cl-subtypep...
Loading cl-hash...
Loading cl-streams...
Loading cl-reader...
Loading cl-printer...
Loading cl-environment...
Loading cl-filenames...
Loading cl-files...
Loading interaction...
(Continue reading)

Marco Gidde | 12 Jun 23:07
Picon

string comparison

These are patches to several string comparison functions, all of them
quite trivial. STRING> was completely broken and I replaced it per
copy and modify from the implementation of STRING< with CHAR< and
CHAR> reversed. The other changes concern the use of the macro kw
instead of using keywords directly and some places where default
values for START[12] were missing.

I did not add any tests to test.lisp but run a slightly modifed
version of string-comparisons.lsp from Paul Dietz' ANSI tests with a
simplified DEFTEST. All of them except those with the note
:nil-vectors-are-strings are ok, all in all 50 tests.

"make check" also works as before, but the "flet and labels" test
fails both in interpreted and compiled modus (with Emacs 21.2 :-))
Maybe I track it down within the next days and send some details.

Index: cl-strings.el
===================================================================
RCS file: /usr/local/cvsroot/emacs-cl/cl-strings.el,v
retrieving revision 1.28
diff -u -3 -p -u -F^def -r1.28 cl-strings.el
--- cl-strings.el	8 Jun 2004 15:41:30 -0000	1.28
+++ cl-strings.el	11 Jun 2004 21:17:57 -0000
@@ -157,8 +157,8 @@
 	   (substring string2 START2 END2)))

 (cl:defun STRING/= (string1 string2 &KEY (START1 0) END1 (START2 0) END2)
-  (not (STRING= string1 string2 :START1 START1 :END1 END1
-		                :START2 START2 :END2 END2)))
+  (not (STRING= string1 string2 (kw START1) START1 (kw END1) END1
(Continue reading)

Marco Gidde | 12 Jun 13:11
Picon

VALUES in compiled functions

Two snippets from a session that shows a problem with multiple values
in compiled functions.

COMMON-LISP-USER> (defun test () (values (progn 1) (progn 2)))
TEST
COMMON-LISP-USER> (test)
1
2
COMMON-LISP-USER> (compile 'test)
TEST
NIL
NIL
COMMON-LISP-USER> (test)
1

COMMON-LISP-USER> (defun test () (values (values 1 2)))
TEST
COMMON-LISP-USER> (test)
1
COMMON-LISP-USER> (compile 'test)
TEST
NIL
NIL
COMMON-LISP-USER> (test)
1
2

The outer VALUES form sets up the global variables nvals and mvals
which are later overwritten by the compiled form of the embedded
PROGNs or VALUES. The following is not a real patch, but a suggestion
(Continue reading)

Marco Gidde | 10 Jun 23:58
Picon

Typo in cl-compile.el

The second CAR should probably be a CDR.

===================================================================
RCS file: /usr/local/cvsroot/emacs-cl/cl-compile.el,v
retrieving revision 1.84
diff -u -3 -p -a -F^(def -r1.84 cl-compile.el
--- cl-compile.el       9 Jun 2004 21:51:28 -0000       1.84
+++ cl-compile.el       10 Jun 2004 21:51:46 -0000
@@ -346,7 +346,7 @@ (defun built-in-make-load-form (form &op
     ;; TODO: RANDOM-STATE
     ((consp form)
      (if (and (ok-for-file-literal-p (car form))
-             (ok-for-file-literal-p (car form)))
+             (ok-for-file-literal-p (cdr form)))
         (cl:values `(cons ,(car form) ,(cdr form)))
         (cl:values
          `(cons nil nil)

--

-- 
Marco Gidde
Marco Gidde | 8 Jun 09:43
Picon

Bug: Special variables in compiled files

Hi,

when I compile the code snippet below and try to load it into a fresh
environment, emacs-cl complains that the package "TEST" can't be
found. It seems that the compiler places the definition/interning of
special variables right at the beginning of the *.elc file, even
before the package is defined.

;;; file test.lisp
(defpackage "TEST" (:use "CL"))
(in-package "TEST")

(defvar *special-var* nil)
;;; end of file

Best regards,

Marco Gidde
Marco Gidde | 15 May 22:46
Picon

COERCE

Hopefully this is not too nitpicky :-)

COMMON-LISP-USER> (coerce '(#\a #\b) 'string)
(#\a #\b)
T
COMMON-LISP-USER> (coerce #(#\a #\b) 'string)
(#\a #\b)
T

In both cases the result should be the string "ab".

--

-- 
Marco Gidde

Gmane