[Move *slot-type-mapping* back
clinton@unknownlamer.org**20071008235351] {
hunk ./src/presentations.lisp 405
-;; NOTE: *slot-type-mapping* and find-slot-presentation-class-name
-;; were moved to standard-presentation-class.lisp
+(defvar *slot-type-mapping* (make-hash-table :test 'eql))
+
+(defun find-slot-presentation-class-name (slot-presentation-type)
+  (gethash slot-presentation-type *slot-type-mapping*))
hunk ./src/standard-presentation-class.lisp 33
-;;; Slot type mapping code
-;; This should be in presentations.lisp, but has to be here so that
-;; the metaobject protocol extensions can work properly. This is
-;; temporary, and once everything has been ported to work on top of
-;; the interface-element classes this bit of code can be safely
-;; removed
-(defvar *slot-type-mapping* (make-hash-table :test 'eql))
-
-(defun find-slot-presentation-class-name (slot-presentation-type)
-  (gethash slot-presentation-type *slot-type-mapping*))
-
}