mirror of
https://gitlab.com/eql/lqml.git
synced 2025-12-06 10:31:34 -08:00
631 lines
10 KiB
Common Lisp
631 lines
10 KiB
Common Lisp
(in-package :editor)
|
|
|
|
;;; list of symbols starting with either ':' (including loop keywords) or '&',
|
|
;;; and global variables (for auto completion)
|
|
|
|
(defvar *keywords-list*
|
|
'(":abort"
|
|
":above"
|
|
":absolute"
|
|
":accessor"
|
|
":across"
|
|
":adjustable"
|
|
":after"
|
|
":all"
|
|
":allocation"
|
|
":allow-other-keys"
|
|
":always"
|
|
":amount"
|
|
":and"
|
|
":anonymous"
|
|
":ansi"
|
|
":ansi-cl"
|
|
":answer-variable"
|
|
":append"
|
|
":appending"
|
|
":apropos"
|
|
":arg"
|
|
":args"
|
|
":argument-precedence-order"
|
|
":arguments"
|
|
":around"
|
|
":array"
|
|
":as"
|
|
":atsignp"
|
|
":back"
|
|
":backtrace"
|
|
":backward-search"
|
|
":base"
|
|
":bds"
|
|
":before"
|
|
":being"
|
|
":below"
|
|
":big-endian"
|
|
":binding-stack"
|
|
":block"
|
|
":block-end"
|
|
":boehm-gc"
|
|
":br"
|
|
":break"
|
|
":break-after"
|
|
":broken-at"
|
|
":bs"
|
|
":buffer-start-column"
|
|
":by"
|
|
":byte"
|
|
":bytecodes"
|
|
":c-file"
|
|
":c/c++"
|
|
":call"
|
|
":callback"
|
|
":capitalize"
|
|
":case"
|
|
":catch"
|
|
":cdecl"
|
|
":cdr-1"
|
|
":cdr-14"
|
|
":cdr-5"
|
|
":cdr-7"
|
|
":cf"
|
|
":char"
|
|
":character"
|
|
":circle"
|
|
":cl"
|
|
":class"
|
|
":clos"
|
|
":clos-streams"
|
|
":cmp"
|
|
":cmu-format"
|
|
":code"
|
|
":colinc"
|
|
":collect"
|
|
":collecting"
|
|
":colnum"
|
|
":colonp"
|
|
":commands"
|
|
":common"
|
|
":common-lisp"
|
|
":compile-file"
|
|
":compile-toplevel"
|
|
":compiler"
|
|
":complaint"
|
|
":conc-name"
|
|
":cond"
|
|
":cond-after"
|
|
":cond-before"
|
|
":cons-entries"
|
|
":constant"
|
|
":constructor"
|
|
":continue"
|
|
":control-string"
|
|
":copier"
|
|
":correctablep"
|
|
":count"
|
|
":counting"
|
|
":cr"
|
|
":create"
|
|
":crlf"
|
|
":cstream"
|
|
":cstring"
|
|
":current"
|
|
":data"
|
|
":data-file"
|
|
":datum"
|
|
":declarations"
|
|
":declare"
|
|
":default"
|
|
":default-initargs"
|
|
":defaults"
|
|
":delete-methods"
|
|
":depth"
|
|
":description"
|
|
":device"
|
|
":dffi"
|
|
":direct-default-initargs"
|
|
":direct-slots"
|
|
":direct-superclasses"
|
|
":direction"
|
|
":directory"
|
|
":disable"
|
|
":disassemble"
|
|
":displaced-index-offset"
|
|
":displaced-to"
|
|
":display"
|
|
":dll"
|
|
":dlopen"
|
|
":do"
|
|
":doc"
|
|
":documentation"
|
|
":doing"
|
|
":dont-know"
|
|
":double"
|
|
":down"
|
|
":downcase"
|
|
":downfrom"
|
|
":downto"
|
|
":drive-letters"
|
|
":dtype"
|
|
":each"
|
|
":ecl"
|
|
":ecl-bytecmp"
|
|
":ecl-pde"
|
|
":ecl-read-write-lock"
|
|
":ecl-weak-hash"
|
|
":element-type"
|
|
":else"
|
|
":end"
|
|
":end1"
|
|
":end2"
|
|
":entries"
|
|
":environ"
|
|
":environment"
|
|
":eof"
|
|
":error"
|
|
":error-stream"
|
|
":escape"
|
|
":eval"
|
|
":execute"
|
|
":exit"
|
|
":exited"
|
|
":expected-type"
|
|
":export"
|
|
":export-from"
|
|
":extended"
|
|
":external"
|
|
":external-format"
|
|
":external-symbol"
|
|
":external-symbols"
|
|
":fas"
|
|
":fasl"
|
|
":ffi"
|
|
":file"
|
|
":fill"
|
|
":fill-pointer"
|
|
":finally"
|
|
":fixnum"
|
|
":flag-variable"
|
|
":float"
|
|
":for"
|
|
":for-keywords"
|
|
":force-load"
|
|
":form"
|
|
":format-arguments"
|
|
":format-ars"
|
|
":format-control"
|
|
":formatter"
|
|
":forward-search"
|
|
":frame-stack"
|
|
":from"
|
|
":from-end"
|
|
":frs"
|
|
":fs"
|
|
":full"
|
|
":fully-buffered"
|
|
":function"
|
|
":functions"
|
|
":generic-function"
|
|
":generic-function-class"
|
|
":gensym"
|
|
":go"
|
|
":h-file"
|
|
":hash-key"
|
|
":hash-keys"
|
|
":hash-value"
|
|
":hash-values"
|
|
":help"
|
|
":help-stack"
|
|
":her"
|
|
":hide"
|
|
":hide-package"
|
|
":his"
|
|
":history"
|
|
":host"
|
|
":hp"
|
|
":hs"
|
|
":identity"
|
|
":identity-with-one-argument"
|
|
":ieee-floating-point"
|
|
":if"
|
|
":if-does-not-exist"
|
|
":if-error-exists"
|
|
":if-exists"
|
|
":if-input-does-not-exist"
|
|
":if-output-exists"
|
|
":ignore"
|
|
":implicit-for-required"
|
|
":import-from"
|
|
":in"
|
|
":include"
|
|
":inclusive"
|
|
":inclusive-permitted"
|
|
":index"
|
|
":infinity-data"
|
|
":inherited"
|
|
":initarg"
|
|
":initargs"
|
|
":initform"
|
|
":initfunction"
|
|
":initial-bindings"
|
|
":initial-contents"
|
|
":initial-element"
|
|
":initial-offset"
|
|
":initial-p"
|
|
":initial-value"
|
|
":initially"
|
|
":input"
|
|
":inspect"
|
|
":instance"
|
|
":int"
|
|
":int16-t"
|
|
":int32-t"
|
|
":int64-t"
|
|
":int8-t"
|
|
":interactive"
|
|
":interactive-function"
|
|
":intern"
|
|
":internal"
|
|
":into"
|
|
":invert"
|
|
":io"
|
|
":iso-8859-1"
|
|
":it"
|
|
":iteration-keywords"
|
|
":its"
|
|
":junk-allowed"
|
|
":key"
|
|
":key-and-value"
|
|
":keyword"
|
|
":keywords"
|
|
":kill-waiting"
|
|
":kind"
|
|
":lambda-expression"
|
|
":lambda-list"
|
|
":last"
|
|
":latin-1"
|
|
":ld"
|
|
":le"
|
|
":length"
|
|
":level"
|
|
":lexical-var"
|
|
":lexical-variables"
|
|
":lf"
|
|
":line"
|
|
":line-buffered"
|
|
":line-relative"
|
|
":linear"
|
|
":lines"
|
|
":link"
|
|
":linux"
|
|
":lisp-files"
|
|
":list-all"
|
|
":literal"
|
|
":little-endian"
|
|
":load"
|
|
":load-toplevel"
|
|
":loadrc"
|
|
":local"
|
|
":location"
|
|
":lock"
|
|
":lockable"
|
|
":long"
|
|
":long-float"
|
|
":long-long"
|
|
":macro"
|
|
":macros"
|
|
":mandatory"
|
|
":mask"
|
|
":maximize"
|
|
":maximizing"
|
|
":message"
|
|
":metaclass"
|
|
":method"
|
|
":method-class"
|
|
":method-combination"
|
|
":method-from-defgeneric-p"
|
|
":minimize"
|
|
":minimizing"
|
|
":miser"
|
|
":miser-width"
|
|
":mode"
|
|
":module"
|
|
":most-specific-first"
|
|
":most-specific-last"
|
|
":name"
|
|
":named"
|
|
":names"
|
|
":nconc"
|
|
":nconcing"
|
|
":never"
|
|
":new-version"
|
|
":newest"
|
|
":newline"
|
|
":next"
|
|
":nicknames"
|
|
":no-error"
|
|
":no-interrupts"
|
|
":noloadrc"
|
|
":none"
|
|
":not"
|
|
":null-terminated-p"
|
|
":object"
|
|
":octets"
|
|
":of"
|
|
":of-type"
|
|
":offset"
|
|
":on"
|
|
":one-liner"
|
|
":operands"
|
|
":operation"
|
|
":operations"
|
|
":operator"
|
|
":optimize-slot-access"
|
|
":optional"
|
|
":options"
|
|
":or"
|
|
":order"
|
|
":output"
|
|
":output-file"
|
|
":overwrite"
|
|
":package"
|
|
":params"
|
|
":pass-through"
|
|
":path-keywords"
|
|
":pathname"
|
|
":per-line-prefix"
|
|
":per-line-prefix-end"
|
|
":pid"
|
|
":plist"
|
|
":pointer-self"
|
|
":pointer-void"
|
|
":pop"
|
|
":posn"
|
|
":possibilities"
|
|
":pprint-dispatch"
|
|
":pr"
|
|
":predicate"
|
|
":prefix"
|
|
":prefix-length"
|
|
":prefixed-api"
|
|
":preposition-groups"
|
|
":present-symbol"
|
|
":present-symbols"
|
|
":preserve"
|
|
":preserve-whitespace"
|
|
":pretty"
|
|
":previous"
|
|
":print"
|
|
":print-after"
|
|
":print-banner"
|
|
":print-function"
|
|
":print-object"
|
|
":priority"
|
|
":private"
|
|
":probe"
|
|
":process"
|
|
":prompt-hook"
|
|
":qualifiers"
|
|
":quiet"
|
|
":quit"
|
|
":radix"
|
|
":read"
|
|
":read-only"
|
|
":read-only-p"
|
|
":readably"
|
|
":reader"
|
|
":readers"
|
|
":recurse"
|
|
":recursive"
|
|
":rehash-size"
|
|
":rehash-threshold"
|
|
":relative"
|
|
":relative-package-names"
|
|
":relativep"
|
|
":remaining"
|
|
":rename"
|
|
":rename-and-delete"
|
|
":repeat"
|
|
":report"
|
|
":report-function"
|
|
":required"
|
|
":reset-count"
|
|
":resolve-symlinks"
|
|
":restart"
|
|
":return"
|
|
":returning"
|
|
":right-margin"
|
|
":rules"
|
|
":running"
|
|
":sealedp"
|
|
":search-list"
|
|
":section"
|
|
":section-column"
|
|
":section-end"
|
|
":section-relative"
|
|
":section-start-line"
|
|
":sectionp"
|
|
":separator-string"
|
|
":set"
|
|
":set-default-pathname"
|
|
":shadow"
|
|
":shadowing-import"
|
|
":shadowing-import-from"
|
|
":shared"
|
|
":shared-data-file"
|
|
":short"
|
|
":side-effects"
|
|
":signaled"
|
|
":size"
|
|
":skip"
|
|
":slot-definition"
|
|
":slot-names"
|
|
":special"
|
|
":specializers"
|
|
":start"
|
|
":start-column"
|
|
":start1"
|
|
":start2"
|
|
":status"
|
|
":stdcall"
|
|
":step"
|
|
":stop"
|
|
":stopped"
|
|
":stream"
|
|
":string"
|
|
":struct"
|
|
":suffix"
|
|
":suffix-length"
|
|
":sum"
|
|
":summing"
|
|
":supersede"
|
|
":supporting-libraries"
|
|
":switch"
|
|
":symbol"
|
|
":symbol-types"
|
|
":symbols"
|
|
":system-library"
|
|
":system-p"
|
|
":sysv"
|
|
":tables"
|
|
":tag"
|
|
":target"
|
|
":temp-variable"
|
|
":temporary-pathname"
|
|
":tempvars"
|
|
":test"
|
|
":test-function"
|
|
":test-not"
|
|
":the"
|
|
":then"
|
|
":thereis"
|
|
":threads"
|
|
":to"
|
|
":tr"
|
|
":trace"
|
|
":type"
|
|
":type-keywords"
|
|
":type-symbols"
|
|
":types"
|
|
":ucs-2"
|
|
":ucs-2be"
|
|
":ucs-2le"
|
|
":ucs-4"
|
|
":ucs-4be"
|
|
":ucs-4le"
|
|
":uint16-t"
|
|
":uint32-t"
|
|
":uint64-t"
|
|
":uint8-t"
|
|
":unblocked"
|
|
":unhide"
|
|
":unhide-all"
|
|
":unhide-package"
|
|
":unhp"
|
|
":unicode"
|
|
":union"
|
|
":unix"
|
|
":unix64"
|
|
":unknown"
|
|
":unless"
|
|
":unmask"
|
|
":unsigned"
|
|
":unsigned-byte"
|
|
":unsigned-char"
|
|
":unsigned-int"
|
|
":unsigned-long"
|
|
":unsigned-long-long"
|
|
":unsigned-short"
|
|
":unspecific"
|
|
":until"
|
|
":untr"
|
|
":untrace"
|
|
":up"
|
|
":upcase"
|
|
":upfrom"
|
|
":upto"
|
|
":us-ascii"
|
|
":use"
|
|
":user-data"
|
|
":using"
|
|
":utf-8"
|
|
":value"
|
|
":variables"
|
|
":verbose"
|
|
":version"
|
|
":void"
|
|
":wait"
|
|
":waiting"
|
|
":walk-form"
|
|
":walk-function"
|
|
":walker"
|
|
":weakness"
|
|
":when"
|
|
":which"
|
|
":while"
|
|
":wild"
|
|
":wild-inferiors"
|
|
":win64"
|
|
":with"
|
|
":word-buffer"
|
|
":write"
|
|
":writer"
|
|
":writers"
|
|
":x86_64"
|
|
":zombi"
|
|
"&allow-other-keys"
|
|
"&aux"
|
|
"&body"
|
|
"&environment"
|
|
"&key"
|
|
"&optional"
|
|
"&rest"
|
|
"&whole"
|
|
"*break-on-signals*"
|
|
"*compile-file-pathname*"
|
|
"*compile-file-truename*"
|
|
"*compile-print*"
|
|
"*compile-verbose*"
|
|
"*debug-io*"
|
|
"*debugger-hook*"
|
|
"*default-pathname-defaults*"
|
|
"*error-output*"
|
|
"*features*"
|
|
"*gensym-counter*"
|
|
"*load-pathname*"
|
|
"*load-print*"
|
|
"*load-truename*"
|
|
"*load-verbose*"
|
|
"*macroexpand-hook*"
|
|
"*modules*"
|
|
"*package*"
|
|
"*print-array*"
|
|
"*print-base*"
|
|
"*print-case*"
|
|
"*print-circle*"
|
|
"*print-escape*"
|
|
"*print-gensym*"
|
|
"*print-length*"
|
|
"*print-level*"
|
|
"*print-lines*"
|
|
"*print-miser-width*"
|
|
"*print-pprint-dispatch*"
|
|
"*print-pretty*"
|
|
"*print-radix*"
|
|
"*print-readably*"
|
|
"*print-right-margin*"
|
|
"*query-io*"
|
|
"*random-state*"
|
|
"*read-base*"
|
|
"*read-default-float-format*"
|
|
"*read-eval*"
|
|
"*read-suppress*"
|
|
"*readtable*"
|
|
"*standard-input*"
|
|
"*standard-output*"
|
|
"*terminal-io*"
|
|
"*trace-output*"))
|
|
|
|
(defvar *keywords*
|
|
(let ((ht (make-hash-table :test 'equal)))
|
|
(dolist (kw *keywords-list*)
|
|
(setf (gethash kw ht) t))
|
|
ht))
|