[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

Re: Emacs CVS Head でダメ 

原因は labels マクロでした。パッチです。

--- cl-macs.el~	2004-11-16 21:54:14 +0000
+++ cl-macs.el	2004-11-19 01:30:39 +0000
@@ -1314,7 +1314,7 @@
 \(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
   (let ((vars nil) (sets nil) (cl-macro-environment cl-macro-environment))
     (while bindings
-      (let ((var (make-symbol "--cl-var--")))
+      (let ((var (gensym)))
 	(push var vars)
 	(push (list 'function* (cons 'lambda (cdar bindings))) sets)
 	(push var sets)

後で emacs-devel に行きます。