← Back to branch summary

~scymtym/moped/trunk

« back to all changes in this revision

Viewing changes to metaobjects/standard-class.el

  • Committer: Jan Moringen
  • Date: 2010-07-05 05:30:40 UTC
  • Revision ID: jmoringe@techfak.uni-bielefeld.de-20100705053040-2axezpnjpxzgdydb
Create standard-class as variable in standard-class.el
* metaobjects/standard-class.el
  (moped-make-standard-class-metaobject): removed; since only one such
  object is required, it is just stored in the variable
  `moped-standard-class-metaobject'
  (moped-standard-class-metaobject): new variable; stores the
  standard-class metaobject

Show diffs side-by-side

added added

removed removed

Lines of Context:
metaobjects/standard-class.el
70
70
  "Class subclasses class slot.")
71
71
 
72
72
 
73
 
;;;
74
 
;;
75
 
 
76
 
(defun moped-make-standard-class-metaobject ()
77
 
  "Allocate, initialize and return standard-class metaobject."
78
 
  (let ((instance (make-vector moped-standard-class-num-slots nil)))
79
 
    (aset instance moped-standard-class-tag   'object)
80
 
    (aset instance moped-standard-class-class instance)
81
 
    (moped-initialize-instance-standard-class
82
 
     instance
83
 
     :name 'standard-class)))
84
 
 
85
 
 
86
73
;;; "Methods" of the metaobject standard-class
87
74
;;
88
75
 
149
136
    (t
150
137
     (moped-slot-missing class instance slot-name 'slot-value))))
151
138
 
 
139
 
 
140
;;; The `standard-class' Object
 
141
;;
 
142
 
 
143
(defvar moped-standard-class-metaobject
 
144
  (let ((instance (make-vector moped-standard-class-num-slots nil)))
 
145
    (aset instance moped-standard-class-tag   'object)
 
146
    (aset instance moped-standard-class-class instance)
 
147
    (moped-initialize-instance-standard-class
 
148
     instance
 
149
     :name 'standard-class))
 
150
  "The `standard-class' metaobject.")
 
151
 
152
152
(provide 'moped/metaobjects/standard-class)
153
153
;;; standard-class.el ends here