';;;; TYPEP und Verwandtes' Comment.Single

'\n' Text.Whitespace

';;;; Michael Stoll, 21. 10. 1988' Comment.Single

'\n' Text.Whitespace

';;;; Bruno Haible, 10.6.1989' Comment.Single

'\n' Text.Whitespace

';;;; Sam Steingold 2000-2005' Comment.Single

'\n\n' Text.Whitespace

';;; Datenstrukturen für TYPEP:' Comment.Single

'\n' Text.Whitespace

';;; - Ein Type-Specifier-Symbol hat auf seiner Propertyliste unter dem' Comment.Single

'\n' Text.Whitespace

';;; Indikator SYS::TYPE-SYMBOL eine Funktion von einem Argument, die' Comment.Single

'\n' Text.Whitespace

';;; testet, ob ein Objekt vom richtigen Typ ist.' Comment.Single

'\n' Text.Whitespace

';;; - Ein Symbol, das eine Type-Specifier-Liste beginnen kann, hat auf seiner' Comment.Single

'\n' Text.Whitespace

';;; Propertyliste unter dem Indikator SYS::TYPE-LIST eine Funktion von' Comment.Single

'\n' Text.Whitespace

';;; einem Argument für das zu testende Objekt und zusätzlichen Argumenten' Comment.Single

'\n' Text.Whitespace

';;; für die Listenelemente.' Comment.Single

'\n' Text.Whitespace

';;; - Ein Symbol, das als Typmacro definiert wurde, hat auf seiner Property-' Comment.Single

'\n' Text.Whitespace

';;; liste unter dem Indikator SYSTEM::DEFTYPE-EXPANDER den zugehörigen' Comment.Single

'\n' Text.Whitespace

';;; Expander: eine Funktion, die den zu expandierenden Type-Specifier (eine' Comment.Single

'\n' Text.Whitespace

';;; mindestens einelementige Liste) als Argument bekommt.' Comment.Single

'\n\n' Text.Whitespace

'(' Punctuation

'in-package' Name.Builtin

' ' Text.Whitespace

'"EXT"' Literal.String

')' Punctuation

'\n' Text.Whitespace

'(' Punctuation

'export' Name.Builtin

' ' Text.Whitespace

"'" Operator

'(' Punctuation

'type-expand' Name.Variable

')' Punctuation

')' Punctuation

'\n' Text.Whitespace

'(' Punctuation

'in-package' Name.Builtin

' ' Text.Whitespace

'"SYSTEM"' Literal.String

')' Punctuation

'\n\n' Text.Whitespace

'; vorläufig, solange bis clos.lisp geladen wird:' Comment.Single

'\n' Text.Whitespace

'(' Punctuation

'eval-when' Keyword

' ' Text.Whitespace

'(' Punctuation

'eval' Name.Builtin

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'predefun' Name.Variable

' ' Text.Whitespace

'clos::built-in-class-p' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'object' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'declare' Keyword

' ' Text.Whitespace

'(' Punctuation

'ignore' Keyword

' ' Text.Whitespace

'object' Name.Variable

')' Punctuation

')' Punctuation

' ' Text.Whitespace

'nil' Name.Constant

')' Punctuation

')' Punctuation

'\n' Text.Whitespace

'(' Punctuation

'unless' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'fboundp' Name.Builtin

' ' Text.Whitespace

"'clos::class-name" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'defun' Name.Builtin

' ' Text.Whitespace

'clos::class-name' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'c' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'declare' Keyword

' ' Text.Whitespace

'(' Punctuation

'ignore' Keyword

' ' Text.Whitespace

'c' Name.Variable

')' Punctuation

')' Punctuation

' ' Text.Whitespace

'nil' Name.Constant

')' Punctuation

'\n' Text.Whitespace

')' Punctuation

'\n\n' Text.Whitespace

'(' Punctuation

'defun' Name.Builtin

' ' Text.Whitespace

'typespec-error' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'fun' Name.Variable

' ' Text.Whitespace

'type' Keyword

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'error-of-type' Name.Variable

' ' Text.Whitespace

"'error" Literal.String.Symbol

'\n ' Text.Whitespace

'(' Punctuation

'TEXT' Name.Variable

' ' Text.Whitespace

'"~S: invalid type specification ~S"' Literal.String

')' Punctuation

'\n ' Text.Whitespace

'fun' Name.Variable

' ' Text.Whitespace

'type' Keyword

'\n' Text.Whitespace

')' Punctuation

' ' Text.Whitespace

')' Punctuation

'\n\n' Text.Whitespace

';; ============================================================================' Comment.Single

'\n\n' Text.Whitespace

';; return the CLOS class named by TYPESPEC or NIL' Comment.Single

'\n' Text.Whitespace

'(' Punctuation

'defun' Name.Builtin

' ' Text.Whitespace

'clos-class' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'typespec' Name.Variable

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'let' Keyword

' ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'cc' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'get' Name.Builtin

' ' Text.Whitespace

'typespec' Name.Variable

' ' Text.Whitespace

"'CLOS::CLOSCLASS" Literal.String.Symbol

')' Punctuation

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'when' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'and' Name.Builtin

' ' Text.Whitespace

'cc' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'clos::defined-class-p' Name.Variable

' ' Text.Whitespace

'cc' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'eq' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'clos:class-name' Name.Variable

' ' Text.Whitespace

'cc' Name.Variable

')' Punctuation

' ' Text.Whitespace

'typespec' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'cc' Name.Variable

')' Punctuation

')' Punctuation

')' Punctuation

'\n\n' Text.Whitespace

';;; TYPEP, CLTL S. 72, S. 42-51' Comment.Single

'\n' Text.Whitespace

'(' Punctuation

'defun' Name.Builtin

' ' Text.Whitespace

'typep' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'x' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

' ' Text.Whitespace

'&optional' Keyword

' ' Text.Whitespace

'env' Name.Variable

' ' Text.Whitespace

'&aux' Keyword

' ' Text.Whitespace

'f' Name.Variable

')' Punctuation

' ' Text.Whitespace

'; x = Objekt, y = Typ' Comment.Single

'\n ' Text.Whitespace

'(' Punctuation

'declare' Keyword

' ' Text.Whitespace

'(' Punctuation

'ignore' Keyword

' ' Text.Whitespace

'env' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'setq' Keyword

' ' Text.Whitespace

'y' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'expand-deftype' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'cond' Name.Builtin

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'symbolp' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'cond' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'setq' Keyword

' ' Text.Whitespace

'f' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'get' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

' ' Text.Whitespace

"'TYPE-SYMBOL" Literal.String.Symbol

')' Punctuation

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'funcall' Name.Builtin

' ' Text.Whitespace

'f' Name.Variable

' ' Text.Whitespace

'x' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'setq' Keyword

' ' Text.Whitespace

'f' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'get' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

' ' Text.Whitespace

"'TYPE-LIST" Literal.String.Symbol

')' Punctuation

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'funcall' Name.Builtin

' ' Text.Whitespace

'f' Name.Variable

' ' Text.Whitespace

'x' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'setq' Keyword

' ' Text.Whitespace

'f' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'get' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

' ' Text.Whitespace

"'DEFSTRUCT-DESCRIPTION" Literal.String.Symbol

')' Punctuation

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'ds-typep' Name.Variable

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

' ' Text.Whitespace

'f' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'setq' Keyword

' ' Text.Whitespace

'f' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'clos-class' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

"; It's not worth handling structure classes specially here." Comment.Single

'\n ' Text.Whitespace

'(' Punctuation

'clos::typep-class' Name.Variable

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'f' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

't' Name.Constant

' ' Text.Whitespace

'(' Punctuation

'typespec-error' Name.Variable

' ' Text.Whitespace

"'typep" Literal.String.Symbol

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

' ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'and' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'consp' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'symbolp' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'first' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'cond' Name.Builtin

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'and' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'eq' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'first' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'SATISFIES" Literal.String.Symbol

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'eql' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'length' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

'2' Literal.Number.Integer

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'unless' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'symbolp' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'second' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'error-of-type' Name.Variable

' ' Text.Whitespace

"'error" Literal.String.Symbol

'\n ' Text.Whitespace

'(' Punctuation

'TEXT' Name.Variable

' ' Text.Whitespace

'"~S: argument to SATISFIES must be a symbol: ~S"' Literal.String

')' Punctuation

'\n ' Text.Whitespace

"'typep" Literal.String.Symbol

' ' Text.Whitespace

'(' Punctuation

'second' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

' ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'if' Keyword

' ' Text.Whitespace

'(' Punctuation

'funcall' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'symbol-function' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'second' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

' ' Text.Whitespace

'x' Name.Variable

')' Punctuation

' ' Text.Whitespace

't' Name.Constant

' ' Text.Whitespace

'nil' Name.Constant

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'eq' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'first' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'MEMBER" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'if' Keyword

' ' Text.Whitespace

'(' Punctuation

'member' Name.Builtin

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'rest' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

' ' Text.Whitespace

't' Name.Constant

' ' Text.Whitespace

'nil' Name.Constant

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'and' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'eq' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'first' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'EQL" Literal.String.Symbol

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'eql' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'length' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

'2' Literal.Number.Integer

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'eql' Name.Builtin

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'second' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'and' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'eq' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'first' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'NOT" Literal.String.Symbol

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'eql' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'length' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

'2' Literal.Number.Integer

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'not' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'typep' Name.Builtin

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'second' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'eq' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'first' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'AND" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'dolist' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'type' Keyword

' ' Text.Whitespace

'(' Punctuation

'rest' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

't' Name.Constant

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'unless' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'typep' Name.Builtin

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'type' Keyword

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'return' Name.Builtin

' ' Text.Whitespace

'nil' Name.Constant

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

' ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'eq' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'first' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'OR" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'dolist' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'type' Keyword

' ' Text.Whitespace

'(' Punctuation

'rest' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

'nil' Name.Constant

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'when' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'typep' Name.Builtin

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'type' Keyword

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'return' Name.Builtin

' ' Text.Whitespace

't' Name.Constant

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

' ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'setq' Keyword

' ' Text.Whitespace

'f' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'get' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'first' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'TYPE-LIST" Literal.String.Symbol

')' Punctuation

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'apply' Name.Builtin

' ' Text.Whitespace

'f' Name.Variable

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'rest' Name.Builtin

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

't' Name.Constant

' ' Text.Whitespace

'(' Punctuation

'typespec-error' Name.Variable

' ' Text.Whitespace

"'typep" Literal.String.Symbol

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

')' Punctuation

' ' Text.Whitespace

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'clos::defined-class-p' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'clos::typep-class' Name.Variable

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'clos::eql-specializer-p' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'eql' Name.Builtin

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'(' Punctuation

'clos::eql-specializer-singleton' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'encodingp' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'charset-typep' Name.Variable

' ' Text.Whitespace

'x' Name.Variable

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

't' Name.Constant

' ' Text.Whitespace

'(' Punctuation

'typespec-error' Name.Variable

' ' Text.Whitespace

"'typep" Literal.String.Symbol

' ' Text.Whitespace

'y' Name.Variable

')' Punctuation

')' Punctuation

'\n' Text.Whitespace

')' Punctuation

' ' Text.Whitespace

')' Punctuation

'\n\n' Text.Whitespace

';; ----------------------------------------------------------------------------' Comment.Single

'\n\n' Text.Whitespace

';; UPGRADED-ARRAY-ELEMENT-TYPE is a lattice homomorphism, see' Comment.Single

'\n' Text.Whitespace

';; ANSI CL 15.1.2.1.' Comment.Single

'\n' Text.Whitespace

'(' Punctuation

'defun' Name.Builtin

' ' Text.Whitespace

'upgraded-array-element-type' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'type' Keyword

' ' Text.Whitespace

'&optional' Keyword

' ' Text.Whitespace

'environment' Name.Variable

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'declare' Keyword

' ' Text.Whitespace

'(' Punctuation

'ignore' Keyword

' ' Text.Whitespace

'environment' Name.Variable

')' Punctuation

')' Punctuation

'\n ' Text.Whitespace

';; see array.d' Comment.Single

'\n ' Text.Whitespace

'(' Punctuation

'case' Name.Builtin

' ' Text.Whitespace

'type' Keyword

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'BIT' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'BIT" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'CHARACTER' Name.Variable

')' Punctuation

' ' Text.Whitespace

"'CHARACTER" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'T' Name.Constant

')' Punctuation

' ' Text.Whitespace

"'T" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

'(' Punctuation

'NIL' Name.Constant

')' Punctuation

' ' Text.Whitespace

"'NIL" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

'(' Punctuation

't' Name.Constant

' ' Text.Whitespace

'(' Punctuation

'if' Keyword

' ' Text.Whitespace

'(' Punctuation

'subtypep' Name.Builtin

' ' Text.Whitespace

'type' Keyword

' ' Text.Whitespace

"'NIL" Literal.String.Symbol

')' Punctuation

'\n ' Text.Whitespace

"'NIL" Literal.String.Symbol

'\n ' Text.Whitespace

'(' Punctuation

'multiple-value-bind' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'low' Name.Variable

' ' Text.Whitespace

'high' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'sys::subtype-integer' Name.Variable

' ' Text.Whitespace

'type' Keyword

')' Punctuation

'\n ' Text.Whitespace

'; Es gilt (or (null low) (subtypep type `(INTEGER ,low ,high)))' Comment.Single

'\n ' Text.Whitespace

'(' Punctuation

'if' Keyword

' ' Text.Whitespace

'(' Punctuation

'and' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'integerp' Name.Builtin

' ' Text.Whitespace

'low' Name.Variable

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'not' Name.Builtin

' ' Text.Whitespace

'(' Punctuation

'minusp' Name.Builtin

' ' Text.Whitespace

'low' Name.Variable

')' Punctuation

')' Punctuation

' ' Text.Whitespace

'(' Punctuation

'integerp' Name.Builtin

' ' Text.Whitespace