Method: (create wisp-object)

Source

(defmethod create ((object wisp-object) &key force?)
  (let* ((class-btree (ensure-class-btree (class-of object)))
	 (stored-object (get-value (^string (ele::oid object)) class-btree))) 
    (if (and stored-object (not force?))
	(error "Object ~S of class ~S already created" object (class-of object))
	(setf (get-value (^string (ele::oid object)) class-btree) object))))