<?php
/**
 * Lisp
 */

$switchHash['\'']  = PLUGIN_CODE_CHARACTOR;        // Lisp Scheme は ' 文字リテラルではない
$switchHash[':'] = PLUGIN_CODE_SPECIAL_IDENTIFIRE;  // : から始まる予約語あり
$switchHash['*'] = PLUGIN_CODE_SPECIAL_IDENTIFIRE;  // * から始まる予約語あり

// コメント定義
$switchHash[';']  = PLUGIN_CODE_COMMENT;  // コメントは ; から改行まで
$code_comment = Array(
	';' => Array(
				 Array('/^;/', "\n", 1),
	)
);

// アウトライン用
if($mkoutline){
  $switchHash['('] = PLUGIN_CODE_BLOCK_START;
  $switchHash[')'] = PLUGIN_CODE_BLOCK_END;
}

$code_css = Array(
  'operator',		// オペレータ関数
  'identifier',	// その他の識別子
  'pragma',		// module, import と pragma
  'system',		// 処理系組み込みの奴 __stdcall とか
  );

$code_keyword = Array(
  //'operator',		// オペレータ関数
  //'identifier',	// その他の識別子
  'find-method' => 2,
  'pprint-indent' => 2,
  'find-package' => 2,
  'pprint-linear' => 2,
  'find-restart' => 2,
  'pprint-logical-block' => 2,
  'find-symbol' => 2,
  'pprint-newline' => 2,
  'finish-output' => 2,
  'pprint-pop' => 2,
  'first' => 2,
  'pprint-tab' => 2,
  'fixnum' => 2,
  'pprint-tabular' => 2,
  'flet' => 2,
  'prin1' => 2,
  'float' => 2,
  'prin1-to-string' => 2,
  'float-digits' => 2,
  'princ' => 2,
  'float-precision' => 2,
  'princ-to-string' => 2,
  'float-radix' => 2,
  'print' => 2,
  'float-sign' => 2,
  'print-not-readable' => 2,
  'floating-point-inexact' => 2,
  'print-not-readable-object' => 2,
  'floating-point-invalid-operation' => 2,
  'print-object' => 2,
  'floating-point-overflow' => 2,
  'print-unreadable-object' => 2,
  'floating-point-underflow' => 2,
  'probe-file' => 2,
  'floatp' => 2,
  'proclaim' => 2,
  'abort' => 2,
  'floor' => 2,
  'prog' => 2,
  'abs' => 2,
  'fmakunbound' => 2,
  'prog*' => 2,
  'access' => 2,
  'force-output' => 2,
  'prog1' => 2,
  'acons' => 2,
  'format' => 2,
  'prog2' => 2,
  'acos' => 2,
  'formatter' => 2,
  'progn' => 2,
  'acosh' => 2,
  'fourth' => 2,
  'program-error' => 2,
  'add-method' => 2,
  'fresh-line' => 2,
  'progv' => 2,
  'adjoin' => 2,
  'fround' => 2,
  'provide' => 2,
  'adjust-array' => 2,
  'ftruncate' => 2,
  'psetf' => 2,
  'adjustable-array-p' => 2,
  'ftype' => 2,
  'psetq' => 2,
  'allocate-instance' => 2,
  'funcall' => 2,
  'push' => 2,
  'alpha-char-p' => 2,
  'function' => 2,
  'pushnew' => 2,
  'alphanumericp' => 2,
  'function-keywords' => 2,
  'putprop' => 2,
  'and' => 2,
  'function-lambda-expression' => 2,
  'quote' => 2,
  'append' => 2,
  'functionp' => 2,
  'random' => 2,
  'apply' => 2,
  'gbitp' => 2,
  'random-state' => 2,
  'applyhook' => 2,
  'gcd' => 2,
  'random-state-p' => 2,
  'apropos' => 2,
  'generic-function' => 2,
  'rassoc' => 2,
  'apropos-list' => 2,
  'gensym' => 2,
  'rassoc-if' => 2,
  'aref' => 2,
  'gentemp' => 2,
  'rassoc-if-not' => 2,
  'arithmetic-error' => 2,
  'get' => 2,
  'ratio' => 2,
  'arithmetic-error-operands' => 2,
  'get-decoded-time' => 2,
  'rational' => 2,
  'arithmetic-error-operation' => 2,
  'get-dispatch-macro-character' => 2,
  'rationalize' => 2,
  'array' => 2,
  'get-internal-real-time' => 2,
  'rationalp' => 2,
  'array-dimension' => 2,
  'get-internal-run-time' => 2,
  'read' => 2,
  'array-dimension-limit' => 2,
  'get-macro-character' => 2,
  'read-byte' => 2,
  'array-dimensions' => 2,
  'get-output-stream-string' => 2,
  'read-char' => 2,
  'array-displacement' => 2,
  'get-properties' => 2,
  'read-char-no-hang' => 2,
  'array-element-type' => 2,
  'get-setf-expansion' => 2,
  'read-delimited-list' => 2,
  'array-has-fill-pointer-p' => 2,
  'get-setf-method' => 2,
  'read-eval-print' => 2,
  'array-in-bounds-p' => 2,
  'get-universal-time' => 2,
  'read-from-string' => 2,
  'array-rank' => 2,
  'getf' => 2,
  'read-line' => 2,
  'array-rank-limit' => 2,
  'gethash' => 2,
  'read-preserving-whitespace' => 2,
  'array-row-major-index' => 2,
  'go' => 2,
  'read-sequence' => 2,
  'array-total-size' => 2,
  'graphic-char-p' => 2,
  'reader-error' => 2,
  'array-total-size-limit' => 2,
  'handler-bind' => 2,
  'readtable' => 2,
  'arrayp' => 2,
  'handler-case' => 2,
  'readtable-case' => 2,
  'ash' => 2,
  'hash-table' => 2,
  'readtablep' => 2,
  'asin' => 2,
  'hash-table-count' => 2,
  'real' => 2,
  'asinh' => 2,
  'hash-table-p' => 2,
  'realp' => 2,
  'assert' => 2,
  'hash-table-rehash-size' => 2,
  'realpart' => 2,
  'assoc' => 2,
  'hash-table-rehash-threshold' => 2,
  'reduce' => 2,
  'assoc-if' => 2,
  'hash-table-size' => 2,
  'reinitialize-instance' => 2,
  'assoc-if-not' => 2,
  'hash-table-test' => 2,
  'rem' => 2,
  'atan' => 2,
  'host-namestring' => 2,
  'remf' => 2,
  'atanh' => 2,
  'identity' => 2,
  'remhash' => 2,
  'atom' => 2,
  'if' => 2,
  'remove' => 2,
  'base-char' => 2,
  'if-exists' => 2,
  'remove-duplicates' => 2,
  'base-string' => 2,
  'ignorable' => 2,
  'remove-if' => 2,
  'bignum' => 2,
  'ignore' => 2,
  'remove-if-not' => 2,
  'bit' => 2,
  'ignore-errors' => 2,
  'remove-method' => 2,
  'bit-and' => 2,
  'imagpart' => 2,
  'remprop' => 2,
  'bit-andc1' => 2,
  'import' => 2,
  'rename-file' => 2,
  'bit-andc2' => 2,
  'in-package' => 2,
  'rename-package' => 2,
  'bit-eqv' => 2,
  'in-package' => 2,
  'replace' => 2,
  'bit-ior' => 2,
  'incf' => 2,
  'require' => 2,
  'bit-nand' => 2,
  'initialize-instance' => 2,
  'rest' => 2,
  'bit-nor' => 2,
  'inline' => 2,
  'restart' => 2,
  'bit-not' => 2,
  'input-stream-p' => 2,
  'restart-bind' => 2,
  'bit-orc1' => 2,
  'inspect' => 2,
  'restart-case' => 2,
  'bit-orc2' => 2,
  'int-char' => 2,
  'restart-name' => 2,
  'bit-vector' => 2,
  'integer' => 2,
  'return' => 2,
  'bit-vector-p' => 2,
  'integer-decode-float' => 2,
  'return-from' => 2,
  'bit-xor' => 2,
  'integer-length' => 2,
  'revappend' => 2,
  'block' => 2,
  'integerp' => 2,
  'reverse' => 2,
  'boole' => 2,
  'interactive-stream-p' => 2,
  'room' => 2,
  'boole-1' => 2,
  'intern' => 2,
  'rotatef' => 2,
  'boole-2' => 2,
  'internal-time-units-per-second' => 2,
  'round' => 2,
  'boole-and' => 2,
  'intersection' => 2,
  'row-major-aref' => 2,
  'boole-andc1' => 2,
  'invalid-method-error' => 2,
  'rplaca' => 2,
  'boole-andc2' => 2,
  'invoke-debugger' => 2,
  'rplacd' => 2,
  'boole-c1' => 2,
  'invoke-restart' => 2,
  'safety' => 2,
  'boole-c2' => 2,
  'invoke-restart-interactively' => 2,
  'satisfies' => 2,
  'boole-clr' => 2,
  'isqrt' => 2,
  'sbit' => 2,
  'boole-eqv' => 2,
  'keyword' => 2,
  'scale-float' => 2,
  'boole-ior' => 2,
  'keywordp' => 2,
  'schar' => 2,
  'boole-nand' => 2,
  'labels' => 2,
  'search' => 2,
  'boole-nor' => 2,
  'lambda' => 2,
  'second' => 2,
  'boole-orc1' => 2,
  'lambda-list-keywords' => 2,
  'sequence' => 2,
  'boole-orc2' => 2,
  'lambda-parameters-limit' => 2,
  'serious-condition' => 2,
  'boole-set' => 2,
  'last' => 2,
  'set' => 2,
  'boole-xor' => 2,
  'lcm' => 2,
  'set-char-bit' => 2,
  'boolean' => 2,
  'ldb' => 2,
  'set-difference' => 2,
  'both-case-p' => 2,
  'ldb-test' => 2,
  'set-dispatch-macro-character' => 2,
  'boundp' => 2,
  'ldiff' => 2,
  'set-exclusive-or' => 2,
  'break' => 2,
  'least-negative-double-float' => 2,
  'set-macro-character' => 2,
  'broadcast-stream' => 2,
  'least-negative-long-float' => 2,
  'set-pprint-dispatch' => 2,
  'broadcast-stream-streams' => 2,
  'least-negative-normalized-double-float' => 2,
  'set-syntax-from-char' => 2,
  'built-in-class' => 2,
  'least-negative-normalized-long-float' => 2,
  'setf' => 2,
  'butlast' => 2,
  'least-negative-normalized-short-float' => 2,
  'setq' => 2,
  'byte' => 2,
  'least-negative-normalized-single-float' => 2,
  'seventh' => 2,
  'byte-position' => 2,
  'least-negative-short-float' => 2,
  'shadow' => 2,
  'byte-size' => 2,
  'least-negative-single-float' => 2,
  'shadowing-import' => 2,
  'call-arguments-limit' => 2,
  'least-positive-double-float' => 2,
  'shared-initialize' => 2,
  'call-method' => 2,
  'least-positive-long-float' => 2,
  'shiftf' => 2,
  'call-next-method' => 2,
  'least-positive-normalized-double-float' => 2,
  'short-float' => 2,
  'capitalize' => 2,
  'least-positive-normalized-long-float' => 2,
  'short-float-epsilon' => 2,
  'car' => 2,
  'least-positive-normalized-short-float' => 2,
  'short-float-negative-epsilon' => 2,
  'case' => 2,
  'least-positive-normalized-single-float' => 2,
  'short-site-name' => 2,
  'catch' => 2,
  'least-positive-short-float' => 2,
  'signal' => 2,
  'ccase' => 2,
  'least-positive-single-float' => 2,
  'signed-byte' => 2,
  'cdr' => 2,
  'length' => 2,
  'signum' => 2,
  'ceiling' => 2,
  'let' => 2,
  'simle-condition' => 2,
  'cell-error' => 2,
  'let*' => 2,
  'simple-array' => 2,
  'cell-error-name' => 2,
  'lisp' => 2,
  'simple-base-string' => 2,
  'cerror' => 2,
  'lisp-implementation-type' => 2,
  'simple-bit-vector' => 2,
  'change-class' => 2,
  'lisp-implementation-version' => 2,
  'simple-bit-vector-p' => 2,
  'char' => 2,
  'list' => 2,
  'simple-condition-format-arguments' => 2,
  'char-bit' => 2,
  'list*' => 2,
  'simple-condition-format-control' => 2,
  'char-bits' => 2,
  'list-all-packages' => 2,
  'simple-error' => 2,
  'char-bits-limit' => 2,
  'list-length' => 2,
  'simple-string' => 2,
  'char-code' => 2,
  'listen' => 2,
  'simple-string-p' => 2,
  'char-code-limit' => 2,
  'listp' => 2,
  'simple-type-error' => 2,
  'char-control-bit' => 2,
  'load' => 2,
  'simple-vector' => 2,
  'char-downcase' => 2,
  'load-logical-pathname-translations' => 2,
  'simple-vector-p' => 2,
  'char-equal' => 2,
  'load-time-value' => 2,
  'simple-warning' => 2,
  'char-font' => 2,
  'locally' => 2,
  'sin' => 2,
  'char-font-limit' => 2,
  'log' => 2,
  'single-flaot-epsilon' => 2,
  'char-greaterp' => 2,
  'logand' => 2,
  'single-float' => 2,
  'char-hyper-bit' => 2,
  'logandc1' => 2,
  'single-float-epsilon' => 2,
  'char-int' => 2,
  'logandc2' => 2,
  'single-float-negative-epsilon' => 2,
  'char-lessp' => 2,
  'logbitp' => 2,
  'sinh' => 2,
  'char-meta-bit' => 2,
  'logcount' => 2,
  'sixth' => 2,
  'char-name' => 2,
  'logeqv' => 2,
  'sleep' => 2,
  'char-not-equal' => 2,
  'logical-pathname' => 2,
  'slot-boundp' => 2,
  'char-not-greaterp' => 2,
  'logical-pathname-translations' => 2,
  'slot-exists-p' => 2,
  'char-not-lessp' => 2,
  'logior' => 2,
  'slot-makunbound' => 2,
  'char-super-bit' => 2,
  'lognand' => 2,
  'slot-missing' => 2,
  'char-upcase' => 2,
  'lognor' => 2,
  'slot-unbound' => 2,
  'char/=' => 2,
  'lognot' => 2,
  'slot-value' => 2,
  'char<' => 2,
  'logorc1' => 2,
  'software-type' => 2,
  'char<=' => 2,
  'logorc2' => 2,
  'software-version' => 2,
  'char=' => 2,
  'logtest' => 2,
  'some' => 2,
  'char>' => 2,
  'logxor' => 2,
  'sort' => 2,
  'char>=' => 2,
  'long-float' => 2,
  'space' => 2,
  'character' => 2,
  'long-float-epsilon' => 2,
  'special' => 2,
  'characterp' => 2,
  'long-float-negative-epsilon' => 2,
  'special-form-p' => 2,
  'check-type' => 2,
  'long-site-name' => 2,
  'special-operator-p' => 2,
  'cis' => 2,
  'loop' => 2,
  'speed' => 2,
  'class' => 2,
  'loop-finish' => 2,
  'sqrt' => 2,
  'class-name' => 2,
  'lower-case-p' => 2,
  'stable-sort' => 2,
  'class-of' => 2,
  'machine-instance' => 2,
  'standard' => 2,
  'clear-input' => 2,
  'machine-type' => 2,
  'standard-char' => 2,
  'clear-output' => 2,
  'machine-version' => 2,
  'standard-char-p' => 2,
  'close' => 2,
  'macro-function' => 2,
  'standard-class' => 2,
  'clrhash' => 2,
  'macroexpand' => 2,
  'standard-generic-function' => 2,
  'code-char' => 2,
  'macroexpand-1' => 2,
  'standard-method' => 2,
  'coerce' => 2,
  'macroexpand-l' => 2,
  'standard-object' => 2,
  'commonp' => 2,
  'macrolet' => 2,
  'step' => 2,
  'compilation-speed' => 2,
  'make-array' => 2,
  'storage-condition' => 2,
  'compile' => 2,
  'make-array' => 2,
  'store-value' => 2,
  'compile-file' => 2,
  'make-broadcast-stream' => 2,
  'stream' => 2,
  'compile-file-pathname' => 2,
  'make-char' => 2,
  'stream-element-type' => 2,
  'compiled-function' => 2,
  'make-concatenated-stream' => 2,
  'stream-error' => 2,
  'compiled-function-p' => 2,
  'make-condition' => 2,
  'stream-error-stream' => 2,
  'compiler-let' => 2,
  'make-dispatch-macro-character' => 2,
  'stream-external-format' => 2,
  'compiler-macro' => 2,
  'make-echo-stream' => 2,
  'streamp' => 2,
  'compiler-macro-function' => 2,
  'make-hash-table' => 2,
  'streamup' => 2,
  'complement' => 2,
  'make-instance' => 2,
  'string' => 2,
  'complex' => 2,
  'make-instances-obsolete' => 2,
  'string-capitalize' => 2,
  'complexp' => 2,
  'make-list' => 2,
  'string-char' => 2,
  'compute-applicable-methods' => 2,
  'make-load-form' => 2,
  'string-char-p' => 2,
  'compute-restarts' => 2,
  'make-load-form-saving-slots' => 2,
  'string-downcase' => 2,
  'concatenate' => 2,
  'make-method' => 2,
  'string-equal' => 2,
  'concatenated-stream' => 2,
  'make-package' => 2,
  'string-greaterp' => 2,
  'concatenated-stream-streams' => 2,
  'make-pathname' => 2,
  'string-left-trim' => 2,
  'cond' => 2,
  'make-random-state' => 2,
  'string-lessp' => 2,
  'condition' => 2,
  'make-sequence' => 2,
  'string-not-equal' => 2,
  'conjugate' => 2,
  'make-string' => 2,
  'string-not-greaterp' => 2,
  'cons' => 2,
  'make-string-input-stream' => 2,
  'string-not-lessp' => 2,
  'consp' => 2,
  'make-string-output-stream' => 2,
  'string-right-strim' => 2,
  'constantly' => 2,
  'make-symbol' => 2,
  'string-right-trim' => 2,
  'constantp' => 2,
  'make-synonym-stream' => 2,
  'string-stream' => 2,
  'continue' => 2,
  'make-two-way-stream' => 2,
  'string-trim' => 2,
  'control-error' => 2,
  'makunbound' => 2,
  'string-upcase' => 2,
  'copy-alist' => 2,
  'map' => 2,
  'string/=' => 2,
  'copy-list' => 2,
  'map-into' => 2,
  'string<' => 2,
  'copy-pprint-dispatch' => 2,
  'mapc' => 2,
  'string<=' => 2,
  'copy-readtable' => 2,
  'mapcan' => 2,
  'string=' => 2,
  'copy-seq' => 2,
  'mapcar' => 2,
  'string>' => 2,
  'copy-structure' => 2,
  'mapcon' => 2,
  'string>=' => 2,
  'copy-symbol' => 2,
  'maphash' => 2,
  'stringp' => 2,
  'copy-tree' => 2,
  'mapl' => 2,
  'structure' => 2,
  'cos' => 2,
  'maplist' => 2,
  'structure-class' => 2,
  'cosh' => 2,
  'mask-field' => 2,
  'structure-object' => 2,
  'count' => 2,
  'max' => 2,
  'style-warning' => 2,
  'count-if' => 2,
  'member' => 2,
  'sublim' => 2,
  'count-if-not' => 2,
  'member-if' => 2,
  'sublis' => 2,
  'ctypecase' => 2,
  'member-if-not' => 2,
  'subseq' => 2,
  'debug' => 2,
  'merge' => 2,
  'subsetp' => 2,
  'decf' => 2,
  'merge-pathname' => 2,
  'subst' => 2,
  'declaim' => 2,
  'merge-pathnames' => 2,
  'subst-if' => 2,
  'declaration' => 2,
  'method' => 2,
  'subst-if-not' => 2,
  'declare' => 2,
  'method-combination' => 2,
  'substitute' => 2,
  'decode-float' => 2,
  'method-combination-error' => 2,
  'substitute-if' => 2,
  'decode-universal-time' => 2,
  'method-qualifiers' => 2,
  'substitute-if-not' => 2,
  'defclass' => 2,
  'min' => 2,
  'subtypep' => 2,
  'defconstant' => 2,
  'minusp' => 2,
  'svref' => 2,
  'defgeneric' => 2,
  'mismatch' => 2,
  'sxhash' => 2,
  'define-compiler-macro' => 2,
  'mod' => 2,
  'symbol' => 2,
  'define-condition' => 2,
  'most-negative-double-float' => 2,
  'symbol-function' => 2,
  'define-method-combination' => 2,
  'most-negative-fixnum' => 2,
  'symbol-macrolet' => 2,
  'define-modify-macro' => 2,
  'most-negative-long-float' => 2,
  'symbol-name' => 2,
  'define-setf-expander' => 2,
  'most-negative-short-float' => 2,
  'symbol-package' => 2,
  'define-setf-method' => 2,
  'most-negative-single-float' => 2,
  'symbol-plist' => 2,
  'define-symbol-macro' => 2,
  'most-positive-double-float' => 2,
  'symbol-value' => 2,
  'defmacro' => 2,
  'most-positive-fixnum' => 2,
  'symbolp' => 2,
  'defmethod' => 2,
  'most-positive-long-float' => 2,
  'synonym-stream' => 2,
  'defpackage' => 2,
  'most-positive-short-float' => 2,
  'synonym-stream-symbol' => 2,
  'defparameter' => 2,
  'most-positive-single-float' => 2,
  'sys' => 2,
  'defsetf' => 2,
  'muffle-warning' => 2,
  'system' => 2,
  'defstruct' => 2,
  'multiple-value-bind' => 2,
  't' => 2,
  'deftype' => 2,
  'multiple-value-call' => 2,
  'tagbody' => 2,
  'defun' => 2,
  'multiple-value-list' => 2,
  'tailp' => 2,
  'defvar' => 2,
  'multiple-value-prog1' => 2,
  'tan' => 2,
  'delete' => 2,
  'multiple-value-seteq' => 2,
  'tanh' => 2,
  'delete-duplicates' => 2,
  'multiple-value-setq' => 2,
  'tenth' => 2,
  'delete-file' => 2,
  'multiple-values-limit' => 2,
  'terpri' => 2,
  'delete-if' => 2,
  'name-char' => 2,
  'the' => 2,
  'delete-if-not' => 2,
  'namestring' => 2,
  'third' => 2,
  'delete-package' => 2,
  'nbutlast' => 2,
  'throw' => 2,
  'denominator' => 2,
  'nconc' => 2,
  'time' => 2,
  'deposit-field' => 2,
  'next-method-p' => 2,
  'trace' => 2,
  'describe' => 2,
  'nil' => 2,
  'translate-logical-pathname' => 2,
  'describe-object' => 2,
  'nintersection' => 2,
  'translate-pathname' => 2,
  'destructuring-bind' => 2,
  'ninth' => 2,
  'tree-equal' => 2,
  'digit-char' => 2,
  'no-applicable-method' => 2,
  'truename' => 2,
  'digit-char-p' => 2,
  'no-next-method' => 2,
  'truncase' => 2,
  'directory' => 2,
  'not' => 2,
  'truncate' => 2,
  'directory-namestring' => 2,
  'notany' => 2,
  'two-way-stream' => 2,
  'disassemble' => 2,
  'notevery' => 2,
  'two-way-stream-input-stream' => 2,
  'division-by-zero' => 2,
  'notinline' => 2,
  'two-way-stream-output-stream' => 2,
  'do' => 2,
  'nreconc' => 2,
  'type' => 2,
  'do*' => 2,
  'nreverse' => 2,
  'type-error' => 2,
  'do-all-symbols' => 2,
  'nset-difference' => 2,
  'type-error-datum' => 2,
  'do-exeternal-symbols' => 2,
  'nset-exclusive-or' => 2,
  'type-error-expected-type' => 2,
  'do-external-symbols' => 2,
  'nstring' => 2,
  'type-of' => 2,
  'do-symbols' => 2,
  'nstring-capitalize' => 2,
  'typecase' => 2,
  'documentation' => 2,
  'nstring-downcase' => 2,
  'typep' => 2,
  'dolist' => 2,
  'nstring-upcase' => 2,
  'unbound-slot' => 2,
  'dotimes' => 2,
  'nsublis' => 2,
  'unbound-slot-instance' => 2,
  'double-float' => 2,
  'nsubst' => 2,
  'unbound-variable' => 2,
  'double-float-epsilon' => 2,
  'nsubst-if' => 2,
  'undefined-function' => 2,
  'double-float-negative-epsilon' => 2,
  'nsubst-if-not' => 2,
  'unexport' => 2,
  'dpb' => 2,
  'nsubstitute' => 2,
  'unintern' => 2,
  'dribble' => 2,
  'nsubstitute-if' => 2,
  'union' => 2,
  'dynamic-extent' => 2,
  'nsubstitute-if-not' => 2,
  'unless' => 2,
  'ecase' => 2,
  'nth' => 2,
  'unread' => 2,
  'echo-stream' => 2,
  'nth-value' => 2,
  'unread-char' => 2,
  'echo-stream-input-stream' => 2,
  'nthcdr' => 2,
  'unsigned-byte' => 2,
  'echo-stream-output-stream' => 2,
  'null' => 2,
  'untrace' => 2,
  'ed' => 2,
  'number' => 2,
  'unuse-package' => 2,
  'eighth' => 2,
  'numberp' => 2,
  'unwind-protect' => 2,
  'elt' => 2,
  'numerator' => 2,
  'update-instance-for-different-class' => 2,
  'encode-universal-time' => 2,
  'nunion' => 2,
  'update-instance-for-redefined-class' => 2,
  'end-of-file' => 2,
  'oddp' => 2,
  'upgraded-array-element-type' => 2,
  'endp' => 2,
  'open' => 2,
  'upgraded-complex-part-type' => 2,
  'enough-namestring' => 2,
  'open-stream-p' => 2,
  'upper-case-p' => 2,
  'ensure-directories-exist' => 2,
  'optimize' => 2,
  'use-package' => 2,
  'ensure-generic-function' => 2,
  'or' => 2,
  'use-value' => 2,
  'eq' => 2,
  'otherwise' => 2,
  'user' => 2,
  'eql' => 2,
  'output-stream-p' => 2,
  'user-homedir-pathname' => 2,
  'equal' => 2,
  'package' => 2,
  'values' => 2,
  'equalp' => 2,
  'package-error' => 2,
  'values-list' => 2,
  'error' => 2,
  'package-error-package' => 2,
  'vector' => 2,
  'etypecase' => 2,
  'package-name' => 2,
  'vector-pop' => 2,
  'eval' => 2,
  'package-nicknames' => 2,
  'vector-push' => 2,
  'eval-when' => 2,
  'package-shadowing-symbols' => 2,
  'vector-push-extend' => 2,
  'evalhook' => 2,
  'package-use-list' => 2,
  'vectorp' => 2,
  'evenp' => 2,
  'package-used-by-list' => 2,
  'warn' => 2,
  'every' => 2,
  'packagep' => 2,
  'warning' => 2,
  'exp' => 2,
  'pairlis' => 2,
  'when' => 2,
  'export' => 2,
  'parse-error' => 2,
  'wild-pathname-p' => 2,
  'expt' => 2,
  'parse-integer' => 2,
  'with-accessors' => 2,
  'extended-char' => 2,
  'parse-namestring' => 2,
  'with-compilation-unit' => 2,
  'fboundp' => 2,
  'pathname' => 2,
  'with-condition-restarts' => 2,
  'fceiling' => 2,
  'pathname-device' => 2,
  'with-hash-table-iterator' => 2,
  'fdefinition' => 2,
  'pathname-directory' => 2,
  'with-input-from-string' => 2,
  'ffloor' => 2,
  'pathname-host' => 2,
  'with-open-file' => 2,
  'fifth' => 2,
  'pathname-match-p' => 2,
  'with-open-stream' => 2,
  'file-author' => 2,
  'pathname-name' => 2,
  'with-output-to-string' => 2,
  'file-error' => 2,
  'pathname-type' => 2,
  'with-package-iterator' => 2,
  'file-error-pathname' => 2,
  'pathname-version' => 2,
  'with-simple-restart' => 2,
  'file-length' => 2,
  'pathnamep' => 2,
  'with-slots' => 2,
  'file-namestring' => 2,
  'peek-char' => 2,
  'with-standard-io-syntax' => 2,
  'file-position' => 2,
  'phase' => 2,
  'write' => 2,
  'file-stream' => 2,
  'pi' => 2,
  'write-byte' => 2,
  'file-string-length' => 2,
  'plusp' => 2,
  'write-char' => 2,
  'file-write-date' => 2,
  'pop' => 2,
  'write-line' => 2,
  'fill' => 2,
  'position' => 2,
  'write-sequence' => 2,
  'fill-pointer' => 2,
  'position-if' => 2,
  'write-string' => 2,
  'find' => 2,
  'position-if-not' => 2,
  'write-to-string' => 2,
  'find-all-symbols' => 2,
  'pprint' => 2,
  'y-or-n-p' => 2,
  'find-class' => 2,
  'pprint-dispatch' => 2,
  'yes-or-no-p' => 2,
  'find-if' => 2,
  'pprint-exit-if-list-exhausted' => 2,
  'zerop' => 2,
  'find-if-not' => 2,
  'pprint-fill' => 2,
  ':abort' => 2,
  ':from-end' => 2,
  ':overwrite' => 2,
  ':adjustable' => 2,
  ':gensym' => 2,
  ':predicate' => 2,
  ':append' => 2,
  ':host' => 2,
  ':preserve-whitespace' => 2,
  ':array' => 2,
  ':if-does-not-exist' => 2,
  ':pretty' => 2,
  ':base' => 2,
  ':if-exists' => 2,
  ':print' => 2,
  ':case' => 2,
  ':include' => 2,
  ':print-function' => 2,
  ':circle' => 2,
  ':index' => 2,
  ':probe' => 2,
  ':conc-name' => 2,
  ':inherited' => 2,
  ':radix' => 2,
  ':constructor' => 2,
  ':initial-contents' => 2,
  ':read-only' => 2,
  ':copier' => 2,
  ':initial-element' => 2,
  ':rehash-size' => 2,
  ':count' => 2,
  ':initial-offset' => 2,
  ':rehash-threshold' => 2,
  ':create' => 2,
  ':initial-value' => 2,
  ':rename' => 2,
  ':default' => 2,
  ':input' => 2,
  ':rename-and-delete' => 2,
  ':defaults' => 2,
  ':internal' => 2,
  ':size' => 2,
  ':device' => 2,
  ':io' => 2,
  ':start' => 2,
  ':direction' => 2,
  ':junk-allowed' => 2,
  ':start1' => 2,
  ':directory' => 2,
  ':key' => 2,
  ':start2' => 2,
  ':displaced-index-offset' => 2,
  ':length' => 2,
  ':stream' => 2,
  ':displaced-to' => 2,
  ':level' => 2,
  ':supersede' => 2,
  ':element-type' => 2,
  ':name' => 2,
  ':test' => 2,
  ':end' => 2,
  ':named' => 2,
  ':test-not' => 2,
  ':end1' => 2,
  ':new-version' => 2,
  ':type' => 2,
  ':end2' => 2,
  ':nicknames' => 2,
  ':use' => 2,
  ':error' => 2,
  ':output' => 2,
  ':verbose' => 2,
  ':escape' => 2,
  ':output-file' => 2,
  ':version' => 2,
  ':external' => 2,
  '*applyhook*' => 2,
  '*load-pathname*' => 2,
  '*print-pprint-dispatch*' => 2,
  '*break-on-signals*' => 2,
  '*load-print*' => 2,
  '*print-pprint-dispatch*' => 2,
  '*break-on-signals*' => 2,
  '*load-truename*' => 2,
  '*print-pretty*' => 2,
  '*break-on-warnings*' => 2,
  '*load-verbose*' => 2,
  '*print-radix*' => 2,
  '*compile-file-pathname*' => 2,
  '*macroexpand-hook*' => 2,
  '*print-readably*' => 2,
  '*compile-file-pathname*' => 2,
  '*modules*' => 2,
  '*print-right-margin*' => 2,
  '*compile-file-truename*' => 2,
  '*package*' => 2,
  '*print-right-margin*' => 2,
  '*compile-file-truename*' => 2,
  '*print-array*' => 2,
  '*query-io*' => 2,
  '*compile-print*' => 2,
  '*print-base*' => 2,
  '*random-state*' => 2,
  '*compile-verbose*' => 2,
  '*print-case*' => 2,
  '*read-base*' => 2,
  '*compile-verbose*' => 2,
  '*print-circle*' => 2,
  '*read-default-float-format*' => 2,
  '*debug-io*' => 2,
  '*print-escape*' => 2,
  '*read-eval*' => 2,
  '*debugger-hook*' => 2,
  '*print-gensym*' => 2,
  '*read-suppress*' => 2,
  '*default-pathname-defaults*' => 2,
  '*print-length*' => 2,
  '*readtable*' => 2,
  '*error-output*' => 2,
  '*print-level*' => 2,
  '*standard-input*' => 2,
  '*evalhook*' => 2,
  '*print-lines*' => 2,
  '*standard-output*' => 2,
  '*features*' => 2,
  '*print-miser-width*' => 2,
  '*terminal-io*' => 2,
  '*gensym-counter*' => 2,
  '*print-miser-width*' => 2,
  '*trace-output*' => 2,
  'defmacro' => 2,
  'do-all-symbols' => 2,
  'labels' => 2,
  'defsetf' => 2,
  'do-external-symbols' => 2,
  'let' => 2,
  'deftype' => 2,
  'do-symbols' => 2,
  'locally' => 2,
  'defun' => 2,
  'dotimes' => 2,
  'macrolet' => 2,
  'do*' => 2,
  'flet' => 2,
  'multiple-value-bind' => 2,
  //'pragma',		// module, import と pragma
  //'system',		// 処理系組み込みの奴 __stdcall とか
);
?>