15 Dec 08:42
14 Sep 16:03
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")
21 Nov 13:53
2 Mar 14:21
28 Jun 01:30
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)
26 Jun 23:06
`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)
12 Jun 23:07
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(Continue reading)) 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
12 Jun 13:11
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)
10 Jun 23:58
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
8 Jun 09:43
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
15 May 22:46
COERCE
Hopefully this is not too nitpickyCOMMON-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
)
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
RSS Feed