+primary-key+? ( object -- ? )

Vocabulary

db.types

Inputs and outputs

object	an object
?	a boolean

Word description

Tests if the object is an instance of the +primary-key+ class.

Definition

USING: kernel ;

IN: db.types

: +primary-key+? ( object -- ? )
    dup +random-id+?
    [ drop t ] [
        dup +user-assigned-id+?
        [ drop t ] [ +db-assigned-id+? ] if
    ] if ;