comparison lisp/cedet/semantic/db.el @ 106568:a54ddff7ac90

* cedet/semantic/mru-bookmark.el (global-semantic-mru-bookmark-mode) (semantic-mru-bookmark-mode): Doc fixes. * cedet/semantic/db.el (semanticdb-cache-get): Use error instead of assert.
author Chong Yidong <cyd@stupidchicken.com>
date Mon, 14 Dec 2009 04:17:00 +0000
parents 83dde921cc1b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
106567:c59fc4a754cc 106568:a54ddff7ac90
448 (defmethod semanticdb-cache-get ((table semanticdb-abstract-table) 448 (defmethod semanticdb-cache-get ((table semanticdb-abstract-table)
449 desired-class) 449 desired-class)
450 "Get a cache object on TABLE of class DESIRED-CLASS. 450 "Get a cache object on TABLE of class DESIRED-CLASS.
451 This method will create one if none exists with no init arguments 451 This method will create one if none exists with no init arguments
452 other than :table." 452 other than :table."
453 (assert (child-of-class-p desired-class 'semanticdb-abstract-cache)) 453 (unless (child-of-class-p desired-class 'semanticdb-abstract-cache)
454 (error "Invalid SemanticDB cache"))
454 (let ((cache (oref table cache)) 455 (let ((cache (oref table cache))
455 (obj nil)) 456 (obj nil))
456 (while (and (not obj) cache) 457 (while (and (not obj) cache)
457 (if (eq (object-class-fast (car cache)) desired-class) 458 (if (eq (object-class-fast (car cache)) desired-class)
458 (setq obj (car cache))) 459 (setq obj (car cache)))
498 (defmethod semanticdb-cache-get ((db semanticdb-project-database) 499 (defmethod semanticdb-cache-get ((db semanticdb-project-database)
499 desired-class) 500 desired-class)
500 "Get a cache object on DB of class DESIRED-CLASS. 501 "Get a cache object on DB of class DESIRED-CLASS.
501 This method will create one if none exists with no init arguments 502 This method will create one if none exists with no init arguments
502 other than :table." 503 other than :table."
503 (assert (child-of-class-p desired-class 'semanticdb-abstract-db-cache)) 504 (unless (child-of-class-p desired-class 'semanticdb-abstract-cache)
505 (error "Invalid SemanticDB cache"))
504 (let ((cache (oref db cache)) 506 (let ((cache (oref db cache))
505 (obj nil)) 507 (obj nil))
506 (while (and (not obj) cache) 508 (while (and (not obj) cache)
507 (if (eq (object-class-fast (car cache)) desired-class) 509 (if (eq (object-class-fast (car cache)) desired-class)
508 (setq obj (car cache))) 510 (setq obj (car cache)))