* 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 (file)
--- 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 (file)
--- 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