mirror of
https://gitlab.com/eql/EQL5.git
synced 2025-12-10 20:30:48 -08:00
port of EQL/Qt4 to Qt5
This commit is contained in:
polos
commit
0591f54ce8
339 changed files with 99935 additions and 0 deletions
769
examples/9-simple-lisp-editor/data/lisp-keywords.lisp
Normal file
769
examples/9-simple-lisp-editor/data/lisp-keywords.lisp
Normal file
|
|
@ -0,0 +1,769 @@
|
|||
(let ((hash (make-hash-table :test 'equal)))
|
||||
(dolist (kw '("abort"
|
||||
"abs"
|
||||
"acons"
|
||||
"acos"
|
||||
"acosh"
|
||||
"add-method"
|
||||
"adjoin"
|
||||
"adjust-array"
|
||||
"adjustable-array-p"
|
||||
"allocate-instance"
|
||||
"alpha-char-p"
|
||||
"alphanumericp"
|
||||
"and"
|
||||
"append"
|
||||
"apply"
|
||||
"apropos"
|
||||
"apropos-list"
|
||||
"aref"
|
||||
"arithmetic-error-operands"
|
||||
"arithmetic-error-operation"
|
||||
"array-dimension"
|
||||
"array-dimensions"
|
||||
"array-displacement"
|
||||
"array-element-type"
|
||||
"array-has-fill-pointer-p"
|
||||
"array-in-bounds-p"
|
||||
"array-rank"
|
||||
"array-row-major-index"
|
||||
"array-total-size"
|
||||
"arrayp"
|
||||
"ash"
|
||||
"asin"
|
||||
"asinh"
|
||||
"assert"
|
||||
"assoc"
|
||||
"assoc-if"
|
||||
"assoc-if-not"
|
||||
"atan"
|
||||
"atanh"
|
||||
"atom"
|
||||
"bit"
|
||||
"bit-and"
|
||||
"bit-andc1"
|
||||
"bit-andc2"
|
||||
"bit-eqv"
|
||||
"bit-ior"
|
||||
"bit-nand"
|
||||
"bit-nor"
|
||||
"bit-not"
|
||||
"bit-orc1"
|
||||
"bit-orc2"
|
||||
"bit-vector-p"
|
||||
"bit-xor"
|
||||
"block"
|
||||
"boole"
|
||||
"both-case-p"
|
||||
"boundp"
|
||||
"break"
|
||||
"broadcast-stream-streams"
|
||||
"butlast"
|
||||
"byte"
|
||||
"byte-position"
|
||||
"byte-size"
|
||||
"caaaar"
|
||||
"caaadr"
|
||||
"caaar"
|
||||
"caadar"
|
||||
"caaddr"
|
||||
"caadr"
|
||||
"caar"
|
||||
"cadaar"
|
||||
"cadadr"
|
||||
"cadar"
|
||||
"caddar"
|
||||
"cadddr"
|
||||
"caddr"
|
||||
"cadr"
|
||||
"call-method"
|
||||
"call-next-method"
|
||||
"car"
|
||||
"case"
|
||||
"catch"
|
||||
"ccase"
|
||||
"cdaaar"
|
||||
"cdaadr"
|
||||
"cdaar"
|
||||
"cdadar"
|
||||
"cdaddr"
|
||||
"cdadr"
|
||||
"cdar"
|
||||
"cddaar"
|
||||
"cddadr"
|
||||
"cddar"
|
||||
"cdddar"
|
||||
"cddddr"
|
||||
"cdddr"
|
||||
"cddr"
|
||||
"cdr"
|
||||
"ceiling"
|
||||
"cell-error-name"
|
||||
"cerror"
|
||||
"change-class"
|
||||
"char"
|
||||
"char-code"
|
||||
"char-downcase"
|
||||
"char-equal"
|
||||
"char-greaterp"
|
||||
"char-int"
|
||||
"char-lessp"
|
||||
"char-name"
|
||||
"char-not-equal"
|
||||
"char-not-greaterp"
|
||||
"char-not-lessp"
|
||||
"char-upcase"
|
||||
"char/="
|
||||
"char<"
|
||||
"char<="
|
||||
"char="
|
||||
"char>"
|
||||
"char>="
|
||||
"character"
|
||||
"characterp"
|
||||
"check-type"
|
||||
"cis"
|
||||
"class-name"
|
||||
"class-of"
|
||||
"clear-input"
|
||||
"clear-output"
|
||||
"close"
|
||||
"clrhash"
|
||||
"code-char"
|
||||
"coerce"
|
||||
"compile"
|
||||
"compile-file"
|
||||
"compile-file-pathname"
|
||||
"compiled-function-p"
|
||||
"compiler-macro-function"
|
||||
"complement"
|
||||
"complex"
|
||||
"complexp"
|
||||
"compute-applicable-methods"
|
||||
"compute-restarts"
|
||||
"concatenate"
|
||||
"concatenated-stream-streams"
|
||||
"cond"
|
||||
"conjugate"
|
||||
"cons"
|
||||
"consp"
|
||||
"constantly"
|
||||
"constantp"
|
||||
"continue"
|
||||
"copy-alist"
|
||||
"copy-list"
|
||||
"copy-pprint-dispatch"
|
||||
"copy-readtable"
|
||||
"copy-seq"
|
||||
"copy-structure"
|
||||
"copy-symbol"
|
||||
"copy-tree"
|
||||
"cos"
|
||||
"cosh"
|
||||
"count"
|
||||
"count-if"
|
||||
"count-if-not"
|
||||
"ctypecase"
|
||||
"decf"
|
||||
"declaim"
|
||||
"decode-float"
|
||||
"decode-universal-time"
|
||||
"defclass"
|
||||
"defconstant"
|
||||
"defgeneric"
|
||||
"define-compiler-macro"
|
||||
"define-condition"
|
||||
"define-method-combination"
|
||||
"define-modify-macro"
|
||||
"define-setf-expander"
|
||||
"define-symbol-macro"
|
||||
"defmacro"
|
||||
"defmethod"
|
||||
"defpackage"
|
||||
"defparameter"
|
||||
"defsetf"
|
||||
"defstruct"
|
||||
"deftype"
|
||||
"defun"
|
||||
"defvar"
|
||||
"delete"
|
||||
"delete-duplicates"
|
||||
"delete-file"
|
||||
"delete-if"
|
||||
"delete-if-not"
|
||||
"delete-package"
|
||||
"denominator"
|
||||
"deposit-field"
|
||||
"describe"
|
||||
"describe-object"
|
||||
"destructuring-bind"
|
||||
"digit-char"
|
||||
"digit-char-p"
|
||||
"directory"
|
||||
"directory-namestring"
|
||||
"disassemble"
|
||||
"do"
|
||||
"do*"
|
||||
"do-all-symbols"
|
||||
"do-external-symbols"
|
||||
"do-symbols"
|
||||
"documentation"
|
||||
"dolist"
|
||||
"dotimes"
|
||||
"dribble"
|
||||
"ecase"
|
||||
"echo-stream-input-stream"
|
||||
"echo-stream-output-stream"
|
||||
"eighth"
|
||||
"elt"
|
||||
"encode-universal-time"
|
||||
"endp"
|
||||
"enough-namestring"
|
||||
"ensure-directories-exist"
|
||||
"ensure-generic-function"
|
||||
"eq"
|
||||
"eql"
|
||||
"equal"
|
||||
"equalp"
|
||||
"error"
|
||||
"etypecase"
|
||||
"eval"
|
||||
"eval-when"
|
||||
"evenp"
|
||||
"every"
|
||||
"exp"
|
||||
"export"
|
||||
"expt"
|
||||
"fboundp"
|
||||
"fceiling"
|
||||
"fdefinition"
|
||||
"ffloor"
|
||||
"fifth"
|
||||
"file-author"
|
||||
"file-error-pathname"
|
||||
"file-length"
|
||||
"file-namestring"
|
||||
"file-position"
|
||||
"file-string-length"
|
||||
"file-write-date"
|
||||
"fill"
|
||||
"fill-pointer"
|
||||
"find"
|
||||
"find-all-symbols"
|
||||
"find-class"
|
||||
"find-if"
|
||||
"find-if-not"
|
||||
"find-method"
|
||||
"find-package"
|
||||
"find-restart"
|
||||
"find-symbol"
|
||||
"finish-output"
|
||||
"first"
|
||||
"flet"
|
||||
"float"
|
||||
"float-digits"
|
||||
"float-precision"
|
||||
"float-radix"
|
||||
"float-sign"
|
||||
"floatp"
|
||||
"floor"
|
||||
"fmakunbound"
|
||||
"force-output"
|
||||
"format"
|
||||
"formatter"
|
||||
"fourth"
|
||||
"fresh-line"
|
||||
"fround"
|
||||
"ftruncate"
|
||||
"funcall"
|
||||
"function"
|
||||
"function-keywords"
|
||||
"function-lambda-expression"
|
||||
"functionp"
|
||||
"gcd"
|
||||
"gensym"
|
||||
"gentemp"
|
||||
"get"
|
||||
"get-decoded-time"
|
||||
"get-dispatch-macro-character"
|
||||
"get-internal-real-time"
|
||||
"get-internal-run-time"
|
||||
"get-macro-character"
|
||||
"get-output-stream-string"
|
||||
"get-properties"
|
||||
"get-setf-expansion"
|
||||
"get-universal-time"
|
||||
"getf"
|
||||
"gethash"
|
||||
"go"
|
||||
"graphic-char-p"
|
||||
"handler-bind"
|
||||
"handler-case"
|
||||
"hash-table-count"
|
||||
"hash-table-p"
|
||||
"hash-table-rehash-size"
|
||||
"hash-table-rehash-threshold"
|
||||
"hash-table-size"
|
||||
"hash-table-test"
|
||||
"host-namestring"
|
||||
"identity"
|
||||
"if"
|
||||
"ignore-errors"
|
||||
"imagpart"
|
||||
"import"
|
||||
"in-package"
|
||||
"incf"
|
||||
"initialize-instance"
|
||||
"input-stream-p"
|
||||
"inspect"
|
||||
"integer-decode-float"
|
||||
"integer-length"
|
||||
"integerp"
|
||||
"interactive-stream-p"
|
||||
"intern"
|
||||
"intersection"
|
||||
"invalid-method-error"
|
||||
"invoke-debugger"
|
||||
"invoke-restart"
|
||||
"invoke-restart-interactively"
|
||||
"isqrt"
|
||||
"keywordp"
|
||||
"labels"
|
||||
"lambda"
|
||||
"last"
|
||||
"lcm"
|
||||
"ldb"
|
||||
"ldb-test"
|
||||
"ldiff"
|
||||
"length"
|
||||
"let"
|
||||
"let*"
|
||||
"lisp-implementation-type"
|
||||
"lisp-implementation-version"
|
||||
"list"
|
||||
"list*"
|
||||
"list-all-packages"
|
||||
"list-length"
|
||||
"listen"
|
||||
"listp"
|
||||
"load"
|
||||
"load-logical-pathname-translations"
|
||||
"load-time-value"
|
||||
"locally"
|
||||
"log"
|
||||
"logand"
|
||||
"logandc1"
|
||||
"logandc2"
|
||||
"logbitp"
|
||||
"logcount"
|
||||
"logeqv"
|
||||
"logical-pathname"
|
||||
"logical-pathname-translations"
|
||||
"logior"
|
||||
"lognand"
|
||||
"lognor"
|
||||
"lognot"
|
||||
"logorc1"
|
||||
"logorc2"
|
||||
"logtest"
|
||||
"logxor"
|
||||
"long-site-name"
|
||||
"loop"
|
||||
"loop-finish"
|
||||
"lower-case-p"
|
||||
"machine-instance"
|
||||
"machine-type"
|
||||
"machine-version"
|
||||
"macro-function"
|
||||
"macroexpand"
|
||||
"macroexpand-1"
|
||||
"macrolet"
|
||||
"make-array"
|
||||
"make-broadcast-stream"
|
||||
"make-concatenated-stream"
|
||||
"make-condition"
|
||||
"make-dispatch-macro-character"
|
||||
"make-echo-stream"
|
||||
"make-hash-table"
|
||||
"make-instance"
|
||||
"make-instances-obsolete"
|
||||
"make-list"
|
||||
"make-load-form"
|
||||
"make-load-form-saving-slots"
|
||||
"make-method"
|
||||
"make-package"
|
||||
"make-pathname"
|
||||
"make-random-state"
|
||||
"make-sequence"
|
||||
"make-string"
|
||||
"make-string-input-stream"
|
||||
"make-string-output-stream"
|
||||
"make-symbol"
|
||||
"make-synonym-stream"
|
||||
"make-two-way-stream"
|
||||
"makunbound"
|
||||
"map"
|
||||
"map-into"
|
||||
"mapc"
|
||||
"mapcan"
|
||||
"mapcar"
|
||||
"mapcon"
|
||||
"maphash"
|
||||
"mapl"
|
||||
"maplist"
|
||||
"mask-field"
|
||||
"max"
|
||||
"member"
|
||||
"member-if"
|
||||
"member-if-not"
|
||||
"merge"
|
||||
"merge-pathnames"
|
||||
"method-combination-error"
|
||||
"method-qualifiers"
|
||||
"min"
|
||||
"minusp"
|
||||
"mismatch"
|
||||
"mod"
|
||||
"muffle-warning"
|
||||
"multiple-value-bind"
|
||||
"multiple-value-call"
|
||||
"multiple-value-list"
|
||||
"multiple-value-prog1"
|
||||
"multiple-value-setq"
|
||||
"name-char"
|
||||
"namestring"
|
||||
"nbutlast"
|
||||
"nconc"
|
||||
"next-method-p"
|
||||
"nintersection"
|
||||
"ninth"
|
||||
"no-applicable-method"
|
||||
"no-next-method"
|
||||
"not"
|
||||
"notany"
|
||||
"notevery"
|
||||
"nreconc"
|
||||
"nreverse"
|
||||
"nset-difference"
|
||||
"nset-exclusive-or"
|
||||
"nstring-capitalize"
|
||||
"nstring-downcase"
|
||||
"nstring-upcase"
|
||||
"nsublis"
|
||||
"nsubst"
|
||||
"nsubst-if"
|
||||
"nsubst-if-not"
|
||||
"nsubstitute"
|
||||
"nsubstitute-if"
|
||||
"nsubstitute-if-not"
|
||||
"nth"
|
||||
"nth-value"
|
||||
"nthcdr"
|
||||
"null"
|
||||
"numberp"
|
||||
"numerator"
|
||||
"nunion"
|
||||
"oddp"
|
||||
"open"
|
||||
"open-stream-p"
|
||||
"or"
|
||||
"output-stream-p"
|
||||
"package-error-package"
|
||||
"package-name"
|
||||
"package-nicknames"
|
||||
"package-shadowing-symbols"
|
||||
"package-use-list"
|
||||
"package-used-by-list"
|
||||
"packagep"
|
||||
"pairlis"
|
||||
"parse-integer"
|
||||
"parse-namestring"
|
||||
"pathname"
|
||||
"pathname-device"
|
||||
"pathname-directory"
|
||||
"pathname-host"
|
||||
"pathname-match-p"
|
||||
"pathname-name"
|
||||
"pathname-type"
|
||||
"pathname-version"
|
||||
"pathnamep"
|
||||
"peek-char"
|
||||
"phase"
|
||||
"plusp"
|
||||
"pop"
|
||||
"position"
|
||||
"position-if"
|
||||
"position-if-not"
|
||||
"pprint"
|
||||
"pprint-dispatch"
|
||||
"pprint-exit-if-list-exhausted"
|
||||
"pprint-fill"
|
||||
"pprint-indent"
|
||||
"pprint-linear"
|
||||
"pprint-logical-block"
|
||||
"pprint-newline"
|
||||
"pprint-pop"
|
||||
"pprint-tab"
|
||||
"pprint-tabular"
|
||||
"prin1"
|
||||
"prin1-to-string"
|
||||
"princ"
|
||||
"princ-to-string"
|
||||
"print"
|
||||
"print-not-readable-object"
|
||||
"print-object"
|
||||
"print-unreadable-object"
|
||||
"probe-file"
|
||||
"proclaim"
|
||||
"prog"
|
||||
"prog*"
|
||||
"prog1"
|
||||
"prog2"
|
||||
"progn"
|
||||
"progv"
|
||||
"provide"
|
||||
"psetf"
|
||||
"psetq"
|
||||
"push"
|
||||
"pushnew"
|
||||
"quote"
|
||||
"random"
|
||||
"random-state-p"
|
||||
"rassoc"
|
||||
"rassoc-if"
|
||||
"rassoc-if-not"
|
||||
"rational"
|
||||
"rationalize"
|
||||
"rationalp"
|
||||
"read"
|
||||
"read-byte"
|
||||
"read-char"
|
||||
"read-char-no-hang"
|
||||
"read-delimited-list"
|
||||
"read-from-string"
|
||||
"read-line"
|
||||
"read-preserving-whitespace"
|
||||
"read-sequence"
|
||||
"readtable-case"
|
||||
"readtablep"
|
||||
"realp"
|
||||
"realpart"
|
||||
"reduce"
|
||||
"reinitialize-instance"
|
||||
"rem"
|
||||
"remf"
|
||||
"remhash"
|
||||
"remove"
|
||||
"remove-duplicates"
|
||||
"remove-if"
|
||||
"remove-if-not"
|
||||
"remove-method"
|
||||
"remprop"
|
||||
"rename-file"
|
||||
"rename-package"
|
||||
"replace"
|
||||
"require"
|
||||
"rest"
|
||||
"restart-bind"
|
||||
"restart-case"
|
||||
"restart-name"
|
||||
"return"
|
||||
"return-from"
|
||||
"revappend"
|
||||
"reverse"
|
||||
"room"
|
||||
"rotatef"
|
||||
"round"
|
||||
"row-major-aref"
|
||||
"rplaca"
|
||||
"rplacd"
|
||||
"sbit"
|
||||
"scale-float"
|
||||
"schar"
|
||||
"search"
|
||||
"second"
|
||||
"set"
|
||||
"set-difference"
|
||||
"set-dispatch-macro-character"
|
||||
"set-exclusive-or"
|
||||
"set-macro-character"
|
||||
"set-pprint-dispatch"
|
||||
"set-syntax-from-char"
|
||||
"setf"
|
||||
"setq"
|
||||
"seventh"
|
||||
"shadow"
|
||||
"shadowing-import"
|
||||
"shared-initialize"
|
||||
"shiftf"
|
||||
"short-site-name"
|
||||
"signal"
|
||||
"signum"
|
||||
"simple-bit-vector-p"
|
||||
"simple-condition-format-arguments"
|
||||
"simple-condition-format-control"
|
||||
"simple-string-p"
|
||||
"simple-vector-p"
|
||||
"sin"
|
||||
"sinh"
|
||||
"sixth"
|
||||
"sleep"
|
||||
"slot-boundp"
|
||||
"slot-exists-p"
|
||||
"slot-makunbound"
|
||||
"slot-missing"
|
||||
"slot-unbound"
|
||||
"slot-value"
|
||||
"software-type"
|
||||
"software-version"
|
||||
"some"
|
||||
"sort"
|
||||
"special-operator-p"
|
||||
"sqrt"
|
||||
"stable-sort"
|
||||
"standard-char-p"
|
||||
"step"
|
||||
"store-value"
|
||||
"stream-element-type"
|
||||
"stream-error-stream"
|
||||
"stream-external-format"
|
||||
"streamp"
|
||||
"string"
|
||||
"string-capitalize"
|
||||
"string-downcase"
|
||||
"string-equal"
|
||||
"string-greaterp"
|
||||
"string-left-trim"
|
||||
"string-lessp"
|
||||
"string-not-equal"
|
||||
"string-not-greaterp"
|
||||
"string-not-lessp"
|
||||
"string-right-trim"
|
||||
"string-trim"
|
||||
"string-upcase"
|
||||
"string/="
|
||||
"string<"
|
||||
"string<="
|
||||
"string="
|
||||
"string>"
|
||||
"string>="
|
||||
"stringp"
|
||||
"sublis"
|
||||
"subseq"
|
||||
"subsetp"
|
||||
"subst"
|
||||
"subst-if"
|
||||
"subst-if-not"
|
||||
"substitute"
|
||||
"substitute-if"
|
||||
"substitute-if-not"
|
||||
"subtypep"
|
||||
"svref"
|
||||
"sxhash"
|
||||
"symbol-function"
|
||||
"symbol-macrolet"
|
||||
"symbol-name"
|
||||
"symbol-package"
|
||||
"symbol-plist"
|
||||
"symbol-value"
|
||||
"symbolp"
|
||||
"synonym-stream-symbol"
|
||||
"tagbody"
|
||||
"tailp"
|
||||
"tan"
|
||||
"tanh"
|
||||
"tenth"
|
||||
"terpri"
|
||||
"the"
|
||||
"third"
|
||||
"throw"
|
||||
"time"
|
||||
"trace"
|
||||
"translate-logical-pathname"
|
||||
"translate-pathname"
|
||||
"tree-equal"
|
||||
"truename"
|
||||
"truncate"
|
||||
"two-way-stream-input-stream"
|
||||
"two-way-stream-output-stream"
|
||||
"type-error-datum"
|
||||
"type-error-expected-type"
|
||||
"type-of"
|
||||
"typecase"
|
||||
"typep"
|
||||
"unbound-slot-instance"
|
||||
"unexport"
|
||||
"unintern"
|
||||
"union"
|
||||
"unless"
|
||||
"unread-char"
|
||||
"untrace"
|
||||
"unuse-package"
|
||||
"unwind-protect"
|
||||
"update-instance-for-different-class"
|
||||
"update-instance-for-redefined-class"
|
||||
"upgraded-array-element-type"
|
||||
"upgraded-complex-part-type"
|
||||
"upper-case-p"
|
||||
"use-package"
|
||||
"use-value"
|
||||
"user-homedir-pathname"
|
||||
"values"
|
||||
"values-list"
|
||||
"vector"
|
||||
"vector-pop"
|
||||
"vector-push"
|
||||
"vector-push-extend"
|
||||
"vectorp"
|
||||
"warn"
|
||||
"when"
|
||||
"wild-pathname-p"
|
||||
"with-accessors"
|
||||
"with-compilation-unit"
|
||||
"with-condition-restarts"
|
||||
"with-hash-table-iterator"
|
||||
"with-input-from-string"
|
||||
"with-open-file"
|
||||
"with-open-stream"
|
||||
"with-output-to-string"
|
||||
"with-package-iterator"
|
||||
"with-simple-restart"
|
||||
"with-slots"
|
||||
"with-standard-io-syntax"
|
||||
"write"
|
||||
"write-byte"
|
||||
"write-char"
|
||||
"write-line"
|
||||
"write-sequence"
|
||||
"write-string"
|
||||
"write-to-string"
|
||||
"y-or-n-p"
|
||||
"yes-or-no-p"
|
||||
"zerop"
|
||||
;; package :x
|
||||
"bytes-to-string"
|
||||
"d"
|
||||
"do-string"
|
||||
"do-with"
|
||||
"empty-string"
|
||||
"ensure-compiled"
|
||||
"ensure-list"
|
||||
"ends-with"
|
||||
"it"
|
||||
"it*"
|
||||
"if-it"
|
||||
"if-it*"
|
||||
"join"
|
||||
"let-it"
|
||||
"split"
|
||||
"starts-with"
|
||||
"string-split"
|
||||
"string-substitute"
|
||||
"string-to-bytes"
|
||||
"when-it"
|
||||
"when-it*"
|
||||
"while"
|
||||
"while-it"
|
||||
"with-gensyms"))
|
||||
(setf (gethash kw hash) t))
|
||||
hash)
|
||||
Loading…
Add table
Add a link
Reference in a new issue