From: ueno <ueno>
Date: Tue, 28 Nov 2000 03:19:54 +0000 (+0000)
Subject: * luna.el: Don't require `static'.
X-Git-Tag: deisui-1_14_0-2000-12-14~10
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7d5307c52d6a69cdc39f458891fb157c47002966;p=elisp%2Fflim.git

* luna.el: Don't require `static'.
(luna-define-class-function): Don't bind colon keywords.
---

diff --git a/ChangeLog b/ChangeLog
index 8b64201..f160af3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2000-11-28   Daiki Ueno  <ueno@unixuser.org>
+
+	* luna.el: Don't require `static'.
+	(luna-define-class-function): Don't bind colon keywords.
+
 2000-11-21   Daiki Ueno  <ueno@unixuser.org>
 
 	* sasl.el (sasl-client-set-encoder): New function.
diff --git a/luna.el b/luna.el
index 7f6f1c4..7a8cb53 100644
--- a/luna.el
+++ b/luna.el
@@ -26,15 +26,6 @@
 
 (eval-when-compile (require 'cl))
 
-(eval-when-compile (require 'static))
-
-(static-condition-case nil
-    :symbol-for-testing-whether-colon-keyword-is-available-or-not
-  (void-variable
-   (defconst :before ':before)
-   (defconst :after ':after)
-   (defconst :around ':around)))
-
 
 ;;; @ class
 ;;;
@@ -64,13 +55,6 @@ If SLOTS is specified, TYPE will be defined to have them."
 			       ',slots))
 
 (defun luna-define-class-function (type &optional parents slots)
-  (static-condition-case nil
-      :symbol-for-testing-whether-colon-keyword-is-available-or-not
-    (void-variable
-     (let (key)
-       (dolist (slot slots)
-	 (setq key (intern (format ":%s" slot)))
-	 (set key key)))))
   (let ((oa (make-vector 31 0))
 	(rest parents)
 	parent name